余りにも暇だぞｺﾞﾙｧ
VX-4だが
10 CLS:CLEAR
20 A$=INKEY$
30 IF A$<>CHR$(250) THEN 20
40 CLS
50 PRINT "********************************";
60 PRINT " All Reset Memory ";
70 PRINT " RAM : 8 KB + 0 KB ";
80 PRINT "********************************";
90 LOCATE 0,7
100 FOR A = 0 TO 180:NEXT
110 LOCATE 0,0
120 FOR A = 0 TO 150:NEXT
130 GOTO 90

実行するとキー入力を待つ
ALL RESETが押されると画面を表示する
カンニングに使ってくだされ
これとメモ機能をあわせれば
ポケコン持ち込める授業は余裕でそ？