start tok64 d64-K1mmb3
0 GOTO10000
1 PRINT"{clear}":POKE53280,0:POKE53281,0
2 PRINT"{white}{space*15}survive"
3 PRINT"{down*13}{right*8}tryck p] en tangent"
4 GET a$:IF a$=""THEN 4
5 PRINT"{clear}"
6 PRINT"{down*11}{space*13}varpa games
7 FOR x=1 TO 500:NEXT x
8 PRINT"{red}{up}{space*13}varpa games"
9 FOR x=1TO500:NEXT x
10 PRINT"{cyan}{up}{space*13}varpa games"
11 FOR x=1TO500:NEXT x
12 PRINT"{156}{up}{space*13}varpa games"
13 FOR x=1TO500:NEXT x
14 PRINT"{green}{up}{space*13}varpa games"
15 FOR x=1TO 500:NEXT x
16 PRINT"{blue}{up}{space*13}varpa games"
17 FOR x=1TO 500:NEXT x
18 PRINT"{yellow}{up}{space*13}varpa games"
19 FOR x=1TO500:NEXT x
20 PRINT"{orange}{up}{space*13}varpa games"
21 FOR x=1TO500:NEXT x
22 PRINT"{brown}{up}{space*13}varpa games"
23 FOR x=1TO500:NEXT x
24 PRINT"{pink}{up}{space*13}varpa games"
25 FOR x=1TO500:NEXT x
26 PRINT"{dark gray}{up}{space*13}varpa games"
27 FOR x=1TO500:NEXT x
28 PRINT"{gray}{up}{space*13}varpa games"
29 FOR x=1TO 500:NEXT x
30 PRINT"{light green}{up}{space*13}varpa games"
31 FOR x=1TO500:NEXT x
32 PRINT"{light blue}{up}{space*13}varpa games"
33 FOR x=1TO500:NEXT x
34 PRINT"{light gray}{up}{space*13}varpa games"
35 FOR x=1TO500:NEXT x
36 GOTO350
40 POKE53269,1
50 POKE2040,13
60 FOR s=0TO62
70 READ d
80 POKE s+832,d
90 NEXT s
100 DATA 1,0,0,1,128,0,1,192,0,1,224,0,1,240,0,1,248,0,1,252,0
110 DATA 1,254,0,1,255,0,1,255,128,1,255,192,1,255,224,1,255,240,1,255,248
120 DATA 1,255,252,1,0,0,255,255,255,127,255,255,63,255,254,15,255,253
130 DATA 3,255,249
140 PRINT"{clear}"
150 FOR s=0TO399
160 POKE 1024+s,160
170 POKE 55296+s,14
180 NEXT s
190 POKE 53249,120
200 POKE 53287,1
210 POKE 53269,1
220 POKE 53264,1
230 FOR s=0TO399
250 FOR s=0TO50:NEXT
270 POKE 53264,0
280 FOR x=255 TO 0STEP-1
290 POKE 53248,x
300 FOR s=0TO50:NEXT
310 NEXT x
340 POKE 53264,0                                                                
341 GOTO380
350 PRINT"{white}{down*2}{space*13}presenterar
352 FORx=1TO1250:NEXT x
353 PRINT"{clear}"
354 PRINT"{down*12}
356 PRINT"{space*15}{pink}s"
357 FOR x=1TO1000:NEXT x
358 PRINT"{up}{space*15}su"
359 FOR x=1TO1000:NEXT x
360 PRINT"{up}{space*15}sur"
361 FORx=1TO1000:NEXT x
362 PRINT"{up}{space*15}surv"
363 FOR x=1TO1000:NEXT x
364 PRINT"{up}{space*15}survi"
365 FOR x=1TO1000:NEXT x
366 PRINT"{up}{space*15}surviv"
367 FOR x=1TO1000:NEXT x
368 PRINT"{up}{space*15}survive"
369 FOR x=1TO1700:NEXT x
370 GOTO40
380 PRINT"{white}{down*11}du ser ut {pound}ver havet d[r en b]t just"
381 PRINT"passerat."
382 PRINT"en man kommer fram till dej och fr]gar"
383 PRINT"om du [r intresserad av att tj[na "
384 PRINT"pengar."
385 PRINT"vad s[jer du "
386 INPUT"";a$
387 IF a$="ja"THEN GOTO 420
388 IF a$="nej"THEN GOTO 400
389 IF a$<>"yes"THENGOTO 395
395 PRINT"jag f{pound}rst]r inte?"
396 GOTO385
400 PRINT"det h[r tillf[llet f]r du inte missa."
401 PRINT"du har chansen att bli v[ldigt rik"
402 PRINT"vad s[jer du
403 INPUT"";a$
404 IF a$="ja"THEN GOTO420
405 IF a$="nej"THEN GOTO409
406 IF a$<>"yes"THEN GOTO 407
407 PRINT"jag f{pound}rst]r inte?"
408 GOTO402
409 PRINT"tyv[r har jag inget annat val s[jer "
410 GOTO451
411 PRINT"{clear}":PRINT"[ventyret [r slut.
412 PRINT"{down*3}gjort av j{pound}rgen mattsson fr]n"
413 PRINT"varpa games"
414 PRINT"vill du spela igen"
415 INPUT"";a$
416 IF a$="ja"THEN GOTO 380
417 IF a$="nej"THEN GOTO5000
418 IF a$<>"yes"THEN GOTO419
419 PRINT"ja/nej":GOTO 414
420 PRINT"{down*2}mannen s[ger att det r{pound}r sej om ett"
421 PRINT"uppdrag,och tar dej med till v[rdshuset"
422 GOTO 460
451 PRINT"{down*2}tryck mellanslag"
452 GET a$:IF a$=""THEN452
453 GOTO411
460 PRINT"n[r du kommer in i v[rdshuset ser du"
466 PRINT"stadens borgm[stare st] d[r"
470 PRINT"jag har ett uppdrag ]t dej s[ger han"
475 PRINT"du ska befria min dotter som har"
479 PRINT"tillf]ngatagits av str]tr{pound}vare."
485 PRINT"om du befriar henne f]r du bra betalt."
488 PRINT"]tar du dej uppdraget"
489 INPUT"";a$
490 IF a$="ja"THEN GOTO 520
491 IF a$="nej"THEN GOTO 500
492 IF a$<>"yes"THEN GOTO 493
493 PRINT"jag f{pound}rst]r inte?"
494 GOTO488
500 PRINT"jag vill aldrig se dej i min stad mer"
501 PRINT"f{pound}rsvinn{!*5}"
502 PRINT"tryck mellanslag"
503 GET a$:IF a$=""THEN 503
504 GOTO 411
520 PRINT"{clear}":PRINT"av oss kommer du att f]:"
524 PRINT"20 guldmynt"
526 PRINT"{down}ett sv[rd"
528 PRINT"{down}en karta"
530 PRINT"{down}tv] dagars proviant."
532 PRINT"{down*2}[r du beredd att ge dej av"
533 INPUT"";a$
534 IF a$="ja"THEN GOTO550
535 IF a$="nej"THEN GOTO543
536 IF a$<>"yes"THEN GOTO537
537 PRINT"{down}jag f{pound}rst]r inte,(jaNnej)"
538 GOTO532
543 GOTO500
550 PRINT"{clear}":PRINT"n[r du gett dej av fr]n v[rdshuset s]"
553 PRINT"m{pound}ter du en man."
555 PRINT"han fr]gar vart du [r p] v[g?"
557 PRINT"vad svarar du"
570 INPUT"";a$
573 IF a$="bort"THEN GOTO 650
576 IF a$="jaga"THEN GOTO 650
579 IF a$="befria borgm[starens dotter"THEN GOTO690
582 IF a$="det har inte du med att g{pound}ra"THEN GOTO710
585 IF a$<>"yes"THEN GOTO590
590 PRINT"v[lj n]got av dessa kommandon"
595 PRINT"{down}bort,jaga,befria borgm[starens dotter"
600 PRINT",det har inte du med att g{pound}ra"
605 GOTO557
650 PRINT"{down}jaha s[ger mannen och g]r sin v[g"
655 GOTO 720
690 PRINT"jag hatar borgm[staren s[ger mannen"
691 PRINT"mannen d{pound}dar dej"
692 GOTO451
710 PRINT"du [r f{pound}r st{pound}ddig s[ger mannen som [r"
711 PRINT"karate m[stare han sl]r ner dej p] tv]"
712 PRINT"slag"
713 GOTO 451
720 PRINT"n[r du har g]tt i fem timmar kommer du"
724 PRINT"fram till en grotta du g]r in i grottan"
726 PRINT"{down*4}{right*5}tryck p] mellanslag"
729 GET a$:IF a$=""THEN 729
732 POKE53280,1
733 POKE53280,0
734 POKE53280,3
735 POKE53280,5
736 POKE53280,8
737 POKE53280,10
739 POKE53280,13
740 POKE53280,16
742 POKE53281,4
745 POKE53280,0
746 POKE53281,80
748 POKE53281,54
750 POKE53281,0
753 PRINT"{clear}":PRINT"du har f{pound}rflyttats till nutid"
755 PRINT"du befinner dej p] ett minf[lt"
794 PRINT"du g]r till ett hus du knackar p]"
798 PRINT"en man {pound}ppnar,han s[ger att du ska"
800 PRINT"sticka"
803 INPUT"vad s[ger du";a$
805 IF a$="nej"THEN GOTO850
807 IF a$="ja"THEN GOTO 880
810 IF a$<>"yes"THEN GOTO 812
812 PRINT"jag f{pound}rst]r inte"
814 GOTO 803
850 PRINT"mannen sl]r ihj[l dej"
853 GOTO451
880 PRINT"{clear}":PRINT"mannen sl]r igen d{pound}rren och du g]r din"
883 PRINT"v[g men du blir misst[nksam"
885 INPUT"vill du g] tillbaka";a$
887 IF a$="ja"THEN GOTO900
889 IF a$="nej"THEN GOTO 893
890 IF a$<>"yes"THENGOTO 891
891 PRINT"ja/nej"
892 GOTO885
893 PRINT"du g]r vidare och trampar p] en mina"
895 GOTO451
900 PRINT"{clear}"
903 PRINT"du g]r n[rmare huset kikar in igenom"
905 PRINT"f{pound}nstret du ser att borgm[starens"
906 PRINT"dotter sitter fastbunden p] en stol"
908 PRINT"vill du g] in eller smyga"
909 INPUT"";a$
912 IF a$="smyga"THENGOTO930
914 IF a$="g] in"THENGOTO950
917 IF a$<>"yes"THENGOTO918
918 PRINT"jag f{pound}rst]r inte.smyga/g] in"
920 GOTO 908
930 PRINT"du smyger vidare tills mannen uppt[cker"
932 PRINT"dej han piskar dej till d{pound}ds"
935 GOTO451
950 PRINT"du smyger in igenom d{pound}rren och in i det"
951 PRINT"lilla rummet mannen ser dej ni st]r "
954 PRINT"{pound}ga mot {pound}ga "
957 INPUT"vad g{pound}r du";a$
960 IF a$="d{pound}dar"THEN GOTO1000
962 IF a$="karate"THENGOTO1000
964 IF a$="sl]ss"THEN GOTO1000
970 IF a$="d{pound}da honom"THEN GOTO1000
975 IF a$<>"yes"THENGOTO977
977 PRINT"fel ord f{pound}rs{pound}k igen"
980 GOTO957
1000 PRINT"{clear}":PRINT"det var smart"
1003 PRINT"{down*2}{yellow}du har klarat mitt spel"
1006 PRINT"{down*2}du [r en expert"
1009 PRINT"{down*8}{right*7}tryck mellanslag"
1013 GET a$:IF a$=""THEN 1013
1030 PRINT"{clear}"
1060 PRINT"{space*13}{green}du [r b[st"
1068 FOR x=1TO2600:NEXT x
1070 GOTO 1100
1100 PRINT"{down*4}det h[r spelet var gjort av j{pound}rgen"
1110 PRINT"mattsson fr]n varpa games"
1113 PRINT"{down*5}{space*8}tryck mellanslag"
1117 GET a$:IF a$=""THEN1117
1120 PRINT"{clear}"
1124 PRINT"{down*14}{right}{space*9}{white}vill du spela {red}survive"
1128 INPUT"";a$
1140 IF a$="ja"THEN GOTO 380
1146 IF a$="nej"THENGOTO5000
1150 IF a$<>"yes"THENGOTO 1153
1153 PRINT"jag f{pound}rst]r inte,ja/nej"
1155 GOTO1124
5000 SYS64738
10000 POKE 775,200
10100 PRINT"vad f{pound}rs{pound}ker du med
11111 GOTO1
stop tok64
(bastext 1.0)