home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 83
/
083.d81
/
foolstar
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
16KB
|
622 lines
8 dv=peek(186):ifdv<8thendv=8
10 poke53280,0:poke53281,0:dimi$(13,13)
11 poke19,0:poke808,237
12 printchr$(142)"[147]":ifpeek(787)<>255thengosub60000:poke787,255
15 fori=54272to54296:pokei,0:next
16 tp$="[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][208]"
17 sp$="[180] [170]"
18 bt$="[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][186]"
19 dimmu$(19)
20 mu$(1)=" insulting "
21 mu$(2)=" destruction "
22 mu$(3)=" unresponsive "
23 mu$(4)=" wake up "
24 mu$(5)=" 128 look-alike "
25 mu$(6)=" intruder alert "
26 mu$(7)=" flattering "
27 mu$(8)=" twilight zone "
28 mu$(9)=" byte thief "
29 mu$(10)=" malfunction "
30 mu$(11)=" messenger "
31 mu$(12)=" self control "
32 mu$(13)=" norad "
33 mu$(14)=" frustration "
34 mu$(15)=" screen quake "
35 mu$(16)=" disable stop "
36 mu$(17)=" instructions "
37 mu$(18)=" quit program "
50 print"[147]"tp$:printsp$:printsp$:printsp$:printbt$
55 print"[129][213][192][201] [213][192][201] [213][192][201] [201] [213][192][201] [213][178][201] [213][192][201] [213][192][201]"
60 print"[171][179] [221] [221] [221] [221] [221] [202][192][201] [221] [171][192][179] [171][178][203]"
65 print"[203] [202][192][203] [202][192][203] [202][192][203] [202][192][203] [177] [203] [202] [203][202][203]"
75 print"[158]"tp$:printsp$
80 fori=1to9:print"[158]"sp$:print"[145][154]"tab(2)mu$(i)tab(20)mu$(i+9):next:print"[158]"sp$
90 printbt$
92 print""tp$
94 printsp$
95 print"[180] [159] use crsr keys/return to select [170]"
96 printsp$
98 printbt$
270 m=1
280 poke198,0
290 poke214,m+5+9*(m>9):print:printtab(2-18*(m>9))""mu$(m)"[145]"
300 geta$:ifa$<>"[145]"anda$<>""anda$<>"[157]"anda$<>""anda$<>chr$(13)then300
310 printtab(2-18*(m>9))"[154]"mu$(m)
320 ifa$=chr$(13)then400
330 ifa$<>"[145]"then340
332 m=m-1
334 ifm<1thenm=18
338 goto290
340 ifa$<>""then350
342 m=m+1
344 ifm>18thenm=1
348 goto290
350 ifa$<>"[157]"then360
352 m=m-9
354 ifm<1thenm=m+18
358 goto290
360 m=m+9
362 ifm>18thenm=m-18
368 goto290
400 onmgoto937,1600,1950,2150,2400,2540,2750,3000,3250,4000,4350,4500
410 onm-12goto4800,5200,5400,6000,500,40000
499 goto290
500 print"[147]"tp$
510 fori=1to16:printsp$
520 next:printbt$
530 print"[158]"tp$
535 printsp$
540 print"[180] [156]press a key [158][170]"
545 printsp$
550 printbt$
560 print"[146][159] this program is a utility to aid"
570 print"you in seeking revenge on friends,"
580 print"family or foes who dare to come"
590 print"near the computer. great for an"
600 print"april fool's prank or perhaps to"
610 print"get back at the bozo who jammed"
620 print"ice cubes down your shirt."
630 print" it works by imitating the"
640 print"familiar commodore startup screen"
650 print"which appears every time your c-64"
660 print"is powered up. your unsuspecting"
670 print"victim, however, will not be aware
680 [153]"that it is booby-trapped."
690 [141]880
730 [153]"select a fool's mode from the"
740 [153]"main menu and a description will"
750 [153]"be displayed. you can either use"
760 [153]"the fool's mode or return to the"
770 [153]"menu. if you use it, the computer"
780 [153]"will go to the familiar blue screen"
790 [153]"with the regular start-up message."
800 [153]" leave the computer on and wait"
810 [153]"for your victim to come along to"
820 [153]"use it. be prepared to run for
830 print"your life!"
840 gosub880
851 print"the 'disable stop' feature may be"
852 print"activated by selecting it from the"
853 print"main menu. it will stop your"
854 print"victim from being able to break out"
855 print"of the fool's mode.
856 [153]" you can break out of some modes"
857 [153]"by entering stop openand others by"
858 [153]"pressing the logo key (c=open) and the"
859 [153]"back arrow (_open) at the same time.
860 print" leave the volume up for best
861 [153]"results on most of the modes.
865 geta$:ifa$=""then865
870 run
880 geta$:ifa$=""then880
890 print"":fori=1to14:print" ":next
895 return
902 print"[147]"tp$
904 fori=1to16:printsp$:next
906 printbt$
908 print"[158]"tp$
910 fori=1to3:printsp$:next
920 printbt$
930 gosub7000
932 return
934 :
935 :rem insulting
936 :
937 gosub902:printtab(4)"[145][156](u[156])se (c[156])hange insults (m[156])enu"
940 print"[154]this will cause your computer to"
950 print"insult the user whenever a command"
960 print"is typed."
962 print"effective commands:[159] load, save,"
964 print"print, poke, peek, list, run, new,"
966 print"restore, and clr."
1000 geta$:ifa$=""then1000
1010 ifa$="m"thenrun
1020 ifa$="c"then1050
1030 ifa$="u"thenskp=5:goto1120
1040 goto1000
1050 print"[147]"tp$
1060 printsp$:printsp$
1070 printtab(13)"[145]change insults[158]"
1080 printsp$
1090 printbt$
1100 print"[146][f1] [155]forward [f3] [155]reverse"
1110 print"[f5] [155]change [f7] [155]done"
1120 fori=1to12:reada$:readb$:i$(i,0)=a$:i$(i,1)=b$:next:tn=1:ifskp=5then1380
1130 data "load","i think you're already loaded."
1140 data "save","nothing can save this program."
1150 data "print","never learned to write, huh?"
1160 data "list","why bother? this program's spaghetti!"
1170 data "run","good idea! and far, far away!"
1180 data "poke","go poke someone your own size."
1190 data "peek","there are laws for guys like you!"
1200 data "new","no way! you'll never erase me!"
1210 data "clr","got something against vowels, bub?"
1220 data "restore","it's your brain that needs restoring"
1230 data "no","yes!!"
1240 data "yes","no!!"
1260 poke214,16:print:print" -------------------------------------"
1265 print" -------------------------------------"
1267 poke214,13:print:print"[156]#"tn"[157] "
1270 poke781,16:sys59903:poke214,15:print:print"[158]"i$(tn,0)
1290 poke781,20:sys59903:poke214,19:print:print"[158]"i$(tn,1)
1310 getx$:ifx$<"[133]"ora$>"[136]"then1310
1315 ifx$="[133]"thentn=tn+1:poke54296,15:poke54296,0:iftn>12thentn=1
1320 ifx$="[134]"thentn=tn-1:poke54296,15:poke54296,0:iftn<1thentn=12
1330 ifx$="[135]"then1360
1340 ifx$="[136]"then1380
1350 goto1267
1360 poke781,20:sys59903:poke214,19:print
1370 poke19,54:input"";i$(tn,1):goto1267
1380 goto1399
1381 poke53280,14:poke53281,6:print"[147][154]**** commodore 64 basic v2 ****"
1390 print" 64k ram system 38911 basic bytes free":skp=0:return
1399 gosub1381
1400 print"ready."
1410 poke19,54:inputa$:ifa$=""thenprint
1420 ifleft$(a$,4)="load"thenprint:print:printi$(1,1):goto1400
1430 ifleft$(a$,4)="save"thenprint:print:printi$(2,1):goto1400
1440 ifleft$(a$,5)="print"thenprint:print:printi$(3,1):goto1400
1450 ifleft$(a$,4)="list"thenprint:print:printi$(4,1):goto1400
1460 ifleft$(a$,3)="run"thenprint:print:printi$(5,1):goto1400
1470 ifleft$(a$,4)="poke"thenprint:print:printi$(6,1):goto1400
1480 ifleft$(a$,4)="peek"thenprint:print:printi$(7,1):goto1400
1490 ifleft$(a$,3)="new"thenprint:print:printi$(8,1):goto1400
1500 ifleft$(a$,3)="clr"thenprint:print:printi$(9,1):goto1400
1510 ifleft$(a$,7)="restore"thenprint:print:printi$(10,1):goto1400
1520 ifleft$(a$,2)="no"thenprint:print:printi$(11,1):goto1400
1530 ifleft$(a$,3)="yes"thenprint:print:printi$(12,1):goto1400
1550 ifval(left$(a$,2))>0thenprint:goto1410
1555 ifa$="stop"thenrun
1560 ifa$<>""thenprint:print:print"?syntax error":goto1400
1580 goto1410
1597 :
1598 :rem destruction
1599 :
1600 gosub902
1610 print"[150]self destruction..."
1620 print"have you ever seen a computer"
1630 print"demolish itself? well, your"
1640 print"unsuspecting friend will."
1660 print"[158]this will make it seem like your"
1670 print"commodore is suicidal."
1675 print"[156]turn up the volume!"
1680 geta$:ifa$=""then1680
1690 ifa$="m"thenrun
1695 ifa$="u"then1700
1697 goto1680
1700 gosub1381
171