start tok64 d64-HvH9oZ
0 REM skriv list810-
1 GOSUB600
2 x=10
3 POKE53280,2:POKE53281,5
4 PRINT"{clear}"
5 a$="{space*2}Q{space*10}Q{space*2}"
7 ti$="{0*6}"
10 READt
15 IFt=100THENRESTORE:GOTO10
20 PRINTTAB(t);a$
21 GOSUB200
22 IFRND(1)>.97THENPRINTTAB(t+RND(1)+7)"{red}{up}V{black}"
25 b=b+1:IFb=600THEN100
30 GOTO10
40 DATA1,2,3,4,5,4,3,2,2,1,1,2,3,4,5,6,5,4,3,2,3,4,5,6,7,8,9,10,11,12,13,13,12
50 DATA12,11,10,9,8,7,6,5,4,5,6,7,7,6,5,4,3,3,3,2,1,100
100 PRINTTAB(t) "{space*3}Q{space*9}Q{space*2}"
110 PRINTTAB(t)"{space*4}Q{space*7}Q{space*2}"
120 a$="{space*4}Q{space*7}Q{space*2}"
130 GOTO10
200 GETf$
210 x=x+(f$="q")-(f$="p")
215 IFPEEK(1224+x)=81THEN500
217 IFPEEK(1224+x)=86THEN500
220 POKE1224+x,87
225 POKE55496+x,6
230 RETURN
500 POKE1224+x-1,77:POKE1224+x,66:POKE1224+x+1,78:POKE1264+x-1,67
501 POKE1264+x+1,67:POKE1304+x-1,78:POKE1304+x,66:POKE1304+x+1,77
510 v=54296:w=54276:a=54277:h=54273:l=54272
520 FORx=15TO0STEP-1:POKEv,x:POKEw,129:POKEa,15:POKEh,40:POKEl,200
525 FORe=1TO10:NEXTe:NEXT
530 POKEw,0:POKEa,0
540 FORw=1TO300:NEXTw
541 POKE53280,6:POKE53281,7
542 PRINT"{clear}"
543 PRINTTAB(3)"{reverse on}{space*5}{reverse off}{space*2}{reverse on}{space*4}{reverse off}{space*4}{reverse on}{space*4}{reverse off}{space*3}{reverse on}{space*4}{reverse off}{reverse on} {reverse off}{space*2}{reverse on} {reverse off}{space*3}{reverse on} {reverse off}"
544 PRINTTAB(3)"{reverse on} {reverse off}{space*6}{reverse on} {reverse off}{space*2}{reverse on} {reverse off}{space*4}{reverse on} {reverse off}{space*2}{reverse on} {reverse off}{space*3}{reverse on} {reverse off}{space*6}{reverse on} {reverse off}{space*3}{reverse on} {reverse off}"
545 PRINTTAB(3)"{reverse on} {reverse off}{space*6}{reverse on}{space*4}{reverse off}{space*3}{reverse on}{space*6}{reverse off}{space*2}{reverse on}{space*5}{reverse off}{space*2}{reverse on}{space*5}{reverse off}"
546 PRINTTAB(3)"{reverse on} {reverse off}{space*6}{reverse on} {reverse off}{space*3}{reverse on} {reverse off}{space*2}{reverse on} {reverse off}{space*4}{reverse on} {reverse off}{space*6}{reverse on} {reverse off}{space*2}{reverse on} {reverse off}{space*3}{reverse on} {reverse off}"
547 PRINTTAB(3)"{reverse on}{space*5}{reverse off}{space*2}{reverse on} {reverse off}{space*3}{reverse on} {reverse off}{space*2}{reverse on} {reverse off}{space*4}{reverse on} {reverse off}{space*2}{reverse on}{space*5}{reverse off}{space*2}{reverse on} {reverse off}{space*3}{reverse on} {reverse off}"
548 PRINT"{down*5}{space*2}tyvarr,du crashade med ormen{space*2}{!*5} "
550 PRINT"{down*4}{right*8}dina poang blev :";ti$
560 PRINT"{down*3}{right*7}tryck s for ett nytt spel"
570 GETan$:IFan$=" "THEN570
580 IFan$="s"THEN1
590 IFan$<>" "THEN570
600 PRINT"{clear}":REM forbildskarm
620 PRINT"{black}{space*8}{Q*3} {Q*3}{space*2}QQ{space*3}{Q*3}{space*2}Q{space*2}Q"
630 PRINT"{space*7}Q{space*4}Q Q Q{space*2}Q Q{space*5}Q{space*2}Q"
640 PRINT"{space*7}Q{space*4}{Q*3} {Q*4}{space*2}{Q*3}{space*2}{Q*4}"
650 PRINT"{space*7}Q{space*4}Q{space*2}QQ{space*2}Q{space*5}Q Q{space*2}Q"
660 PRINT"{space*8}{Q*3} Q{space*2}QQ{space*2}Q{space*2}{Q*3}{space*2}Q{space*2}Q"
665 PRINT:PRINT
670 PRINT"{space*5}Q{space*2}Q{space*2}Q{space*2}QQ{space*2}{Q*3}{space*2}QQ QQ{space*2}{Q*3}"
680 PRINT"{space*5}Q Q Q Q Q{space*2}Q Q{space*2}Q Q Q Q Q"
690 PRINT"{space*5}QQ{space*3}QQ Q{space*2}Q {Q*3}{space*2}Q{space*3}Q{space*2}{Q*3}"
700 PRINT"{space*5}QQ{space*3}QQ Q{space*2}Q Q{space*2}Q Q{space*3}Q{space*5}Q"
710 PRINT"{space*5}Q{space*5}Q{space*2}QQ{space*2}Q{space*2}Q Q{space*3}Q{space*2}{Q*3}"
720 PRINT"{down}{space*2}forsok med din mask att tranga dej"
730 PRINT"{down}{space*5}sa langt ner i jorden du kan{space*7}"
740 PRINT"{space*9}men se upp for minorna."
750 PRINT"{down}{space*8}(pd) tommy grandefors"
755 PRINT"{space*8}styr med 'q' och 'p'"
760 PRINT"{down}{space*14}{reverse on}f7{reverse off} = start"
790 GETt$:IFt$=""THEN790
800 IFt$<>"{f7}"THEN790
810 RETURN
815 REM
820 REM  skrivet av
830 REM          "
840 REM  tommy grandefors
845 REM                          "
850 REM  bygatan 22 a2, 290 71  morrum
860 REM         "
870 REM  mindre andringar 1991-01-11 av
880 REM
935 REM *scandinavien pd
945 REM *box 525
950 REM *s-191 05  sollentuna, sweden
960 REM *tel 08-964072
970 REM *tel int (+46) 8 964072
980 REM              "
990 REM  skriv/ring for lista!{arrow left}{arrow left}{arrow left}{arrow left}{arrow left}{arrow left}
1000 REM
stop tok64
(bastext 1.0)