PB-100F

　実はこれ、こちらの企画に向けて数ヶ月前から寝かしてたネタでして。4桁の乱数発生器、たったそれだけなんですがメモリの追加もしてないので、これでも残りステップ数は僅かなものになってます。

　相変わらず撮影が下手ですねぇ〜(^^;

1 T=150:GOSUB 51
5 PRINT CSR3;"CASIO";
6 GOSUB 50
10 PRINT CSR2;"PB-100F";
15 GOSUB 50
20 PRINT "PERSONAL COMPUTER";
25 GOSUB 50
30 A$= STR$( INT( RAN#*10000))
31 ON LEN(A$) GOTO 41,42,43,44
41 A$="000"+A$: GOTO 44
42 A$="00"+A$: GOTO 44
43 A$="0"+A$: GOTO 44
44 PRINT CSR4;A$;
45 T=T*2: GOSUB 50:T=T/2
49 GOTO 5
50 FOR I=1 TO T: NEXT I
51 PRINT CSR0;: PRINT "            ";: PRINT CSR0;
55 RETURN