!--------------------------------------------------
!- Monday, March 03, 2014 9:25:57 AM
!- Import of : 
!- C:\data\FIREBALL.prg
!--------------------------------------------------
10 POKE53281,1:POKE53280,2:PRINT"{clear}{red}"
20 K=K+1:IFK<2THENGOTO10
30 X=160
40 FORX=1024TO1063:POKEX,160:NEXTX:
50 FORX=1944TO2023:POKEX,160:NEXTX:
60 FORX=1064TO1904STEP40:POKEX,118:NEXT
70 FORX=1063TO2023STEP40:POKEX,97 :NEXT
80 POKE1160,81:POKE1399,81:POKE1835,81
90 POKE1670,81:POKE1220,81:POKE1516,81
100 POKE1801,81:POKE1330,81:POKE1147,81
110 POKE1818,81:POKE1689,81:POKE1570,81
120 FORX=1865TO1902:POKEX,120:NEXT:
130 POKE2023,160:POKE1983,160:POKE1063,160
140 POKE1904,160:POKE1943,160
150 POKE1026,147:POKE1027,131:POKE1028,143
160 POKE1029,146:POKE1030,133:POKE1031,186
170 P=1923:TI$="000000"
180 POKEP,113
190 PRINT"{up}{rvson}{space*2}score:";S;"{rvson}{space*2}fireball{space*5}time:";TI$;" "
200 J1=NOTPEEK(56321)AND15
210 B1=-((PEEK(56321)AND16)=0)
220 IFJ1=4THENP=P-1:POKEP+1,96
230 IFJ1=8THENP=P+1:POKEP-1,96
240 IFJ1=4ANDPEEK(P-1)=160THENP=P+1
250 IFJ1=8ANDPEEK(P+1)=160THENP=P-1
260 IFB1=1THENGOSUB290
270 IF TI$>"000059"THENGOTO550
280 GOTO180
290 FORX=PTOP-800STEP-40
300 POKEX-40,30:POKEX+40,96
310 NEXTX
320 POKEP+40,160
330 POKEP-40,120
340 FORB=1065TO1102:POKEB,96:NEXT
350 FORB=1105TO1142:POKEB,96:NEXT
360 IFPEEK(1689)=96THENS=S+1:POKE1689,42
370 IFPEEK(1570)=96THENS=S+1:POKE1570,42
380 IFPEEK(1160)=96THENS=S+1:POKE1160,42
390 IFPEEK(1399)=96THENS=S+1:POKE1399,42
400 IFPEEK(1835)=96THENS=S+1:POKE1835,42
410 IFPEEK(1801)=96THENS=S+1:POKE1801,42
420 IFPEEK(1670)=96THENS=S+1:POKE1670,42
430 IFPEEK(1516)=96THENS=S+1:POKE1516,42
440 IFPEEK(1147)=96THENS=S+1:POKE1107,42
450 IFPEEK(1330)=96THENS=S+1:POKE1330,42
460 IFPEEK(1818)=96THENS=S+1:POKE1818,42
470 IFPEEK(1220)=96THENS=S+1:POKE1220,42
480 FORJ=1TO 4
490 K=INT(2023*RND(1)+1024)
500 IF K>1862THEN490
510 IF K<1065THEN490
520 POKEK,42
530 NEXTJ
540 RETURN
550 PRINT"{clear}":Z=52-20
560 PRINT"{up}{rvson}{space*14}game over{space*17}"
570 PRINT"{down*5}"
580 PRINT"{space*6}your{space*2}one{space*2}minute{space*2}is{space*2}up !"/{13}N{2}PRINT"{down*2}"
600 PRINT"{space*10}your score is :";S
610 PRINT"{down*2}"
620 PRINT"{space*10}try to beat{space*3}:";Z+10
630 PRINT"{down*2}"
640 PRINT"{space*6}press return to play again!"E{14}RUN{2}GETA$:IFA$=""THEN650
660 IFA$<>CHR$(13)THENGOTO650
670 RUN