start tok64 d64-nVBogh
5 FOR l=54272 TO 54296:POKE l,0:NEXT l
10 POKE 53280,6 :POKE 53281,7
15 PRINT"{clear}{down*3}"
20 PRINT"{space*13}datort[rning{space*28}{cm u*12}"
30 PRINT"{down*3}"
35 FOR vb=54272TO54296:POKEvb,0:NEXT vb
36 POKE54296,15:POKE54277,25:POKE54278,250
40 i=ti
50 a=INT(RND(i)*6+1)
60 ON aGOTO 100,200,300,400,500,600
70 b=INT(RND(i)*6+1)
80 ON bGOTO 150,250,350,450,550,650
100 PRINTTAB(11)"{cm d*7}"
105 PRINTTAB(11)"{cm j}{space*5}{cm l}"
110 PRINTTAB(11)"{cm j}{space*5}{cm l}"
115 PRINTTAB(11)"{cm j}{space*2}Q{space*2}{cm l}"
120 PRINTTAB(11)"{cm j}{space*5}{cm l}"
125 PRINTTAB(11)"{cm j}{space*5}{cm l}"
130 PRINTTAB(11)"{cm u*7}"
140 PRINT"{up*8}"
145 GOTO 70
150 PRINTTAB(22)"{cm d*7}"
155 PRINTTAB(22)"{cm j}{space*5}{cm l}"
160 PRINTTAB(22)"{cm j}{space*5}{cm l}"
165 PRINTTAB(22)"{cm j}{space*2}Q{space*2}{cm l}"
170 PRINTTAB(22)"{cm j}{space*5}{cm l}"
175 PRINTTAB(22)"{cm j}{space*5}{cm l}"
180 PRINTTAB(22)"{cm u*7}"
190 GOTO 900
200 PRINTTAB(11)"{cm d*7}"
205 PRINTTAB(11)"{cm j}{space*5}{cm l}"
210 PRINTTAB(11)"{cm j}Q{space*4}{cm l}"
215 PRINTTAB(11)"{cm j}{space*5}{cm l}"
220 PRINTTAB(11)"{cm j}{space*4}Q{cm l}"
225 PRINTTAB(11)"{cm j}{space*5}{cm l}"
230 PRINTTAB(11)"{cm u*7}"
240 PRINT"{up*8}"
245 GOTO 70
250 PRINTTAB(22)"{cm d*7}"
255 PRINTTAB(22)"{cm j}{space*5}{cm l}"
260 PRINTTAB(22)"{cm j}Q{space*4}{cm l}"
265 PRINTTAB(22)"{cm j}{space*5}{cm l}"
270 PRINTTAB(22)"{cm j}{space*4}Q{cm l}"
275 PRINTTAB(22)"{cm j}{space*5}{cm l}"
280 PRINTTAB(22)"{cm u*7}"
290 GOTO 900
300 PRINTTAB(11)"{cm d*7}"
305 PRINTTAB(11)"{cm j}{space*5}{cm l}"
310 PRINTTAB(11)"{cm j}Q{space*4}{cm l}"
315 PRINTTAB(11)"{cm j}{space*2}Q{space*2}{cm l}"
320 PRINTTAB(11)"{cm j}{space*4}Q{cm l}"
325 PRINTTAB(11)"{cm j}{space*5}{cm l}"
330 PRINTTAB(11)"{cm u*7}"
340 PRINT"{up*8}"
345 GOTO 70
350 PRINTTAB(22)"{cm d*7}"
355 PRINTTAB(22)"{cm j}{space*5}{cm l}"
360 PRINTTAB(22)"{cm j}Q{space*4}{cm l}"
365 PRINTTAB(22)"{cm j}{space*2}Q{space*2}{cm l}"
370 PRINTTAB(22)"{cm j}{space*4}Q{cm l}"
375 PRINTTAB(22)"{cm j}{space*5}{cm l}"
380 PRINTTAB(22)"{cm u*7}"
390 GOTO 900
400 PRINTTAB(11)"{cm d*7}"
405 PRINTTAB(11)"{cm j}{space*5}{cm l}"
410 PRINTTAB(11)"{cm j}Q{space*3}Q{cm l}"
415 PRINTTAB(11)"{cm j}{space*5}{cm l}"
420 PRINTTAB(11)"{cm j}Q{space*3}Q{cm l}"
425 PRINTTAB(11)"{cm j}{space*5}{cm l}"
430 PRINTTAB(11)"{cm u*7}"
440 PRINT"{up*8}"
445 GOTO 70
450 PRINTTAB(22)"{cm d*7}"
455 PRINTTAB(22)"{cm j}{space*5}{cm l}"
460 PRINTTAB(22)"{cm j}Q{space*3}Q{cm l}"
465 PRINTTAB(22)"{cm j}{space*5}{cm l}"
470 PRINTTAB(22)"{cm j}Q{space*3}Q{cm l}"
475 PRINTTAB(22)"{cm j}{space*5}{cm l}"
480 PRINTTAB(22)"{cm u*7}"
490 GOTO 900
500 PRINTTAB(11)"{cm d*7}"
505 PRINTTAB(11)"{cm j}{space*5}{cm l}"
510 PRINTTAB(11)"{cm j}Q{space*3}Q{cm l}"
515 PRINTTAB(11)"{cm j}{space*2}Q{space*2}{cm l}"
520 PRINTTAB(11)"{cm j}Q{space*3}Q{cm l}"
525 PRINTTAB(11)"{cm j}{space*5}{cm l}"
530 PRINTTAB(11)"{cm u*7}"
540 PRINT"{up*8}"
545 GOTO 70
550 PRINTTAB(22)"{cm d*7}"
555 PRINTTAB(22)"{cm j}{space*5}{cm l}"
560 PRINTTAB(22)"{cm j}Q{space*3}Q{cm l}"
565 PRINTTAB(22)"{cm j}{space*2}Q{space*2}{cm l}"
570 PRINTTAB(22)"{cm j}Q{space*3}Q{cm l}"
575 PRINTTAB(22)"{cm j}{space*5}{cm l}"
580 PRINTTAB(22)"{cm u*7}"
590 GOTO 900
600 PRINTTAB(11)"{cm d*7}"
605 PRINTTAB(11)"{cm j}{space*5}{cm l}"
610 PRINTTAB(11)"{cm j}Q{space*3}Q{cm l}"
615 PRINTTAB(11)"{cm j}Q{space*3}Q{cm l}"
620 PRINTTAB(11)"{cm j}Q{space*3}Q{cm l}"
625 PRINTTAB(11)"{cm j}{space*5}{cm l}"
630 PRINTTAB(11)"{cm u*7}"
640 PRINT"{up*8}"
645 GOTO 70
650 PRINTTAB(22)"{cm d*7}"
655 PRINTTAB(22)"{cm j}{space*5}{cm l}"
660 PRINTTAB(22)"{cm j}Q{space*3}Q{cm l}"
665 PRINTTAB(22)"{cm j}Q{space*3}Q{cm l}"
670 PRINTTAB(22)"{cm j}Q{space*3}Q{cm l}"
675 PRINTTAB(22)"{cm j}{space*5}{cm l}"
680 PRINTTAB(22)"{cm u*7}"
690 GOTO 900
900 PRINT
905 u=u+1
910 PRINT"{up*9}"
915 IF u>8 THEN u=0 :GOTO 930
916 GOSUB 1010
920 GOTO 50
930 PRINT"{down*11}{right*14}tryck space{!*3}";
940 RESTORE
950 GET a$:IF a$=""THEN 950
954 PRINT"{left*27}{space*39}"
955 PRINT"{up*14}"
960 GOTO 50
1010 POKE 54296,15
1020 POKE 54277,25:POKE 54278,250
1030 READ q:READ w
1035 IF q=-1ORw=-1THEN RETURN
1040 POKE 54273,q:POKE 54272,w
1050 POKE 54276,65
1060 FORt=1TO50:NEXT t
1070 POKE 54276,16
1080 RETURN
1100 DATA 17,37,19,63,21,154,22,227,25,177,28,214,32,94,34,175,123
1110 DATA 190,140,200,150,-1,-1
1120 REM ******************************
1130 REM ******************************
1135 REM ******************************
1140 REM *****                    *****
1150 REM ***** vill du byta spel  *****
1160 REM ***** till vic-64/20?    *****
1170 REM *****                    *****
1180 REM ***** skriv till:        *****
1190 REM *****                    *****
1200 REM ***** magnus enarsson    *****
1210 REM ***** str[det 28         *****
1220 REM ***** 29152 kristianstad *****
1230 REM *****                    *****
1240 REM ***** rinkaby 860302     *****
1250 REM *****                    *****
1260 REM ***** (skicka lista)     *****
1270 REM ******************************
1280 REM ******************************
1290 REM ******************************
stop tok64
(bastext 1.0)