5 REM *OSTROM*
   10 LET LP=500:TEXT 
   20 SET CHARACTER140,66,90,90,126,24,60,36,36
   22 SET CHARACTER141,0,88,88,126,26,60,38,96
   23 SET CHARACTER142,0,26,26,126,88,60,100,7
   24 SET CHARACTER143,0,0,0,60,126,126,60,0
   26 SET CHARACTER144,0,254,254,254,0,239,239,239
   28 SET CHARACTER145,65,36,138,16,37,32,138,32
   29 REM *UTMUTATO*
   30 PRINT AT1,9:"OSTROM"
   40 PRINT AT5,0:" DOBJAL SZIKLAKAT A TAMADO KATONAKRA ES AKADALYOZD MEG,HOGY ELERJEK A FAL TETEJET!"
   42 PRINT AT10,1:"BALRA.............X"
   44 PRINT AT11,1:"JOBBRA............V"
   46 PRINT AT12,1:"KO LEHAJITASA.....SPACE"
   50 PRINT AT16,1:"NYOMD LE BARMELYIK BILLENTYUT ES INDUL!"
   60 IF INKEY$=" "THENGOTO  1000
   70 GOTO  60
 1000 GOSUB  8500
 1010 GOTO  4000
 2999 REM *CIKLUSOK*
 3000 FOR N=3TO20
 3002   PRINT ATN,A:"ƒ":PRINT ATN,A:"π":PRINT AT3,A:" ":PRINT AT4,A-1:" → "
 3003 NEXT N
 3005 LET P=P+2
 3007 PRINT AT1,6:P
 3010 LET X(A)=21
 3012 PRINT AT21,A:"Σ"
 3030 RETURN 
 4000 TEXT 
 4010 FOR N=5TO21
 4012   PRINT ATN,0:"ππππππππππππππππππππππππππππππππ"
 4014 NEXT N
 4020 PRINT AT4,A-1:" → "
 4030 FOR N=1TO30
 4032   PRINT ATX(N),Y(N):"Ω"
 4034 NEXT N
 4040 PRINT AT1,1:"IDO:",P:PRINT AT1,16:"LEGJOBB IDO:";LP
 4050 LET Z=INT(RND*30)+1
 4060 FOR D=1TO2
 4062   PRINT ATX(Z),Y(Z):"π"
 4064   LET X(Z)=X(Z)-1
 4070   PRINT ATX(Z),Y(Z):"▮"
 4080   IF X(Z)=4THENGOTO  5000
 4086 NEXT D
 4090 IF INKEY$="v"ORINKEY$="V"ANDA<30THENLET A=A+1
 4091 IF JOY(0)=1ANDA<30THENLET A=A+1
 4100 IF INKEY$="x"ORINKEY$="X"ANDA>1THENLET A=A-1
 4101 IF JOY(0)=2ANDA>1THENLET A=A-1
 4110 PRINT AT3,A-1:" ƒ ":PRINT AT4,A-1:" → "
 4120 IF INKEY$=" "THENGOSUB  3000
 4121 IF JOY(0)=16THENGOSUB  3000
 4130 PRINT ATX(Z),Y(Z):"Ω"
 4132 LET P=P+1
 4134 PRINT AT1,6:P
 4136 GOTO  4050
 4999 REM*VEGE UJRAKEZDES*
 5000 IF Y(Z)>ATHENPRINT ATX(Z),Y(Z):" "
 5002 LET Y(Z)=Y(Z)-1
 5004 PRINT ATX(Z),Y(Z):"Ω"
 5006 END IF 
 5010 IF Y(Z)<ATHENPRINT ATX(Z),Y(Z):" "
 5012 LET Y(Z)=Y(Z)+1
 5014 PRINT ATX(Z),Y(Z):"Ω"
 5016 END IF 
 5020 PRINT ATX(Z),Y(Z):"▮"
 5030 IF Y(Z)<>ATHENGOTO  5000
 5040 PRINT AT4,A:"→"
 5050 PRINT AT3,A:"Ω"
 5060 FOR N=1TO10
 5064   PRINT AT3,A:"Ω"
 5066   PING 
 5070   PRINT AT3,A:"▮"
 5080 NEXT N
 5090 PRINT AT3,A:" ":PRINT AT4,A:"Ω"
 5092 FOR C=5TO20
 5094   PRINT ATC,A:"→":PRINT ATC,A:"π"
 5100 NEXT C
 5110 PRINT ATC,A:"Σ"
 5120 IF P>LPTHENLET LP=P:PRINT AT2,8:"UJ REKORD IDO!"
 5130 PRINT AT23,1:"NYOMD MEG BARMELYIK GOMBOT HA SZERETNEL UJRA JATSZANI!"
 5140 IF INKEY$=""THENGOTO  5140
 5150 TEXT 
 5160 GOTO  1000
 8000 REM*VALTOZOK*
 8500 LET P=0:LET A=15
 8510 DIM X(30),Y(30)
 8520 FOR N=1TO30
 8530   LET X(N)=21
 8540   LET Y(N)=N
 8550 NEXT N
 8560 RETURN