2019-08-07

PC-8001 BASIC ゲームブック

レトロパソコン

当時、父の知り合いのかたから、いただいたもの。

粗いグラフィックですが、これがPC-8001の最大フル解像度パワーです！

この本に掲載されているゲームは、BASICなのにかなり頑張っています。

ゲーム内容も、安心感のあるタイトルばかりです。

そうそう、この本の四隅は「パラパラ漫画」になっていて

ページの隅をパラパラとすると、画面の動画になります！

PC-8001 BASIC ゲームブックアスキー出版 1979年？

f:id:yummac:20190807135550j:plain — PC-8001 BASICゲームブック

f:id:yummac:20190807135557j:plain — PC-8001 BASICゲームブック

2019-08-06

マイコンBASICマガジン昭和58年6月号

レトロパソコンマイコンBASICマガジン

今月号の投稿ゲームは、遊ばせていただいた記憶があります。

カーレースとか、シンプルで黙々とやってました。

特集記事が「各社パソコンのサウンド機能大研究」です。

PC-8001は、BEEP音で曲を演奏（と言えるのか？）してました。

あの音色を、また聞いてみたいものです。

マイコンBASICマガジン昭和58年6月号電波新聞社定価300円

f:id:yummac:20190806105319j:plain — マイコンBASICマガジン昭和58年6月号

f:id:yummac:20190806105326j:plain — マイコンBASICマガジン昭和58年6月号

2019-08-03

あの重くて邪魔なCRTディスプレイの無料で廃棄処分方法

PC Mac 周辺機器

あまり、高スペックや新機種とか必要としないので、

新品のPCはしばらく、いや、一度も買っていない？！

Macは別にして。

仕事でWin機を使うけれど、無償貸与だったり、

知人から入れ替え後の使ってないマシンを譲ってもらったり、

オークションで入手したり。

そんなこんなで、売れないガラクタのようなPCやパーツが

増えてきたので、業者に回収を委託することにした。

今回、委託したのは「リネットジャパン」です。

ほかにも業者がある中で、なぜリネットにしたかというと、

他の業者では、「引取不可」や「有料引取」になる

「CRTディスプレイ」を、規定内であれば

無料回収してくれる点です！

あの、重くて邪魔で処分に困っていた「CRTディスプレイ」が

処分できて、とてもスッキリしました！

あと、テレビの番組内でも紹介されていたのと、

私が住んでいる自治体（市町村）の指定業者であることも選んだ理由です。

東京オリンピックの金銀銅メダルは、このリネットジャパンが回収したPCから、

金属を抽出し製作するとのこと。

HDDの消去は、委託することもできますが、有料です。

「自分で消去」を選択すれば、無料の消去ソフトをダウンロードできます。

私は、取り外したHDDが複数あるので、

「HDD USB 変換ケーブル」でMacに接続し、消去しました。

「HDD USB 変換ケーブル」を楽天市場で検索

「HDD USB 変換ケーブル」を Yahoo!ショッピングで検索

Macでは、下のコマンドの"/dev/diskX"部分を、

消去するHDDに変更して実行します。

diskutil secureErase 0 /dev/diskX

まだまだ処分するPC本体は残っているので、

もうしばらく、お世話になりそうです。

2019-08-02

テクノポリス増刊プログラムポシェット VOL.5

レトロパソコンプログラムポシェット

投稿ゲームプログラム雑誌「プログラムポシェット」

ゲームのアイデア、プログラミング技術とも
すぐれた作品が数多く掲載されており、愛読してました。
当時は、突然の廃刊をとても残念に思いました。

裏表紙の広告に、ふと目が留まる。

「ゼネラル MSX テレビ PAXON ニュータイプ Ver.Ⅱ」

MSXにあまり興味がなかったからか、

何十年も経って、なんだか初めて知ったマシン。

そういえばMSXって、大手パソコンメーカー以外が

マシンを出してましたね。

広告右上の、女性モデルさんは誰だろう？

あー、見始めると気になるところだらけでキリがない！

テクノポリス増刊プログラムポシェット VOL.5

昭和59年12月30日発行定価330円徳間書店

f:id:yummac:20190802115351j:plain — プログラムポシェット VOL.5

