100 PROGRAM "bombazo"
  110 SET STATUSOFF
  120 DIM W(25,38)
  130 LET R=0:LET T$=""
  140 LET R$=" >-+":LET H$=CHR$(159)
  150 LET B$=" "&CHR$(180)&CHR$(184)&"↓"
  160 LET P=0:LET T$="":PRINT AT10,15:"kis turelmet!"
  170 CALL VAROS
  180 FOR F=2TO23
  190   FOR V=0TO34
  200     PRINT AT1,1:"Pont: ";P
  210     IF W(F,V+3)=1THENGOTO  570
  220     PRINT ATF,V:R$
  230     IF T$=" "THENGOTO  280
  240     FOR T=1TO0
  250     NEXT 
  260     LET T$=INKEY$
  270     IF T$=" "THENLET X=V+2:LET Y=F
  280     IF T$=" "THENCALL BONT
  290   NEXT 
  300   PRINT ATF,V:"   "
  310 NEXT 
  320 GOTO  170
  330 DEF BONT
  340   PRINT ATY,X:B$
  350   IF Y=22THENPRINT ATY+1,X:" ":LET W(Y+1,X)=0:LET T$=""
  360   IF W(Y,X)=1THENLET P=P+1:LET W(Y,X)=0
  370   LET D$=INKEY$:LET Y=Y+1
  380 END DEF 
  390 DEF VAROS
  400   FOR V=1TO38
  410     FOR F=1TO25
  420       LET W(F,V)=0
  430     NEXT 
  440   NEXT 
  450   CLEAR SCREEN
  460   PRINT AT1,20:"Rekord: ";R
  470   RANDOMIZE 
  480   PRINT AT24,2:"=====================================";
  490   FOR V=7TO33
  500     LET M=RND(17)
  510     FOR F=23TO23-MSTEP-1
  520       PRINT ATF,V:H$
  530       LET W(F,V)=1
  540     NEXT 
  550   NEXT 
  560 END DEF 
  570 LET R=MAX(P,R)
  580 FOR Y=FTO22
  590   PRINT ATY,V:"    "
  600   PRINT ATY+1,V:"*--*"
  610 NEXT 
  620 PRINT AT2,2:"tovåbb,vege t/v"
  630 LET Q$=INKEY$
  640 IF Q$="t"THENGOTO  160
  650 IF Q$<>"v"THENGOTO  630
  660 PRINT AT1,20:"rekord=";R