パソコンをつくろう！（パソコン自作のすすめ）
組み立てキットを使って自作に挑戦！

［第４４０回］



●Ｗｉｎｅ（１５）ＺＢ３ＤＯＳでとりあえずスクロールできました

実は。
今回お見せする画像は４月２４日に行なったテストの記録ですから約一週間前のものです。
すぐにＵＰしようと思ったのですが先に「備忘録」をまとめておかなくてはと思ったのでそちらを優先して書きました。
「下手な鉄砲も数撃てば…」的にあれこれ思いつくままに試行錯誤していてたまたまヒットしました。
ＺＢ３ＤＯＳ（ＣＰ／Ｍ互換ＤＯＳ）についてはクリアできました（と思ったのですが…）。
ＺＢ３ＢＡＳＩＣは駄目です。
まずはＺＢ３ＤＯＳのみに注目して試行錯誤したのでＺＢ３ＤＯＳについてはうまくいきました。

／ｃｐｍでＺＢ３ＤＯＳ（ＣＰ／Ｍ互換ＤＯＳ）を起動しました。

ＤＩＲ表示もうまくいきました。
ＭＢＡＳＩＣを起動しました。

ＳＴＡＲＴＲＥＫ．ＢＡＳをＬＯＡＤしました。

ここまではスクロール前なので以前でもうまくできていました。

ＬＩＳＴコマンドを実行しました。

以前はスクロールできませんでしたが今回は最後までしっかりスクロール表示できました。

ＳＴＡＲＴＲＥＫを実行します。

最下行でＲＵＮコマンドを入力します。

ＳＴＡＲＴＲＥＫが開始されました。
途中の表示です。

うまくスクロール表示できています。

ここで「Ｙ」を入力すると先に進みます。


ＡＲＥ　ＹＯＵ…の行を含めて（消えないで）正しくスクロールされています。

ＣＯＭＭＡＮＤ？に［Ｃｔｒｌ］［Ｃ］を入力するとＳＴＡＲＴＲＥＫが終了します。

ＢＲＥＡＫしました。

ここでも正しくスクロール表示されています。
ここまでＭＢＡＳＩＣが起動中です。

ＳＹＳＴＥＭコマンドを入力するとＭＢＡＳＩＣが終了してＺＢ３ＤＯＳ（ＣＰ／Ｍ互換ＤＯＳ）に戻ります。

ＺＢ３［Ｅｎｔｅｒ］の入力でＺＢ３ＤＯＳを終了してＺＢ３ＢＡＳＩＣに戻ります。

下は以上の操作のログです。
ＳＴＡＲＴＲＥＫ．ＢＡＳのプログラムは長いので途中をカットしました。

