home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Compute! Gazette 1993 August
/
1993-08.d64
/
overdrive
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-09-20
|
16KB
|
546 lines
0 clr
2 print"[147]":poke53280,5:poke53281,0
3 print"greetings to:"
4 print"[159]qhawk, sysop fm, thomast2, bonnie,"
5 print"djsenterp, dicka2, kel, exploited3,"
6 print"cnet rep, qguide sas, iant, the rad"
7 print"heavy metal bands, and all the other"
8 print"cool qlinkers i forgot to mention.":print"hit any key"
9 poke53280,5:poke53280,6:poke53280,4:geta$:ifa$=""then9
10 poke53280,0:poke53281,0:dimi$(13,13)
15 fori=54272to54296:pokei,0:next
20 print"[147][207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208]";
30 print"[180]"spc(38)"[170]";
40 print"[180][146] m a x i m u m o v e r d r i v e [170]";
50 print"[180]"spc(38)"[170]";
60 print"[204][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][186]";
70 print"[207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208]";
80 fori=1to11:print"[180]"spc(38)"[170]";:next
90 print"[204][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][186]";
92 print"[207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208]";
94 print"[180]"spc(38)"[170]";
95 print"[180][146] by digidan select a-r[146] [170]";
96 print"[180]"spc(38)"[170]";
98 print"[204][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][186]";
100 print"[145][145][145][146]"
110 print"[154][176][192][174]"
120 print"[145][221]a[221]":print"[221]b[221]":print"[145][221]c[221]":print"[221]d[221]":print"[145][221]e[221]"
130 print"[221]f[221]";:print"[157][157][157][221]g[221]":print"[221]h[221]":print"[145][221]i[221]":print"[173][192][189]"
140 print"[145][145][145][145][145][145][145][145][145][145][145][159]insulting":print"destruction"
150 print"[145]unresponsive":print"wake up":print"[145]128 look-alike"
160 print"intruder alert":print"[145]flattering"
170 print"twilight zone":print"[145]byte thief"
180 print"[145][145][145][145][145][145][145][145][145][145]"tab(21)"[154][176][192][174]"
190 printtab(21)"[145][221]j[221]":printtab(21)"[221]k[221]":printtab(21)"[145][221]l[221]"
200 printtab(21)"[221]m[221]":printtab(21)"[145][221]n[221]":printtab(21)"[221]o[221]"
210 printtab(21)"[145][221]p[221]":printtab(21)"[221]q[221]":printtab(21)"[145][221]r[221]"
220 printtab(21)"[173][192][189]"
230 printtab(25)"[145][145][145][145][145][145][145][145][145][145][145][159]malfunction"
240 printtab(25)"messenger":printtab(25)"[145]self control"
250 printtab(25)"norad":printtab(25)"[145]frustrating":printtab(25)"screen quake"
260 printtab(25)"[145][158]disable stop"
270 printtab(25)"instructions"
280 printtab(25)"[145]quit":c=1
290 geta$:gosub7000:ifa$=""then290
300 ifa$="q"then500
302 ifa$="r"thenpoke53280,14:poke53281,6:print"[147][154]";:end
304 ifa$="a"then900
305 ifa$="b"then1600
306 ifa$="c"then1950
307 ifa$="d"then2150
308 ifa$="e"then2400
309 ifa$="f"then2540
310 ifa$="g"then2750
311 ifa$="h"then3000
312 ifa$="i"then3250
313 ifa$="j"then4000
314 ifa$="k"then4350
315 ifa$="l"then4500
316 ifa$="m"then4800
317 ifa$="n"then5200
318 ifa$="o"then5400
319 ifa$="p"then6000
499 goto290
500 print"[147][207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208]";
510 fori=1to16:print"[180]"spc(38)"[170]";
520 next:print"[204][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][186]";
530 print"[207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208]";
535 print"[180]"spc(38)"[170]";
540 print"[180][146] instructions hit any key[146] [170]";
545 print"[180]"spc(38)"[170]";
550 print"[204][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][186]";
560 print"[146][154]this program is designed for having"
570 print"[145]some totally rad fun. there are 15"
580 print"different faking modes. each of"
590 print"[145]these begin by simulating the basic"
600 print"environment. after that, something"
610 print"[145]strange will happen.. depending on"
620 print"which mode you selected."
630 print"it is suggested that you select a"
640 print"[145]faking mode, leave the computer on,"
650 print"and wait until someone tries to use"
660 print"[145]it. that's where the fun part"
670 print"comes in. for the first time you"
680 print"[145]can watch your friend jump 40 feet."
685 goto720
690 geta$:ifa$=""then690
700 print"":fori=1to7:print" ":next
705 print"[145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145]"
706 fori=1to7:print" [145]":next
710 return
720 gosub690
730 print"after you select a faking mode,"
740 print"[145]it will describe what it does and"
750 print"allow you to either use it or"
760 print"[145]return to the main menu."
770 print"this program was written by dan"
780 print"komaromi of [158]digital wizard co.[154]"
790 print"[145]special thanks to 'qhawk' of the"
800 print"clark county commodore computer"
810 print"[145]club for having the best user group"
820 print"in the world.. and to 'sysop fm'"
830 print"[145]from quantum link for doing such"
840 print"a totally radical job with the"
850 print"[145]software libraries."
851 gosub690:print"if you like this program, or have"
852 print"[145]any comments or suggestions, please"
853 print"send a postcard to:"
854 print"dan komaromi":print"[145]251 altura dr.":print"fullerton, ca"
855 print"[145]92635"
856 print"remember that this program is in"
857 print"the public domain. i encourage"
858 print"[145]you to spread this around to all"
859 print"of your friends free of chagre."
860 print"[145]later, dude!"
861 geta$:ifa$=""then861
870 run10
900 goto937
902 print"[147][153][207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208]";
904 fori=1to16:print"[180]"spc(38)"[170]";:next
906 print"[204][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][186]";
908 print"[207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208]";
910 fori=1to3:print"[180]"spc(38)"[170]";:next
920 print"[204][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][186]";
930 print"[145][145][145][146]u=use[146] m=menu"
932 return
937 gosub902:printtab(11)"[145][145]c=change insults"
940 print"[154]