f:id:yummac:20190802115358j:plain — プログラムポシェット VOL.5

2019-07-30

マイコンBASICマガジン昭和58年5月号

レトロパソコンマイコンBASICマガジン

私は PC-8001 ユーザーでしたので、常連プログラマ「森巧尚」さんの作品で、よく遊ばせていただきました。

この号にも、多数、掲載されています。

「ハート・キャッチはるみちゃん」は、女子高生プログラマ「高橋はるみ」さんを、キャラクターとしたゲームでした。っけ？

ググってみると「マイコンBASICマガジン」が、「電子工作マガジン」の別冊付録として復活していたり、イベントが行われていたり、地味に復活しているようです。

電子工作マガジンを検索

マイコンBASICマガジン昭和58年5月号電波新聞社定価300円

f:id:yummac:20190730102942j:plain — マイコンBASICマガジン昭和58年5月号

f:id:yummac:20190730102949j:plain — マイコンBASICマガジン昭和58年5月号

2019-07-27

PC-8001 ゲーム・ライブラリー

レトロパソコン

NEC PC-8001 で、ゲームを作りたいと購入した一冊。

「遊びながら覚えるプログラミング・テクニック」の副題で、

アーケードゲームで当時、流行っていたタイトルに似た題材もあり、

遊びながら・・・

いや、遊びませんでした。

なぜだろう？

理解しやすく作られている分、

プログラムが長くなっていたからでしょうか？

打ち込む気に、ならなかった記憶があります。

申し訳ないです。

PC-8001 ゲーム・ライブラリー新星出版社定価1300円

f:id:yummac:20190702133535j:plain — PC-8001ゲームライブラリー

f:id:yummac:20190702133543j:plain — PC-8001ゲームライブラリー

2019-07-18

【Airペイ】【楽天ペイ】A4プリンタでクレジットカード利用票を自動印刷

周辺機器 PC

Airペイと楽天ペイ、重複して契約は大丈夫？
普段はジャマな「チャットで問い合わせ」してみたら問題ないとのことで、
「Airペイ」に続き「楽天ペイ」での決済もできるようにした。

f:id:yummac:20190718180253j:plain — クレジットカード利用票

色違いの決済端末が２台並ぶ。

【Airペイ】A4プリンタでクレジットカード利用票を自動印刷

でやったように、楽天ペイのクレジットカード利用票（ご利用控え）も対応しよう！

概要

カード決済完了時、決済端末から印刷用に用意したメールアドレスに「利用票メール」を送信すると、PCに接続されたプリンタ（A4インクジェット利用）から、「クレジットカード利用票」がA6用紙で出力される。

変更点

・楽天ペイ用の利用票印刷サブルーチンを追加
・楽天ペイ用の仕訳ルールを追加
・テストや再印刷のため、仕訳ルール実行機能を作成

VBコード

Airペイ利用票印刷サブルーチン


Public Sub PrintMailBody(ByRef Item As Outlook.MailItem)
  On Error GoTo Err_PrintMailBody
  'Airペイ利用票印刷サブルーチン

  '利用票メールから本文を抜き出しワードで印刷（テンプレート使用）
  Dim ExtText As String
  Dim StaText As String
  Dim EndText As String
  Dim StaPos As Integer
  Dim EndPos As Integer
    
  '利用票メール文中の必要な部分の始まりと終わりを指定
  StaText = String(5, "=")
  EndText = String(20, "=")
  
  StaPos = InStr(Item.Body, StaText)
  EndPos = InStr(Item.Body, EndText)
  
  '利用票メールの内容を部分的にカスタマイズ
  ExtText = Replace(Mid(Item.Body, StaPos, EndPos - StaPos), "このメールを", "この利用票を")
  
  Const wdDoNotSaveChanges = 0
  With CreateObject("Word.Application")
    .Visible = False
'現行プリンタ名を調べ、出力プリンタを指定する（現行プリンタを変更しない）
'    MsgBox .activeprinter
    .WordBasic.FilePrintSetup Printer:="PX-105 Series(ネットワーク)", DoNotSetAsSysDefault:=1