logfile nd80zlog\04240731.txt open zb3dos3u 2016.4.9 by Chunichidenko ND80Z3に接続しました 0001 0000 - z 1000 00C3 - >/cpm . drive D ................................ drive C ................................ drive B ................................ drive A ................................ A>dir A: MBASIC COM : STARTREK BAS A>mbasic BASIC-80 Rev. 5.21 [CP/M Version] Copyright 1977-1981 (C) by Microsoft Created: 28-Jul-81 28728 Bytes free Ok load "STARTREK Ok list list 10 REM **** 20 WIDTH 80 30 PRINT CHR$(26) 220 FOR XX=1 TO 6:PRINT:NEXT:PRINT TAB(20);"THE USS ENTERPRISE --- NCC-1701": PRINT:FOR YY=1 TO 40 STEP 2 221 PRINT TAB(YY);" ,------*------," 222 PRINT TAB(YY);" ,------------- '--- ------'" 223 PRINT TAB(YY);" '-------- --' / /" 224 PRINT TAB(YY);" ,---' '-------/ /--," 225 PRINT TAB(YY);" '----------------'":PRINT:PRINT: FOR ZZ=1 TO 7:P RINT CHR$(11);:NEXT ZZ:NEXT YY 227 PRINT:PRINT:PRINT:PRINT:PRINT 260 CLEAR 600 270 Z$=" " 330 DIM G(8,8),C(9,2),K(3,3),N(3),Z(8,8),D(8) 370 T=INT(RND(1)*20+20)*100:T0=T:T9=25+INT(RND(1)*10):D0=0:E=3000:E0=E 440 P=10:P0=P:S9=200:S=0:B9=0:K9=0:X$="":X0$=" IS " 470 DEF FND(D)=SQR((K(I,1)-S1)^2+(K(I,2)-S2)^2) ＊＊＊＊＊＊＊＊＊＊＊＊途中を省略しました＊＊＊＊＊＊＊＊＊＊＊＊＊ 9150 G2$="CAPELLA":GOTO 9210 9160 G2$="BETELGEUSE":GOTO 9210 9170 G2$="ALDEBARAN":GOTO 9210 9180 G2$="REGULUS":GOTO 9210 9190 G2$="ARCTURUS":GOTO 9210 9200 G2$="SPICA" 9210 IF G5<>1 THEN ON Z5 GOTO 9230,9240,9250,9260,9230,9240,9250,9260 9220 RETURN 9230 G2$=G2$+" I":RETURN 9240 G2$=G2$+" II":RETURN 9250 G2$=G2$+" III":RETURN 9260 G2$=G2$+" IV":RELIST 9999 END220 RETURN Ok run THE USS ENTERPRISE --- NCC-1701 ,------*------, ,------------- '--- ------' '-------- --' / / ,---' '-------/ /--, '----------------' ,------*------, ,------------- '--- ------' '-------- --' / / ,---' '-------/ /--, '----------------' ,------*------, ,------------- '--- ------' '-------- --' / / ,---' '-------/ /--, '----------------' ,------*------, ,------------- '--- ------' '-------- --' / / ,---' '-------/ /--, '----------------' ,------*------, ,------------- '--- ------' '-------- --' / / ,---' '-------/ /--, '----------------' ,------*------, ,------------- '--- ------' '-------- --' / / ,---' '-------/ /--, '----------------' ,------*------, ,------------- '--- ------' '-------- --' / / ,---' '-------/ /--, '----------------' ,------*------, ,------------- '--- ------' '-------- --' / / ,---' '-------/ /--, '----------------' ,------*------, ,------------- '--- ------' '-------- --' / / ,---' '-------/ /--, '----------------' ,------*------, ,------------- '--- ------' '-------- --' / / ,---' '-------/ /--, '----------------' ,------*------, ,------------- '--- ------' '-------- --' / / ,---' '-------/ /--, '----------------' ,------*------, ,------------- '--- ------' '-------- --' / / ,---' '-------/ /--, '----------------' ,------*------, ,------------- '--- ------' '-------- --' / / ,---' '-------/ /--, '----------------' ,------*------, ,------------- '--- ------' '-------- --' / / ,---' '-------/ /--, '----------------' ,------*------, ,------------- '--- ------' '-------- --' / / ,---' '-------/ /--, '----------------' ,------*------, ,------------- '--- ------' '-------- --' / / ,---' '-------/ /--, '----------------' ,------*------, ,------------- '--- ------' '-------- --' / / ,---' '-------/ /--, '----------------' ,------*------, ,------------- '--- ------' '-------- --' / / ,---' '-------/ /--, '----------------' ,------*------, ,------------- '--- ------' '-------- --' / / ,---' '-------/ /--, '----------------' ,------*------, ,------------- '--- ------' '-------- --' / / ,---' '-------/ /--, '----------------' YOUR ORDERS ARE AS FOLLOWS: -------------------------- DESTROY THE 19 KLINGON WARSHIPS WHICH HAVE INVADED THE GALAXY BEFORE THEY CAN ATTACK FEDERATION HEADQUARTERS ON STARDATE 2428 . THIS GIVES YOU 28 DAYS. THERE ARE 3 STARBASES IN THE GALAXY FOR RESUPPLYING YOUR SHIP. ARE YOU READY TO ACCEPT COMMAND ('N' FOR INSTRUCTIONS)? y YOUR MISSION BEGINS WITH YOUR STARSHIP LOCATED IN THE GALACTIC QUADRANT, 'CAPELLA I'. +--1---2---3---4---5---6---7---8-+ 1 | <E> * | 1 STARDATE 2400.0 2 | | 2 CONDITION GREEN 3 | * * | 3 QUADRANT 3 , 5 4 | * | 4 SECTOR 1 , 7 5 | | 5 PHOTON TORPEDOES 10 6 | * | 6 TOTAL ENERGY 3000 7 | * * * | 7 SHIELDS 0 8 | | 8 KLINGONS REMAINING 19 +--1---2---3---4---5---6---7---8-+ COMMAND? ^C Break in 2060 Ok system A>zb3 >/exit 0000 00C3 - リモート接続を終了しました logfile closed at Fri Apr 24 07:35:19 2026

ＺＢ３ＤＯＳ（ＣＰ／Ｍ互換ＤＯＳ）については「スクロール表示問題」はクリアできたのですが。
ログのＺＢ３ＤＯＳ部分には余計な「改行」が挿入されてしまいました。
まあでも。
辛うじて合格点というところでしょう。

パソコンをつくろう！［第４４０回］
２０２６．４．３０ｕｐｌｏａｄ

前へ
次へ
目次へ戻る
ホームページトップへ戻る