空きバイトを出力するルーチン
空きバイトを出力するルーチン
ボブ・ヒュールスドンク
メモリが32KB未満の場合は、30001行目のみが必要です。最初のGOTO 30000は、メモリが32KBを超える場合の結果を表示します。2番目のGOTO 30000は、メモリが32KB未満の場合の結果を表示します。
30000 IF PEEK (203)>128 THEN 30002
30001 PRINT PEEK (202)+ PEEK (203)*256- PEEK (204)- PEEK (205 )*256;” BYTES FREE”: END
30002 PRINT 32767-( PEEK (204)+ PEEK (205)*256);” BYTES + “; PEEK (202)+( PEEK< (203)-128)*256 +1;” BYTES FREE”: END
>GOTO 30000
30719バイト + 16226バイト空き
>30000へ移動
27193バイト無料
APPLE会長兼クラブ会長。ビルは1981年から1982年まで、創設者ヴァル・J・ゴールディングとAPPLEのために働きました。1999年、APPLEが配布・販売していた資料のアーカイブ化に着手しました。このプロジェクトが、APPLEの残党グループの設立へと繋がりました。ビルは東京の金融業界に携わり、20以上の主要なオフィスインフラプロジェクトを手掛けてきました。2001年3月、執筆活動や個人的な活動に専念するため、退職しました。ユーザーグループの会長として、ビルはCall-APPLEマガジンの発行とこのウェブサイトの運営を担当しています。現在は東京とワシントン州シェルトンを拠点に活動しています。
関連記事