'利用票テンプレートをフルパスで指定
    With .Documents.Add("C:\Users\xxxxx\Documents\Office のカスタム テンプレート\クレジットカードご利用票.dot")
      .Content.InsertAfter Text:=ExtText
      .PrintOut False
      .Close wdDoNotSaveChanges
    End With
    .Quit wdDoNotSaveChanges
  End With
  
Exit_PrintMailBody:
  Exit Sub
  
Err_PrintMailBody:
  MsgBox Err.Description
  Resume Exit_PrintMailBody
  
End Sub

楽天ペイ利用票印刷サブルーチン


Public Sub PrintMailBody_RPay(ByRef Item As Outlook.MailItem)
  On Error GoTo Err_PrintMailBody_RPay
  '楽天ペイ利用票印刷サブルーチン

  '利用票メールから本文を抜き出しワードで印刷（テンプレート使用）
  Dim ExtText As String
  Dim StaText As String
  Dim EndText As String
  Dim StaPos As Integer
  Dim EndPos As Integer
    
  '利用票メール文中の必要な部分の始まりと終わりを指定
  StaText = "ご利用明細"
  EndText = "お支払いは、各カード会社が発行するご利用代金明細書でご確認ください。"
  
  StaPos = InStr(Item.Body, StaText)
  EndPos = InStr(Item.Body, EndText) + Len(EndText)
  
  '利用票メールの内容を部分的にカスタマイズ
  ExtText = Replace(Mid(Item.Body, StaPos, EndPos - StaPos), "このメール", "この利用票")
  ExtText = Replace(ExtText, "<https://smartpay.rakuten.co.jp/img/mailmagazine/common/email/spacer.gif>", "")
  ExtText = Replace(ExtText, vbTab, "")
  '余分なｽﾍﾟｰｽ2+CRLFを消す
  ExtText = Replace(ExtText, "  " + vbCr + vbLf + "  ", "")
  
  Const wdDoNotSaveChanges = 0
  With CreateObject("Word.Application")
    .Visible = False
'現行プリンタ名を調べ、出力プリンタを指定する（現行プリンタを変更しない）
'    MsgBox .activeprinter
    .WordBasic.FilePrintSetup Printer:="PX-105 Series(ネットワーク)", DoNotSetAsSysDefault:=1
'利用票テンプレートをフルパスで指定
    With .Documents.Add("C:\Users\xxxxx\Documents\Office のカスタム テンプレート\クレジットカードご利用票.dot")
      .Content.InsertAfter Text:=ExtText
      .PrintOut False
      .Close wdDoNotSaveChanges
    End With
    .Quit wdDoNotSaveChanges
  End With
  
Exit_PrintMailBody_RPay:
  Exit Sub
  
Err_PrintMailBody_RPay:
  MsgBox Err.Description
  Resume Exit_PrintMailBody_RPay
  
End Sub

テストや再印刷のために、手動で実行するサブルーチンを作成
印刷したい利用票メールの「開封済み」を「未読」に変更してから実行する


Public Sub RunPrintRule()
    '利用票印刷ルールを手動で実行
    Dim colRules As Outlook.Rules
    Dim oRule As Outlook.Rule
    Dim oInbox As Outlook.Folder
    Dim oStore As Outlook.Store

    '利用票メールアドレスを設定
    Set oStore = Application.Session.Stores.Item("xxxxx@xxxxx.com")

    'Specify target folder for rule move action
    Set oInbox = oStore.GetDefaultFolder(olFolderInbox)
    
    'Get Rules from Session.DefaultStore object
    Set colRules = oStore.GetRules()
    
    'Create the rule by adding a Receive Rule to Rules collection
    'Airペイの仕訳ルール実行（未読メール対象）
    Set oRule = colRules.Item("クレジットカード利用票印刷")
    oRule.Execute True, oInbox, False, olRuleExecuteUnreadMessages
    
    '楽天ペイの仕訳ルール実行（未読メール対象）
    Set oRule = colRules.Item("クレジットカード利用票印刷RPay")
    oRule.Execute True, oInbox, False, olRuleExecuteUnreadMessages

End Sub

ホームバー（リボン）に手動で実行するボタンを配置すると便利