0 POKE808,225
1 PRINT"[147]":POKE54296,0:POKE53280,0:POKE53281,0:PRINT
2 PRINT"                                       [146]"
3 PRINT"  [158]   [223][146]   [169]  [223][146]     [223][146]                    [146]"
4 PRINT"  [158] [146]  [223][223][146] [169][146][169]  [223][223][146]  [146]  [223][223][146]  [146]                 [146]"
5 PRINT"  [158] [146]    [146]  [146]     [146]  [146]    [146]  [146] P R O G R A M[146] [158]  [146]"
6 PRINT"  [158] [146]  [169][146][169]  [146]     [146]  [146]    [146]  [146]                 [146]"
7 PRINT"  [158]   [146][169]        [146]  [146]    [146]  [146]    1 9 8 3[146]    [158]  [146]"
8 PRINT"  [158] [146]      [146]     [146]  [146]    [146]  [146]                 [146]"
9 PRINT"  [158] [146]      [146]     [146]  [146]  [169][146][169]                   [146]"
10 PRINT"  [158] [146]      [146]     [146]    [146][169]                    [146]"
11 PRINT"                                       [146]"
12 PRINT:PRINT
13 PRINT"   WELCOME TO A COLLECTION OF PAD[146]"
14 PRINT
15 PRINT"   PROGRAM[146] GAME PROGRAMS. PRESS M"
16 PRINT
17 PRINT"   TO ADVANCE TO THE GAME MENU.";
18 GET AN$:IF AN$=""THEN18
19 IF AN$="M"THEN600
20 IF AN$<>"M"THENGOSUB550:GOTO18
22 REM---------------------------------
23 REM---------------------------------
24 REM---------------------------------
25 PRINT"[147]":POKE53280,5:POKE53281,5:CLR
26 PRINT""
27 PRINT"[144]WELCOME TO [153]G O B L I N[146]"
28 PRINT"[144]A PAD PROGRAM ADDAPTATION.
29 [129]B[178]1[164]2000:[130]B:[153]
80 [151]53280,4:[151]53281,1
90 [153]"LOADPLEASE WAIT...DEFINING CHARACTERS";
100 [151]52,48:[151]56,48:[156]:W%[178]2:[151]56334,[194](56334)[175]254
105 [151]1,[194](1)[175]251
108 [129]N[178]0[164]2047:[151]N[170]12288,[194](N[170]53248):[130]N
109 [129]N[178]0[164]7:[151]N[170]12320,[194](N[170]54064):[130]N
110 [139]S[177]HS[167]HS[178]S
112 [140]:B[178]4:Z[178]1964:Z1[178]Z[170]54272:W[178]0:S[178]J:G[178]0
115 VS[178]54296:AD[178]54277:SR[178]54278:WF[178]54276:LB[178]54272:HB[178]54273
120 [129]X[178]0[164]31:[135]A:[151]X[170]12288,A:[130]
123 [151]1,[194](1)[176]4:[151]56334,[194](56334)[176]1
125 [151]53272,([194](53272)[175]240)[170]12
130 [153]"LOADG O B L I N"
140 [153]""[166]17)"HS="HS
145 [153]"STOPO=LEFT";[166]27);"P=RIGHT"
150 [129]I[178]1[164]118
160 X[178][181]([187](1)[172]680)[170]1144
170 [139][194](X)[178]B[167]160
180 [151]X,B:[151]X[170]54272,0:[130]I
190 [129]I[178]1[164]36
195 G1[178]0
200 X[178][181]([187](1)[172]680)[170]1144
210 [139][194](X)[178]B[176][194](X)[178]1[176][194](X)[178]3[167]200
220 [139][194](X[170]39)[178]B[175][194](X[170]40)[178]B[175][194](X[170]41)[178]B[167][151]X,3:[151]X[170]54272,0:G1[178]1
225 [139]G1[178]1[167]G[178]G[170]1:[137]240
230 [151]X,1:[151]X[170]54272,0
240 [130]I
250 [151]Z,32:Z[178]Z[171]40:Z1[178]Z1[171]40:[139]Z[179]1144[167]Z[178]Z[170]760:Z1[178]Z1[170]760
260 [161]A$:[139]A$[178]"O"[167]Z[178]Z[171]1:Z1[178]Z1[171]1
270 [139]A$[178]"P"[167]Z[178]Z[170]1:Z1[178]Z1[170]1
280 [139][194](Z)[178]B[167]410
290 [139][194](Z)[178]1[167][141]330
300 [151]Z,0:[151]Z1,0:[129]T[178]1[164]220:[130]
310 [139]W[178]36[171]G[167]J[178]S:[141]350:[137]110
320 [137]250
330 W[178]W[170]1:S[178]S[170]25:[153]""S:[151]VS,15:[151]AD,30:[151]SR,200:[151]WF,17
340 [151]HB,71:[151]LB,12:[129]T[178]1[164]90:[130]T:[151]VS,0:[151]HB,0:[151]LB,0:[142]
350 [153]"******ALL RIGHT!******"
352 [153]"        YOU NOW MOVE TO WAVE:WAIT";W%
353 W%[178]W%[170]1
355 [129]I[178]1[164]10:[161]C$:[130]I:[143] COLLECT GARBAGE
360 [151] VS,15:[151]AD,30:[151]SR,200:[151]WF,17:[129]I[178]1[164]17
370 H[178][181]([187](0)[172]10)[170]21:L[178][181]([187](0)[172]45)[170]210:[151]HB,H:[151]LB,L
380 [129]T[178]1[164]80:[130]T:[130]I:[151]VS,0:[151]HB,0:[151]LB,0
400 [142]
410 [151]Z,2:[151]VS,15:[151]AD,30:[151]SR,200:[151]WF,129:[151]HB,2:[151]LB,125
415 [129]I[178]1[164]400:[130]I:[151]VS,15:[151]HB,0:[151]LB,0
420 [129]X[178]1144[164]1823:[139][194](X)[179][177]1[167][130]X
430 [139][194](X)[178]1[167][151]X,3:[130]X
440 J[178]0
445 [129]I[178]1[164]10:[161]C$:[130]I
450 [153]"PLAY AGAIN? (Y/N)":[151]646,14
465 [161]C$:[139]C$[178]""[167]465
470 [139]C$[178]"Y"[167]110
490 [151] 53272,21:[151]53280,14:[151]53281,6:[151]52,50:[151]56,50:[153]"LOAD":[137]600
500 [131]126,219,219,255,165,90,90,165,60,66,165,129,153,165,66,60
510 [131]170,85,170,85,126,219,255,189,60,66,165,129,165,153,66,60
520 [131]0,0,0,0,0,0,0,0
521 [143]--------------------------------
522 [143]--------------------------------
523 [143]--------------------------------
524 [143]--------------------------------
525 [143]--------------------------------
550 [153]"WHAT'S THE TRIP BOZO?"
560 [153]"ARE YOU GOING TO BE ONE OF THOSE"
570 [153]"WHO INSIST ON TRYING TO FOOL OR "
580 [153]"TRICK THE COMPUTER?  LETS GO BACK"
590 [153]"AND TRY AGAIN, AND THIS TIME, "
595 [153]"GIVE IT WHAT IT ASKS FOR!!!!!!"
596 [129] A[178]1[164]1000:[130]A:[142]
597 [143]--------------------------------
598 [143]--------------------------------
599 [143]--------------------------------
600 [153]"LOAD":[151]53280,12:[151]53281,15:[156]:[153]"STOP
601 PRINT"                                        [146]":PRINT:PRINT
602 PRINT"                [175][175][175][175][175][175][175][175]"
603 PRINT"         [175][175][175][175][175][175][186][144]  MENU  [146][204][175][175][175][175][175][146]"
604 PRINT"        [170][144]SHALL WE PLAY A GAME?[180]"
605 PRINT"         [183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]":PRINT:PRINT""
610 PRINT"            GOBLIN........1[146]"
611 PRINT"            ARGO..........2[146]"
612 PRINT"            ROAD RACE.....3[146]"
613 PRINT"            GUESSING GAME.4[146]"
614 PRINT"            EXIT PROGRAM..5[146]"
650 PRINT:PRINT:PRINT:PRINT"P L E A S E   M A K E   A   C H O I C E ":
660 INPUT"[144]CHOICE";A%
665 IF A%<1THENGOSUB550:GOTO660
670 IF A%=1 THEN25
671 IF A%=2 THEN700
672 IF A%=3 THEN7000
673 IF A%=4 THEN8000
674 IF A%=5 THEN9000
680 IF A%>5 THENGOSUB550:GOTO660
695 REM------------------------------
696 REM------------------------------
697 REM------------------------------
698 REM------------------------------
699 REM------------------------------
700 PRINT"[147]":POKE53280,0:POKE53281,0:PRINT"[158]
701 [153]"           WAIT      WAIT        WAIT      "
702 [153]"        WAIT    WAIT   WAIT   WAIT    WAIT      WAIT    "
703 [153]"        WAIT    WAIT   WAIT    WAIT   WAIT      WAIT    "
704 [153]"            WAIT   WAIT   WAIT    WAIT      WAIT    "
705 [153]"        WAIT    WAIT     WAIT     WAIT   WAIT   WAIT    "
706 [153]"        WAIT    WAIT   WAIT  WAIT     WAIT   WAIT   WAIT    "
707 [153]"        WAIT    WAIT   WAIT   WAIT       WAIT      "
708 [153]
709 [153]"    THE OBJECT OF SYSARGOWAIT IS TO SCORE":[153]
710 [153]"    AS MANY POINTS AS POSSIBLE BY":[153]
711 [153]"    CREATING WORDS FROM THE GIVEN":[153]
712 [153]"    LETTERS, IN THE ALOTTED TIME."
715 [129]A[178]1[164]7000:[130]A
720 R[178][187]([171]TI)
740 [156]:[153][199](147):N[178]13
750 [134]W$(7,6),A(N),E(N),V(5)
760 V(1)[178]65:V(2)[178]69:V(3)[178]73
765 V(4)[178]79:V(5)[178]85
770 D(3)[178]160:D(4)[178]164:D(5)[178]169
775 D(6)[178]175:D(7)[178]182
780 [141]6000
790 [141]1400:[153][199](147):C[178]0:M[178]5000
795 D[178]10:[137]5010
800 W$[178]""
810 [161]A$:C[178]C[170]1
815 [139]C[177]M[167]1310
820 NU[178]C:[141]1500:[139]A$[178]""[167]810
830 [139] [198](A$)[178]13[167]900
860 [139] [198](A$)[178]157[167]1700
870 [139]A$[179]"A"[176]A$[177]"Z"[167]810
880 W$[178]W$[170]A$:WO$[178]W$:WL[178]D:[141]1600
885 [139] [195](W$)[177]6[167]900
890 [137]810
900 L[178][195](W$)
910 [139]L[179]3[176]L[177]7[167]1000
920 [141]3010
930 [139]F[178]1[167]M$[178]"DUPLICATE":[137]1200
940 [141]4010:[139]F[178]1[167]1000
950 T(L)[178]T(L)[170]1
960 [139]T(L)[177]6[167]1100
970 W$(L,T(L))[178]W$
980 WO$[178]W$:WL[178]D(L):[141]1600
990 WO$[178]"        ":WL[178]D:[141]1600
995 D(L)[178]D(L)[170]40:[137]800
1000 M$[178]"ILLEGAL":[137]1200
1100 T(L)[178]T(L)[171]1:M$[178]"TOO MANY"
1110 [137]1200
1200 WO$[178]M$:WL[178]D[170]10:[141]1600
1210 [129]J[178]1[164]30:C[178]C[170]1
1220 [141]1500:[130]
1230 WO$[178]"           ":WL[178]D[170]10
1235 [141]800
1240 [137]800
1310 WO$[178]"TIME'S UP.  ":WL[178]1000:[141]1600
1320 SC[178]0:[129]J[178]3[164]7
1330 K[178]T(J):[139] K[177]5[167]K[178]5
1340 SC[178]SC[170]J[172]J[172]K:[130]
1350 [153]"SCORE =";SC:[153]:[153]
1355 [153]"DO YOU WANT TO PLAY AGAIN?";
1356 [161] AA$: [139] AA$[178]""[167] 1356
1357 [139] AA$[178]"Y"[167]720
1358 [139] AA$[179][177]"N"[167]1355
1359 [156]:[137]600
1400 [129]J[178]1[164]N:R[178][181]([187](1)[172]25)[170]65
1410 A(J)[178]R:[130]
1420 [129]J[178]1[164]2
1430 A(J)[178]V([181]([187](1)[172]5)):[130]
1440 [142]
1500 [153][199](19):[153] NU:[142]
1600 [153][199](19)
1605 XA[178][181](WL[173]40):YA[178][181](WL[171](XA[172]40))
1610 [139]YA[178]0[167]1630
1615 [129]AY[178]1[164]YA
1620 [153][199](29);:[130]
1630 [139]XA[178]0[167]1650
1640 [129]AX[178]1[164]XA
1645 [153][199](17);:[130]
1650 [153]WO$;
1660 [142]
1700 [139][195](W$)[179]2[167]1230
1710 W$[178][200](W$,[195](W$)[171]1)
1720 WO$[178]" ":WL[178]D:[141]1600
1730 WO$[178]W$:WL[178]D:[141]1600:[137]810
3010 F[178]0:[139]T(L)[178]0[167][142]
3020 [129]J[178]1[164]T(L)
3030 [139]W$(L,J)[178]W$[167]F[178]1
3040 [130]:[142]
4010 F[178]0:[129]J[178]1[164]N:E(J)[178]A(J)
4020 [130]:[129]J[178]1[164]L
4030 K[178][198]([202](W$,J,1))
4040 [129]X[178]1[164]N
4050 [139]E(X)[178]K[167]E(X)[178]0:[137]4070
4060 [130]:F[178]1
4070 [130]J:[142]
5010 [129]J[178]N[164]2[169][171]1:X[178]A(1):F[178]1
5020 [129]L[178]2[164]J:[139]A(L)[177]X[167]X[178]A(L):F[178]L
5030 [130]:A(F)[178]A(J):A(J)[178]X:[130]
5050 [129]J[178]1[164]N
5055 WO$[178][199](A(J)):WL[178]42[170]J[170]J:[141]1600
5100 [130]:[137]1230
6000 [153] [163]12);"A R G O"
6010 [153]:[153]"PRESS ANY KEY"
6020 J[178][181]([187](1)[172]1)[170]1:[161]A$
6030 [139]A$[178]""[167]6020
6040 [142]
7000 [143]-------------------------------
7001 [143]-------------------------------
7002 [143]-------------------------------
7003 [143]-------------------------------
7004 [143]-------------------------------
7005 [143]-------------------------------
7010 [156]:[153]"LOAD":[151]53280,8:[151]53281,2
7011 [153]"SYS WELCOM TO ROADRACE, A PAD PROGRAM"
7012 [153]" ADDAPTATION.":[153]:[153]
7013 [153]" THE CONTROL KEYS ARE....."
7014 [153]"                    Z=LEFT"
7015 [153]"                   ?=RIGHT"
7016 [129]B[178]1[164]5000:[130]B
7017 [156]:[153]"LOAD"
7120 Q[178]0:Q$[178]""
7125 OS[178]54272
7130 LC[178].4:RC[178]1[171]LC
7140 RS[178]167:LS[178]165:LT[178]206:RT[178]205
7150 L$[178]"Z":R$[178]"/"
7160 B[178]32:PC[178]102:EL[178]2:ER[178]37
7165 [151] 53280,8:[151]53281,2:[153] [199](5)
7170 [141] 7800
7200 [153]:[153]:T[178]0:N[178]0
7210 [133]"ROAD WIDTH (3-12)";W
7220 W[178][181](W):[139] W[179]3 [176] W[177]12 [167] 7210
7230 [153]:[153]"VISIBILITY CONDITIONS"
7240 [153]"  1 - TERRIBLE"
7250 [153]"  2 - BAD"
7260 [153]"  3 - FAIR"
7270 [153]"  4 - GOOD":[153]
7280 [133]"VISIBILITY (1-4)";V:V[178][181](V)
7290 [139] V[179]1 [176] V[177]4 [167] 7280
7295 [151]53280,8:[151]53281,2
7300 N[178]N[170]1:L[178]14:R[178]L[170]W[170]2:Z[178]2064[171]120[172]V
7310 C[178][181]((L[170]R)[173]2)[170]1
7320 [129] J[178]1[164]26:[161] Q$:[141]7600:[130]
7330 Q[178][187]([171]TI):[141]7700
7350 Q[178][187](1)
7355 [139] Q[177]RC [175] R[179]ER [167] [141] 7640:[137]7400
7360 [139] Q[179]LC [175] L[177]EL [167] [141] 7620:[137]7400
7370 [141] 7600
7400 A[178]PC:[161] Q$:[139] Q$[178]L$ [167] C[178]C[171]1
7410 ZC[178]Z[170]C:[139] Q$[178]R$ [167] C[178]C[170]1
7420 Q[178][194](ZC):[139] Q[179][177]B [167] A[178]170
7430 [151]ZC,A:[151]ZC[170]OS,1:[139] A[178]PC [167]7350
7440 H[178]TI[171]H:[139] H[179]0 [167] H[178]H[170]5184000
7450 M[178][181](H[173]10):T[178]T[170]M:[153]
7460 [153]"YOU WENT";M"MILES FOR A"
7470 [153]"TOTAL OF";T;"MILES IN";N;"DAY(S)":[153]
7480 [153]"HIT 'C' - CONTINUE RACE"
7490 [153]"HIT 'R' - RESTART RACE"
7500 [153]"HIT 'Q' - QUIT"
7510 [161] Q$:[139] Q$[178]"C" [167]7300
7520 [139] Q$[179][177]"R" [175] Q$[179][177]"Q" [167]7510
7530 [153]:[153]"AVERAGE MILES PER DAY=";T[173]N
7535 [129]A[178]1[164]900:[130]A
7540 [139] Q$[178]"R" [167]7200
7550 [156]:[137]600
7600 [153] [163]L);[199](RS);[199](RS);
7605 [153] [163]R);[199](LS);[199](LS)
7610 [142]
7620 [153] [163]L);[199](LT);[199](LT);
7625 [153] [163]R[171]1);[199](LT);[199](LT)
7630 L[178]L[171]1:R[178]R[171]1:[142]
7640 [153] [163]L[170]1);[199](RT);[199](RT);
7645 [153] [163]R);[199](RT);[199](RT)
7650 L[178]L[170]1:R[178]R[170]1:[142]
7700 [151] Z[170]C,PC:[151] Z[170]C[170]OS,1:P[178]Z[171]232
7710 [151]P,85:[151] P[170]OS,1:[151] P[170]1,64
7720 [151] P[170]1[170]OS,1:[151] P[170]2,73:[151] P[170]2[170]OS,1
7730 [129] J[178]1[164]5:[151] P[170]40[172]J,93:[151] P[170]40[172]J[170]OS,1
7740 [151] P[170]40[172]J[170]1,87:[151] P[170]40[172]J[170]1[170]OS,1
7750 [151] P[170]40[172]J[170]2,93:[151] P[170]40[172]J[170]2[170]OS,1
7760 [130]:[151] P[170]240,74:[151]P[170]240[170]OS,1
7770 [151] P[170]241,64:[151] P[170]241[170]OS,1:[151] P[170]242,75
7780 [151] P[170]242[170]OS,1:[129] J[178]1[164]900:[130]
7790 [129] J[178]1[164]5:[129] K[178]1[164]400:[130]
7795 [151] P[170]40[172]J[170]1,81:[130]:H[178]TI:[142]
7800 [134] D(9):L[178]14:R[178]22:[151]53281,1
7805 [153] [199](147);:[151]53281,2
7810 [129] J[178]1[164]9:[135] D(J):[130]
7820 [131] 18,15,1,4,18,1,3,5,42
7830 [129] J[178]1[164]2:[141] 7600:[130]
7840 [129] J[178]1[164]3:[141] 7640:[130]
7850 [129] J[178]1[164]5:[141] 7620:[130]
7860 [129] J[178]1[164]10:[141] 7640:[130]
7870 P[178]1042:[151] P,PC
7880 [129] J[178]1[164]500:[130]
7890 [129] J[178]1[164]2:P[178]P[170]40:[141] 7950:[130]
7900 [129] J[178]1[164]3:P[178]P[170]41:[141] 7950:[130]
7910 [129] J[178]1[164]4:P[178]P[170]39:[141] 7950:[130]
7920 P[178]P[170]40:[141]7950
7930 [129] J[178]1 [164] 9:P[178]P[170]41:[141] 7950
7940 [151] P,D(J):[130]:[153]:[142]
7950 [151] P,PC:[129] K[178]1[164]50:[130]:[142]
7951 [143]-------------------------------
7952 [143]-------------------------------
7953 [143]-------------------------------
7954 [143]-------------------------------
7955 [143]-------------------------------
8000 [156]:[151]53280,0:[151]53281,0:[153]"LOAD"
8001 [129]A[178]1[164]700:[130]A
8002 [153]" GUESSING GAME "
8003 [129]A[178]1[164]700:[130]A
8005 [133] "ENTER UPPER LIMIT FOR GUESS ";LI
8010 NM [178] [181](LI[172][187](1))[170]1
8015 CN [178] 0
8020 [153] "I'VE GOT THE NUMBER.":[153]
8030 [133] "WHAT'S YOUR GUESS"; GU
8035 CN[178]CN[170]1
8040 [139] GU[177]NM [167] [153] "MY NUMBER IS LOWER":[153]:[137]8030
8050 [139] GU[179]NM [167] [153]"MY NUMBER IS HIGHER":[153]:[137] 8030
8060 [153]"GREAT! YOU GOT MY NUMBER"
8065 [153]"IN ONLY "; CN ;"GUESSES.":[153]
8070 [153]"DO YOU WANT TO TRY ANOTHER (Y/N)"
8080 [161] AN$: [139] AN$[178]"" [167]8080
8090 [139] AN$[178]"Y"[167] 8002
8100 [139] AN$ [179][177] "N" [167] 8070
8110 [156]:[137]600
9000 [153]"LOAD":[151]808,237:[158]64759
9010 [153]"*********RETURN TO BASIC*********"
9020 [162]