70 REM LANDER
80 REM EXTENDED BASIC
90 REM AV BO ASMUNDSSON
100 LT=1000000
110 CALL CLEAR
120 CALL SCREEN(2)
130 FOR A=1 TO 9
140 CALL COLOR(A,16,1)
150 NEXT A
160 CALL CHAR(93,"18183C42427E4242")
170 CALL CHAR(91,"24003C42427E4242")
180 CALL CHAR(92,"24003C424242423C")
190 CALL CHAR(96,"FFFFFFFFFFFFFFFF")
200 CALL CHAR(97,"FFF9F9F9F9F9F9F9")
210 CALL CHAR(98,"F9F9F9F9F9F9F9F9")
220 CALL CHAR(99,"F9F9F9F9F9F9F9FF")
230 DISPLAY AT(2,1):"a   ``a a  a `a  ``a `a     b   b b `a b b a b   b b    b   ``b b `b b b `b  `b     b   b b b  b b c b   b a   "
240 DISPLAY AT(6,1):"``b c c c  c `c  ``b c c"
250 DISPLAY AT(8,1):"K\\R DIN LANDARE GENOM DE": :"TR]NGA G]NGARNA TILL DIN LA-": :"NDNINGSPLATS P] KORTAST": :"M\\JLIGA TID."
260 DISPLAY AT(16,1):"AKTA DIG F\\R ATT ]KA F\\R": :"N[RA V[GGARNA": :"STYR MED:   E=GAS":"            S=STYR V[NSTER":"            D=STYR H\\GER"
270 DISPLAY AT(24,1):"TRYCK NED EN TANGENT" :: CALL KEY(0,K,S) :: IF S=0 THEN 270
280 CALL CLEAR :: DISPLAY AY(10,1):"OBS!   LANDA INTE F\\R SNABBT" :: FOR D=1 TO 500 :: NEXT D
290 CALL CLEAR :: CALL COLOR(9,14,1)
300 CALL CHAR(112,"000084761F1F0F3FFF03070D19210302010286CCF8F3FCF8F0F8FE311804")
310 CALL HCHAR(1,1,96,32)
320 CALL VCHAR(1,32,96,24)
330 CALL HCHAR(24,1,96,32)
340 CALL VCHAR(1,1,96,24)
350 FOR A=6 TO 10
360 CALL HCHAR(A,9,96,23)
370 NEXT A
380 FOR A=14 TO 24
390 CALL HCHAR(A,1,96,29)
400 NEXT A
410 T=0
420 DISPLAY AT(20,2)SIZE(4):"TID:"
430 DISPLAY AT(22,2)SIZE(11):"L[GSTA TID:"
440 FOR A=1 TO 8
450 CALL COLOR(A,16,1)
460 NEXT A
470 CALL MAGNIFY(3)
480 CALL CHAR(104,"00070F1E1C1E0F07070C18101010103800E0F0783878F0E0E03018080808081C")
490 CALL CHAR(108,"FFFFFFFF000000000000000000000000FFFFFFFF")
500 CALL SPRITE(#2,108,16,182,233)
510 CALL SPRITE(#1,104,8,16,230)
520 CALL KEY(1,K,S)
530 IF K=5 THEN G=G-.5 :: CALL SOUND(-800,125,8,-7,15) :: GOTO 560
540 IF K=2 THEN H=H-.3
550 IF K=3 THEN H=H+.3
560 CALL MOTION(#1,G,H)
570 G=G+.2
580 CALL POSITION(#1,X,Y)
590 IF X>3*8 AND Y<11*8-7 AND Y>49 THEN 680
600 IF X>11*8 AND Y<232 THEN 680
610 IF Y<8 OR Y>234 THEN 680
620 IF X<8 OR X>184 THEN 680
630 CALL COINC(ALL,KG)
640 IF KG THEN 790
650 T=T+1
660 DISPLAY AT(20,6)SIZE(4):T
670 GOTO 520
680 REM ####CRASH#####
690 G,H=0 :: CALL MOTION(#1,0,0)
700 CALL COLOR(#1,9)
710 CALL PATTERN(#1,112)
720 FOR A=9 TO 16 :: CALL COLOR(#1,A) :: CALL SOUND(-800,125,A,-5,15) :: NEXT A
730 CALL COLOR(#1,11)
740 CALL SOUND(100,-7,15)
750 CALL DELSPRITE(#1)
760 FOR A=1 TO 500
770 NEXT A
780 GOTO 410
790 CALL MOTION(#1,0,0)
800 IF G>2 THEN 680
810 IF T<LT THEN DISPLAY AT(22,13)SIZE(4):T :: LT=T
820 FOR A=200 TO 300 STEP 10
830 CALL SOUND(100,A,4)
840 NEXT A
850 GOTO 410