10 REM PROGRAM: INVECTIVE
20 REM GEORGE TREPAL
30 REM 2650 ALTURAS RD
40 REM BARTOW, FL  33830
50 :
100 GOSUB 1150
110 POKE53280,12:POKE53281,12:PRINT"[147]";
120 REM SET UP SCREEN
130 G$(1)="[144][191]  [158][218][218][218][218][218][218]   [218][218][218][218][218][218]    [218][218][218][218][218][218]   [218][218][218][218][218][218]  [144][191]
140 G$(2)[178]"STOPSIN  SPC(    SPC(   SPC(    SPC(    SPC(    SPC(   SPC(    SPC(  STOPSIN"
150 G$(3)[178]"STOPSINSINSINSINSINSINSINSINSINSINSINSINSINSINSINSINSINSINSINSINSINSINSINSINSINSINSINSINSINSINSINSINSINSINSINSINSINSINSINSIN"
160 G$(4)[178]"STOPSIN    SYS(null)        (null)          (null)        (null)    STOPSIN"
170 [153] G$(3); G$(4); G$(2); G$(2); G$(1); G$(2); G$(2); G$(4);
180 [153] G$(4); G$(4); G$(2); G$(2); G$(1); G$(2); G$(2); G$(4);
190 [153] G$(4); G$(4); G$(2); G$(2); G$(1); G$(4); G$(4); G$(3);
200 :
210 [143] POKE GREEN POINTS
220 CM[178]54272:  [143] CM=COLOR MEMORY
230 [129] J[178]1 [164] 50
240 RN [178] [181]([187](1)[172]920)[170]1024
250 [139] [194](RN)[179][177]32 [167] 240
260 [151] RN,105: [151] RN[170]CM,13
270 [130]
280 :
290 [143] SET JOYSTICK VALUES J() AND SCRAMBLE ARRAY VALUES SA()
300 J(1)[178][171]40: J(2)[178]40: J(4)[178][171]1: J(8)[178]1
310 SA(1)[178]1: SA(2)[178]2: SA(3)[178]4: SA(4)[178]8
320 :
330 [143] SET UP PLAYER  SP=SPACES OVER  DN$=HOW FAR DOWN  P=POSITION
340 [143] BM$=BOTTOM OF SCREEN  TI$=TIMER
350 [153]"(null)"
360 SP[178]1: DN$[178]"": P[178]1065: TI$[178]"000001"
370 BM$[178]"": [141] 750: [141] 1000
380 :
390 [143] READ PORT 2 JOYSTICK
400 JV[178][194](56320)
410 JV[178]15[171](JV[175]15)
420 [153]BM$;"SCORE ";SC;
430 VT[178][197](TI$): [139] VT[173]15[178][181](VT[173]15)[167] [141] 680
440 [139] JV[178]0 [167] 400
450 :
460 [143] FIND CHARACTER MOVED TO
470 T[178]P[170]J(JV)
480 CH[178]([194](T))
490 [139] CH[178]32 [167] [141] 570:  [137] 400: [143] BLANK SPACE
500 [139] CH[178]105 [167] SC[178]SC[170]10: [141] 570: [141] 1000: [137] 400: [143] GREEN SCORE
510 [143] BLUE JOYSTICK SCRAMBLE
520 [139] CH[178]102 [167] [141] 570: [141] 680: SC[178]SC[171]20: [137]400
530 [139] CH[178]90 [167] SC[178]SC[171]50: [141] 570: [141] 950: [137] 400: [143] YELLOW SCORE
540 [137]400
550 :
560 [143] WIPE OUT PLAYER POSITION
570 [153] DN$; [166]SP)" ";
580 :
590 [143] PRINT NEW PLAYER POSITION
600 P[178]T
610 [139] J(JV)[178]1 [167] SP[178]SP[170]1
620 [139] J(JV)[178][171]1 [167] SP[178]SP[171]1
630 [139] J(JV)[178]40 [167] DN$[178]DN$ [170] ""
640 [139] J(JV)[178][171]40 [167] DN$[178][200](DN$,[195](DN$)[171]1)
650 [153] DN$; [166]SP)"(null)";: [142]
660 :
670 [143] SCRAMBLE JOYSTICK
680 [139] VT[177]130 [167] 1050
690 [129] J[178]1 [164] 4: RN[178][181]([187](1)[172]4)[170]1
700 T[178]SA(J): SA(J)[178]SA(RN): SA(RN)[178]T: [130]
710 J(SA(1))[178]1: J(SA(2))[178][171]1: J(SA(3))[178]40: J(SA(4))[178][171]40
720 [141] 900
730 :
740 [143] POSITION HINTS
750 [153] BM$;[166]13)"VERIFY";
760 [129] J[178]1 [164] 8
770 [139] J[178]1 [167] [153] "UP ";
780 [139] J[178]2 [167] [153] "DN ";
790 [139] J[178]4 [167] [153] "LT ";
800 [139] J[178]8 [167] [153] "RT ";
810 [139] J(J)[178]1 [167] [153] ">  ";
820 [139] J(J)[178][171]1 [167] [153] "<  ";
830 [139] J(J)[178]40 [167] [153] "V   ";
840 [139] J(J)[178][171]40 [167] [153] "^  ";
850 [130]
860 [151] 53280,2: [151] 53281,2: [129] DL[178] 1 [164] 80: [130]
870 [151] 53280,12: [151] 53281,12
880 :
890 [143] SCRAMBLE SOUND
900 [151] 54296,15: [151] 54276,17: [151] 54277,15: [151] 54273,60
910 [129] DL[178]1 [164] 25:[130]
920 [151] 54296,0: [151] 54276,0: [142]
930 :
940 [143] YELLOW HIT
950 [151] 54296,15: [151] 54276,33: [151] 54277,15: [151] 54273,40
960 [129] DL[178]1 [164] 25:[130]
970 [151] 54296,0: [151] 54276,0: [142]
980 :
990 [143] GREEN SOUND
1000 [151] 54296,15: [151] 54276,17: [151] 54277,15: [151] 54273,30
1010 [129] DL[178]1 [164] 25:[130]
1020 [151] 54296,0: [151] 54276,0: [142]
1030 :
1040 [143] END GAME
1050 [153]"LOAD";[166]15);"SCORE ";SC
1060 [129] J[178]1 [164] 4: [141] 900: [141] 950: [141] 900
1070 [141] 1000:[130]
1080 [153]"  PRESS JOYSTICK BUTTON TO PLAY AGAIN"
1090 JV[178][194](56320)
1100 FR[178]JV[175]16
1110 [139] FR [178] 16 [167] 1090
1120 [137] 110
1130 :
1140 [143] INTRO
1150 [153]"OPENLOAD":[151] 53280,0: [151] 53281,0:
1160 [153][166]16)"INVECTIVE"
1170 [153][166]12)"BY GEORGE TREPAL"
1180 [153][166]11)"PRINTGREEN = 10 POINTS"
1190 [153][166]10)"SYSYELLOW = -50 POINTS"
1200 [153][166]2)"CONTBLUE = -20 POINTS AND SCRAMBLES THE"
1210 [153][166]16)"JOYSTICK"
1220 [153][166]2)"OPENTHE JOYSTICK IS SCRAMBLED EVERY 15"
1230 [153][166]2)"SECONDS WHETHER YOU HIT BLUE OR NOT"
1240 [153][166]5)"THE JOYSTICK GOES IN PORT #2"
1250 [153][166]7)"THE GAME LASTS 90 SECONDS"
1260 [153][166]5)"PRESS THE FIRE BUTTON TO PLAY"
1270 JV[178][194](56320)
1280 FR[178]JV[175]16
1290 [139] FR [178] 16 [167] 1270
1300 [142]