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
1710 PRINT"READY."
1720 POKE19,54:INPUTA$:IFA$="STOP"THENRUN
1730 PRINT:PRINT"?SUPER SYNTAX ERROR"
1740 FORD=1TO200:POKE54296,15:POKE54296,0:NEXT
1750 PRINT"[147]":POKE53280,0:POKE53281,0
1760 PRINT"SELF DESTRUCTION  00 % COMPLETE"
1770 FORI=1TO99:PRINT"[154]"I
1780 PRINT""TAB(16)"[158]DANGER[146]";
1785 PRINT""TAB(16)"DANGER[146]";
1787 GOSUB9000
1790 FORD=1TO5:POKE54296,15:POKE54296,0:NEXT:NEXT
1800 PRINT"[147]"
1801 FORR=54272TO54296:POKER,0:NEXT
1802 POKE54296,15:POKE54277,0
1803 POKE54278,240:POKE54275,8
1804 POKE54276,65:POKE54272,237
1805 POKE54273,50
1810 POKE53296,15:FORI=1TO250
1815 GOSUB9000
1820 POKE53280,11:POKE53280,12
1830 POKE53280,6:POKE53280,4
1840 POKE53280,14:POKE53280,0
1850 POKE53280,6:POKE53280,0
1860 NEXT:POKE53296,0
1870 POKE53281,1:POKE53280,1:FORD=1TO100:NEXT
1880 POKE53281,15:POKE53280,15:FORD=1TO100:NEXT:GOSUB1930
1890 POKE53281,12:POKE53280,12:FORD=1TO100:NEXT:GOSUB1930
1900 POKE53281,11:POKE53280,11:FORD=1TO100:NEXT:GOSUB1930
1910 POKE53281,0:POKE53280,0:FORD=1TO100:NEXT:GOSUB1930
1920 PRINT"[147][144]":POKE54296,0
1925 GOSUB9000
1927 GOTO1925
1930 POKE54273,PEEK(54272)/2:FORD=1TO10:NEXT
1940 GOSUB9000
1945 RETURN
1947 :
1948 :REM  UNRESPONSIVE
1949 :
1950 GOSUB902
1960 PRINT"THIS IS GUARANTEED TO FOOL EVEN"
1970 PRINT"THE MOST INTELLIGENT OF ALL NERDS."
1980 PRINT"[158]THEY WILL THINK THEIR COMMODORE IS"
1990 PRINT"BROKEN.  HAVE PLENTY OF TISSUE PAPER"
2000 PRINT"READY."
2010 PRINT"[156]THIS JUST MAKES YOUR COMPUTER"
2020 PRINT"IGNORE EVERYTHING YOU TYPE --"
2025 PRINT"EXCEPT STOP[156]."
2030 PRINT"[154]IT IS SIMPLE BUT EFFECTIVE."
2040 GETA$:IFA$=""THEN2040
2050 IFA$="M"THENRUN
2060 IFA$="U"THEN2080
2070 GOTO2040
2080 GOSUB1381:PRINT"READY."
2100 POKE19,54:INPUTA$:IFA$="STOP"THENRUN
2110 PRINT:GOTO2100
2147 :
2148 :REM  WAKE UP
2149 :
2150 GOSUB902
2160 PRINT"FOR THE FIRST TIME, YOUR C64"
2170 PRINT"(OR C128) IS GETTING SLEEPY.  SEE"
2180 PRINT"WHAT HAPPENS WHEN THE UNSUSPECTING"
2190 PRINT"USER TRIES TO WAKE IT UP."
2200 PRINT"[153]ZZZZZZZZZZZZZZZZZ"
2210 GETA$:IFA$=""THEN2210
2220 IFA$="M"THENRUN
2230 IFA$="U"THEN2250
2240 GOTO2210
2250 GOSUB1381
2260 PRINT"READY."
2270 POKE19,54:INPUTA$
2280 PRINT:PRINT"DON'T WAKE ME UP.  I'M SLEEPING."
2290 PRINT"READY."
2300 POKE19,54:INPUTA$
2310 PRINT:PRINT"I SAID TO LEAVE ME ALONE!"
2320 PRINT"READY."
2330 POKE19,54:INPUTA$
2340 PRINT:PRINT"GOODNIGHT, I'M TURNING THE LIGHTS OFF!"
2350 FORD=1TO3000:NEXT
2360 POKE53280,15:POKE53281,15
2370 FORD=1TO100:NEXT:POKE53280,12:POKE53281,12:FORD=1TO100:NEXT
2380 POKE53280,11:POKE53281,11:FORD=1TO100:NEXT:POKE53280,0:POKE53281,0
2390 PRINT"[144][147]"
2395 GOSUB9000:GOTO2395
2397 :
2398 :REM  128 LOOK-ALIKE
2399 :
2400 GOSUB902
2410 PRINT"[150]THIS WILL MAKE YOUR C64 LOOK JUST"
2420 PRINT"LIKE A C128 -- A NON-WORKING C128."
2440 GETA$:IFA$=""THEN2440
2450 IFA$="M"THENRUN
2460 IFA$="U"THEN2480
2470 GOTO2440
2480 PRINT"[147]":POKE53280,13:POKE53281,11
2490 PRINT"[153] COMMODORE BASIC V7.0 122365 BYTES FREE"
2500 PRINT"   (C)1985 COMMODORE ELECTRONICS, LTD."
2510 PRINT"        (C)1977 MICROSOFT CORP."
2520 PRINT"          ALL RIGHTS RESERVED"
2525 PRINT"READY"
2530 GOSUB8000
2537 :
2538 :REM  INTRUDER ALERT
2539 :
2540 GOSUB902
2550 PRINT"WITH 'INTRUDER ALERT', YOU CAN"
2560 PRINT"MAKE SURE EVERYONE KEEPS FAR"
2570 PRINT"AWAY FROM YOUR COMPUTER."
2580 PRINT"[158]YOU CAN MAKE UP SOME WILD STORY"
2590 PRINT"EXPLAINING YOUR NEW SECURITY"
2600 PRINT"SYSTEM."
2602 PRINT"[159]TURN THE VOLUME WAY UP!"
2610 GETA$:IFA$=""THEN2610
2620 IFA$="M"THENRUN
2630 IFA$="U"THEN2650
2640 GOTO2610
2650 GOSUB1381
2660 PRINT"READY."
2670 POKE19,54:INPUTA$:FORI=54272TO54296:POKEI,0:NEXT:POKE54272,12
2671 PRINT"[147]"TAB(12)"INTRUDER ALERT!!"
2672 POKE54296,15:POKE54277,0:POKE54278,240:POKE54275,8:POKE54276,65
2674 POKE54273,1
2680 POKE53280,0:POKE53281,0
2690 FORI=1TO100:POKE54273,I:NEXT
2695 GOSUB9000
2700 POKE53280,2:POKE53281,2
2710 FORI=100TO1STEP-1:POKE54273,I:NEXT
2715 GOSUB9000
2720 GOTO2680
2747 :
2748 :REM  FLATTERING
2749 :
2750 GOSUB902
2760 PRINT"[159]THERE IS NOTHING WORSE THAN A"
2770 PRINT"COMPUTER TRYING TO FLIRT WITH YOU."
2780 PRINT"[150]TRY THIS ONE ON YOUR FRIENDS AND"
2790 PRINT"THEY WILL BE IN FOR A BIG SURPRISE!"
2800 GETA$:IFA$=""THEN2800
2810 IFA$="M"THENRUN
2820 IFA$="U"THEN2840
2830 GOTO2800
2840 GOSUB1381
2850 PRINT"READY."
2860 POKE19,54:INPUTA$
2870 PRINT:PRINT"MY, WHAT BEAUTIFUL FINGERS YOU HAVE!":PRINT"READY."
2880 POKE19,54:INPUTA$
2890 PRINT:PRINT"I LOVE THE WAY YOU STROKE MY KEYS!":PRINT"READY."
2900 POKE19,54:INPUTA$
2910 PRINT:PRINT"TOUCH ME LIKE THAT AGAIN, PLEASE?":PRINT"READY."
2920 POKE19,54:INPUTA$
2930 PRINT:PRINT"YES, I LOVE YOU TOO":PRINT"READY."
2940 POKE19,54:INPUTA$
2950 PRINT:PRINT"BYE DEAR, TALK TO YOU LATER, EH?"
2960 GOSUB8000
2997 :
2998 :REM  TWILIGHT ZONE
2999 :
3000 GOSUB902
3010 PRINT"[156]YOU ARE ABOUT TO ENTER A"
3020 PRINT"DIFFERENT DIMENSION - NOT ONLY"
3030 PRINT"OF SIGHT AND SOUND BUT OF MISCHIEF."
3040 PRINT"[158]DOO DE DO DA..."
3050 GETA$:IFA$=""THEN3050
3060 IFA$="M"THENRUN
3070 IFA$="U"THEN3090
3080 GOTO3050
3090 GOSUB1381
3100 PRINT"READY."
3102 FORR=54272TO54296:POKER,0:NEXT
3103 POKE54296,15:POKE54277,0:POKE54278,240:POKE54275,8:POKE54276,65
3104 POKE54272,12
3110 POKE19,54:INPUTA$
3120 FORI=1TO25:PRINT:NEXT
3130 PRINT"[147]":POKE53280,0:POKE53281,0
3140 A$="YOU HAVE JUST ENTERED THE TWILIGHT ZONE!"
3150 PRINT""
3160 FORI=1TOLEN(A$):PRINTMID$(A$,I,1);:FORD=1TO100:NEXT:POKE54273,255
3170 POKE54273,200:NEXT
3180 FORI=255TO0STEP-1:POKE54273,I:NEXT
3200 POKE54273,50:FORI=1TO50:POKE53280,0:POKE53280,5:NEXT
3210 POKE54273,60:FORI=1TO50:POKE53280,0:POKE53280,6:NEXT
3220 POKE54273,70:FORI=1TO50:POKE53280,0:POKE53280,2:NEXT:POKE53280,0
3225 GOSUB9000
3230 FORXX=54272TO54295:POKEXX,0:NEXT:POKE54296,15:POKE54277,8:POKE54278,255
3231 POKE54276,23:YY=4:FORZZ=1TO3:POKE54287,YY:FORXX=1TO150:POKE54273,XX
3232 POKE53280,6:POKE53280,5:YY=YY+.01:GOSUB9000:NEXT:NEXT:POKE54278,15
3233 GOSUB9000
3235 GOTO3230
3247 :
3248 :REM  BYTE THIEF
3249 :
3250 GOSUB902
3260 PRINT"[154]ARE YOU GETTING SICK OF ALWAYS"
3270 PRINT"SEEING 38911 BYTES FREE?"
3280 PRINT"[158]THIS WILL GET RID OF 'EM."
3290 GETA$:IFA$=""THEN3290
3300 IFA$="M"THENRUN
3310 IFA$="U"THEN3330
3320 GOTO3290
3330 GOSUB1381:PRINT"READY."
3340 POKE19,54:INPUTA$
3345 PRINT:PRINT"OUCH!!  DON'T HIT MY KEYBOARD SO HARD!!"
3350 PRINT:PRINT"I'M GOING TO PUNISH YOU BY TAKING"
3360 PRINT"AWAY YOUR AVAILABLE RAM MEMORY."
3370 FORI=38911TO0STEP-1
3377 GOSUB9000
3380 PRINT""I
3390 NEXT
3997 :
3998 :REM  MALFUNCTION
3999 :
4000 GOSUB902
4004 IFA$="N"THENRUN
4010 PRINT"SCARE 'EM INTO THINKING THEY'VE"
4020 PRINT"DESTROYED YOUR COMPUTER."
4030 PRINT"[159]PREPARE TO RECEIVE KINDNESS AND/OR"
4040 PRINT"LOANS FROM YOUR VICTIMS."
4050 GETA$:IFA$=""THEN4050
4060 IFA$="M"THENRUN
4070 IFA$="U"THEN4090
4080 GOTO4050
4090 GOSUB1381
4100 PRINT"READY."
4110 POKE19,54:INPUTA$
4120 POKE53280,0:POKE53281,0
4130 PRINT"[147][150]COMPUTER MALFUNCTION"
4140 FORR=54272TO54296:POKER,0:NEXT
4150 POKE54296,15:POKE54277,0:POKE54278,240:POKE54275,8:POKE54276,65
4160 POKE54272,12
4170 POKE54273,10
4180 FORI=1TO50:GOSUB9000
4190 PRINTSPC(I);"[157] [158][192]";:POKE54273,15:POKE54273,25
4200 NEXT:POKE54273,20:POKE53280,1
4300 FORD=1TO100:NEXT:PRINT"[150]COMPUTER MALFUNCTION":POKE53280,0:GOTO4180
4347 :
4348 :REM  MESSAGE
4349 :
4350 GOSUB902
4360 PRINT"[154]WITH THIS, YOU CAN ENTER YOUR"
4370 PRINT"OWN PERSONAL MESSAGE TO BE SEEN"
4380 PRINT"AFTER THE USER HITS RETURN."
4400 GETA$:IFA$=""THEN4400
4410 IFA$="M"THENRUN
4420 IFA$="U"THEN4431
4430 GOTO4400
4431 PRINT"[147][159]YOU HAVE UP TO 10 LINES OF TEXT FOR"
4432 PRINT"YOUR MESSAGE.  PRESS RETURN TO SKIP"
4433 PRINT"REMAINING LINES.  DON'T USE COMMAS."
4434 PRINT"---------------------------------------"
4435 PRINT"---------------------------------------[145][145][145][145][145][145][145][145][145][145][145][155]"
4436 POKE19,54:FORI=0TO9:INPUTM$(I):PRINT:NEXT
4437 PRINT"[156]PRESS A KEY TO START"
4438 GETA$:IFA$=""THEN4438
4440 GOSUB1381
4450 PRINT"READY."
4460 POKE19,54:INPUTA$:IFA$="STOP"THENRUN
4470 PRINT:PRINT:FORI=0TO10:PRINTM$(I):NEXT
4474 POKE19,0
4475 GOTO4460
4497 :
4498 :REM  SELF CONTROL
4499 :
4500 GOSUB902
4510 PRINT"[156]THIS WILL FREAK 'EM OUT BY"
4520 PRINT"ALLOWING YOUR COMMODORE TO CONTROL"
4530 PRINT"ITSELF."
4540 PRINT"[158]IT WILL SEEM LIKE IT'S WRITING"
4550 PRINT"AND EXECUTING A SMALL PROGRAM."
4560 GETA$:IFA$=""THEN4560
4570 IFA$="M"THENRUN
4580 IFA$="U"THEN4600
4590 GOTO4560
4600 GOSUB1381
4610 PRINT"READY."
4620 POKE19,54:INPUTA$
4630 PRINT:A$="LET ME TAKE OVER NOW."
4635 GOTO4650
4640 FORI=1TOLEN(A$):PRINTMID$(A$,I,1);:FORD=1TO100
4642 NEXT:NEXT:PRINT:RETURN
4650 GOSUB4640:FORD=1TO300:NEXT
4660 PRINT:A$="10 PRINTTAB(RND(1)*35)"+CHR$(34)+"HELP!"+CHR$(34)
4670 GOSUB4640
4680 A$="20 GOTO 10"
4690 GOSUB4640
4691 PRINT:A$="RUN":GOSUB4640
4700 PRINT:FORD=1TO750:NEXT
4710 PRINTTAB(RND(1)*35)"HELP!"
4715 GOSUB9000
4720 GOTO4710
4797 :
4798 :REM  NORAD
4799 :
4800 GOSUB902
4810 PRINT"[158]SCARE 'EM INTO THINKING THEY'VE"
4820 PRINT"BROKEN INTO THE DEFENSE DEPARTMENT"
4830 PRINT"WITH YOUR MODEM."
4840 PRINT"[154]IF YOU DON'T HAVE A MODEM, THEY'LL"
4850 PRINT"THINK YOU HAVE ONE."
4860 GETA$:IFA$=""THEN4860
4870 IFA$="M"THENRUN
4880 IFA$="U"THEN4900
4890 GOTO4860
4900 GOSUB1381
4920 FORR=54272TO54296:POKER,0:NEXT
4930 POKE54296,15:POKE54277,0:POKE54278,240:POKE54275,8:POKE54276,65
4960 PRINT"READY.":POKE19,54:INPUTA$
4970 PRINT:PRINT"DIALING NORAD DEFENSE SYSTEMS...":POKE54272,12
4980 FORI=1TO4:FORJ=1TO25
4990 POKE54273,50:POKE54273,60
5000 FORD=1TO25:NEXT:NEXT:POKE54273,0:FORD=1TO750:NEXT:NEXT
5010 PRINT"CONNECT ON -- 9600 BPS"
5020 PRINT"** US GOVERNMENT DEFENSE SYSTEMS **"
5030 PRINT"PASSWORD:";
5040 POKE19,54:INPUTA$:IFA$="STOP"THENRUN
5050 PRINT:PRINT"LOGON COMPLETE."
5060 PRINT"WELCOME, OFFICER NORTH."
5070 PRINT"COMMAND:";
5080 POKE19,54:INPUTA$:PRINT:IFA$="STOP"THENRUN
5090 PRINT"MISSILE SILOS ACTIVATED."
5100 FORD=1TO1000:NEXT
5110 PRINT"LAUNCH CONFIRMATION RECEIVED."
5120 FORD=1TO950:NEXT
5130 PRINT"LAUNCHING NUCLEAR WARHEAD #";INT(RND(1)*5000+1)+4000
5135 FORD=1TO1000:NEXT
5140 PRINT:GOTO5070
5197 :
5198 :REM  FRUSTRATION
5199 :
5200 GOSUB902
5210 PRINT"[158]EVERY TIME THE USER TYPES A"
5220 PRINT"COMMAND, THE COMPUTER WILL MIX"
5230 PRINT"UP ONE OF HIS/HER CHARACTERS AND"
5240 PRINT"GIVE 'EM A SYNTAX ERROR."
5250 PRINT"[159]IS THAT FRUSTRATING OR WHAT?"
5260 GETA$:IFA$=""THEN5260
5270 IFA$="M"THENRUN
5280 IFA$="U"THEN5300
5290 GOTO5260
5300 GOSUB1381
5310 PRINT"READY."
5320 POKE19,54:INPUTA$:IFA$=""THENPRINT:GOTO5320
5325 IFA$="STOP"THENRUN
5330 L=LEN(A$)
5340 P=INT(RND(1)*L+1)
5350 C$=MID$(A$,P,1)
5360 H$=CHR$(ASC(C$)+1)
5370 PRINT:PRINTTAB(P-1)"[145]";H$
5380 PRINT:PRINT"?SYNTAX  ERROR"
5390 GOTO5310
5397 :
5398 :REM  EARTHQUAKE
5399 :
5400 GOSUB902
5410 PRINT"[156]YOU ALWAYS WANTED TO HAVE AN"
5420 PRINT"EARTHQUAKE OCCUR ON YOUR COMPUTER"
5430 PRINT"SCREEN, RIGHT?  HERE IT IS."
5440 PRINT"[159]8.2 ON THE RICHTER SCALE."
5450 GETA$:IFA$=""THEN5450
5460 IFA$="M"THENRUN
5470 IFA$="U"THEN5490
5480 GOTO5450
5490 GOSUB1381
5500 PRINT"READY."
5510 POKE19,54:INPUTA$
5511 FORR=54272TO54296:POKER,0:NEXT
5512 POKE54296,15:POKE54277,0:POKE54278,240:POKE54275,8:POKE54276,129
5513 POKE54272,12
5514 POKE54273,1
5520 PRINT"INTERNAL MICRO-QUAKE!"
5540 WAIT53266,128:POKE53265,RND(1)*8+16:WAIT53266,128:POKE53270,RND(1)*8
5545 IFPEEK(203)=57ANDPEEK(653)=2THENPOKE53265,27:POKE54296,0:POKE53270,200:RUN
5550 GOTO5540
5997 :
5998 :REM  DISABLE STOP
5999 :
6000 IFPEEK(808)=237THEN6040
6010 MU$(16)=" DISABLE STOP   "
6020 POKE808,237:POKE54296,15:POKE54296,0
6030 GOTO290
6040 MU$(16)=" ENABLE STOP    "
6050 POKE808,234:POKE54296,15:POKE54296,0
6060 GOTO290
7000 POKE214,19:PRINT
7010 PRINTTAB(10)"[156](U[156])SE        (M[156])ENU"
7020 RETURN
8000 POKE19,65:INPUTA$:IFA$="STOP"THENRUN
8010 PRINT:PRINT:PRINT"READY"
8020 GOTO8000
9000 IFPEEK(203)=57ANDPEEK(653)=2THENRUN
9010 RETURN
10000 OPEN15,8,15,"S0:FOOLSTAR":CLOSE15:SAVE"FOOLSTAR",8:END
40000 POKE214,19:PRINT:PRINT"    [159]QUIT?  ARE YOU SURE? (Y[159]/N[159])     "
40002 GETA$:IFA$<>"Y"ANDA$<>"N"THEN40002
40004 IFA$="N"THENRUN
40009 PRINT"[147]":POKE787,0
40010 OPEN15,DV,15,"R0:HELLO CONNECT=HELLO CONNECT":INPUT#15,ER%:CLOSE15
40020 IFER%<>63THENEND
40030 PRINT"[144]LOAD"CHR$(34)"HELLO CONNECT"CHR$(34)","DV
40040 PRINT"RUN"
40050 POKE631,13:POKE632,13:POKE198,2:END
60000 B9$="                                      "
60005 PRINT"[129]         F  O  O  L  S  T  A  R"
60007 PRINT"[159]          THE ULTIMATE REVENGE"
60010 POKE214,14:PRINT:PRINT"  [155][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][152]"
60020 FORI=0TO7:PRINTB9$:NEXT:PRINT"  [151][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][152]"
60030 B9$(0)="F O O L S T A R   V1"
60040 B9$(1)="BY DAN KOMAROMI"
60050 B9$(2)="(C) 1991 BY SOFTDISK, INC."
60060 B9$(3)="PUBLISHED ON LOADSTAR #83"
60070 B9$(4)="SUBSCRIPTIONS 1-800-831-2694"
60080 B9$(5)="ALL RIGHTS RESERVED"
60090 POKE214,16:PRINT:FORI=0TO5:PRINTTAB(20-(LEN(B9$(I))/2))""B9$(I):NEXT
60095 FORT=0TO3000:NEXT
60099 RETURN