home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Ahoy 1985 September
/
Ahoy_Magazine_85-09_1985_Double_L.d64
/
invective
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
3KB
|
127 lines
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]