10　CONSOLE0,16,0:CLS:A=-6:B=15
20　LOCATE0,15:PRINT"＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊
30　LOCATERND(1)*5+12,14
40　C=STICK(0):B=B-(C=3)+(C=7)
50　IFSCREEN(B,5)=42THENPRINTA:END
60　PRINT"　　　　":LOCATEB,5
70　PRINT"●":A=A+1:GOTO20

トップ > 雑多なもの > PC-6001自作ゲーム思い出語り > 穴もぐりゲーム リスト