100 CALL CLEAR 110 CALL INIT::PRINT "LOADING COMPILER..."::CALL LOAD("DSK1.NEWFLO")::CALL LINK("NEWFLO") 120 IO(1)=3000::CALL LINK("COMPIL",IO(),S$(),C$())::If IO(1) THEN PRINT "Error ";IO(1)::END 130 PRINT "COMPILATION OK!" 800 CALL CLEAR 801 PRINT "LEVEL (1-20) :" :: input O 802 PRINT "SPEED (1 - 10000 ) :" :: input P 810 CALL CLEAR :: CALL LINK("ESSAI",O,P) 820 PRINT "GAME OVER" ::END 3000 DATA C 3010 DATA S35.FE28A8FDFF3D0000 3020 DATA S36.00000018183C3C18 3030 DATA S37.208A20058208A211 3040 DATA S38.32802600401248009 3050 DATA S65.2277FFD5AA55AA55 3060 DATA S104.FFFFFF9999FF9999 3070 DATA "" 3080 DATA P 3090 DATA ESSAI 3100 DATA "#A1.35 #C1.2 #A2.36 #C2.6 #A3.37 #C3.2 #A4.37 #C4.2 #A5.37 #C5.2 #A6.37 #C6.2 G1O G2P &S8 =L1 LA &CL2.8 IL CL4 !>A =L5 LA" 3110 DATA "&CL12.2 IL CL9 !>A =L10 LA &CL9.16 IL CL14 !>A =C32 LA &P24C65 DC !=A =I1 LA R /ZO +Z2 =Y24 =XI *X2 =JZ LB DY &PYX104 DJ !=B II" 3120 DATA "CI16 !>A =A1 =B1 =E0 =F0 La J0.1 CK15 _A !=A CE0 _B !=B =E1 =CA +C8 =DB /D8 *D8 LB LA IB CB256 _A !=A +A8 =B1 LA CA193 _A !=A Bx" 3130 DATA "LA #L1AB =YA =XB #&YX &GYXZ CZ104 _A !=A Bx LA CE1 _A !=A IC CC192 _B !=B #L2.192.256 =E0 _C BC LB #L2CD =YC =XD #&YX IX &GYXZ" 3140 DATA "CZ104 _D !=D #L2.192.256 =E0 =GY =I3 LE CY24 _F !E LD LC LA CF0 _A !>A #P3YX DY DX #L3YX #P4YX DY IX #L4YX #P5YX IY DX #L5YX #P6YX IY IX #L6YX IF CF10 _B !>B =F0" 3160 DATA "#L3.192.256 #L4.192.256 #L5.192.256 #L6.192.256 LB LA =IP LA DI !=A Ba Lx" 3170 DATA "" 3180 DATA ""