KKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK +  80, 208, 245, 230, 254, 32, 210, 255, 169, 4_  166, 254, 160, 255, 32, 186, 255, 169, 0, 133  63, 133, 64, 133, 2, 32, 189, 255, 32, 192  255, 166, 254, 32, 201, 255, 76, 73, 193, 96  32, 210, 255, 173, 141, 2, 41, 1, 208, 249& 55,240,3,255,224,0,255,128,0,0,0,0,0,0"q * U *kv 0,0,0,0,0,0,15,128,248,15,128,248,15,128,248,15,128,248,15,128,248 15,128,248,15,128,248,15,128,248,15,128,248,15,128,248,15,128,248,15128,248,15,193,248,15,255,240,7,255,240,3,255,224, 0,0,0,0,0,0,126,0,126,63,0,252,31,129,248,15,195,240,7,231,224,3,255w 192,1,255,128,0,255,0,0,126,0,0,126,0,0,126,0,0,126,0,0,126,0,0 126,0,0,126,0,0,126,0,0,126,0,0,0,0,0,0,0 * 1 * 0,0,0,0,0,0,0,62,0,0,126,0,0,254,0,1,254,0,0,62, 8,0,0,248,0,0,248,15,128? 248,15,193,240,7,255,240,3,255,224,0,255,128,0,0,0,0,0,0K * 8 *  0,0,0,0,0,0,0,254,0,7,255,192,15,255,224,31,131,240,31,1,240,31,1,24015,131,224,7,255,192,3,255,128,7,255,192,15,131,224,31,1,240,31,1,240 0,255,128,0,0,0,0,0,0 248,15,193,240,7,255,240,3,255,224,0,255,128,0,0,0,0,0,0F * 8 *  0,0,0,0,0,0,0,254,0,7,255,192,15,255,224,31,131,240,31,1,240,31,1,24015,131,224,7,255,192,3,255,128,7,255,192,15,131,224,31,1,240,31,1,240  31,224,0,255,128,0,0,0,0,0,0 248,15,193,240,7,255,240,3,255,224,0,255,128,0,0,0,0,0,0K * 8 *  0,0,0,0,0,0,0,254,0,7,255,192,15,255,224,31,131,240,31,1,240,31,1,24015,131,224,7,255,192,3,255,128,7,255,192,15,131,224,31,1,240,31,1,240 ,248,0,0,248,15,128: 248,15,193,240,7,255,240,3,255,224,0,255,128,0,0,0,0,0,0F * 8 *  0,0,0,0,0,0,0,254,0,7,255,192,15,255,224,31,131,240,31,1,240,31,1,24015,131,224,7,255,192,3,255,128,7,255,192,15,131,224,31,1,240,31,1,240  31 230, 252, 76, 74, 3, 169, 236H  160, 3, 32, 30, 203, 166, 63, 165, 64, 32|  205, 221, 169, 13, 32, 210, 255, 96, 230, 251  208, 2, 230, 252, 96, 0, 76, 73, 78, 69  83, 58, 32, 0, 76, 73, 78, 69, 32, 35  32, 0, 0, 0, 0, 08, 133, 0, 0, 0, 205, 189, 169, 13, 32, 210, 255, 32X  204, 255, 169, 4, 76, 195, 255, 147, 83, 67  82, 69, 69, 78, 32, 79, 82, 32, 80, 82  73, 78, 84, 69, 82, 32, 63, 32, 0, 76  44, 193, 234, 177, 251, 201, 32, 240, 6, 138 113, 251, 190 AN(AN$):: CH1 AN: PR$: CHF V21,0: "": 53280,0: 53281,0j (L$,15)10)"LOADING "PR$"" "LOAD";(34);PR$;(34);",8" "RUN": ""  631,13: 632,13: 198,2: ,LI6186(L$,LI)"   96, 32, 205, 189, 169, 13, 32, 210, 255, 32X  204, 255, 169, 4, 76, 195, 255, 147, 83, 67  82, 69, 69, 78, 32, 79, 82, 32, 80, 82  73, 78, 84, 69, 82, 32, 63, 32, 0, 76  44, 193, 234, 177, 251, 201, 32, 240, 6, 138 113, 251, LEX GUNSHOT,SPACE GUNSHOT,SEASHORE,BOINKC NEEDLES,BIRTHDAY CALC,BIRTHDAY SIMOW * J *X 0,0,0,0,0,0,0,0,248,0,0,248,0,0,248,0,0,248,0,0,248,0,0,248,0,0,248b 0,0,248,0,0,248,15,128,248,15,128,248,15,128,248,15,193,248l 15,255,240,7,2 0,255,128,0,0,0,0,0,0 * L *W 0,0,0,0,0,0,15,128,0,15,128,0,15,128,0,15,128,0,15,128,0,15,128,0 15,128,0,15,128,0,15,128,0,15,128,0,15,128,0,15,128,0,15,128,0,15,255 240,15,255,240,15,255,240,15,255,240,0,0,0,0,0,0 * Y *1 0,0,62,0,0,62,0,0,62,0J 0,62,0,0,62,0,0,62,0,0,62,0,0,62,0,0,62,0,1,255,192,1,255,192,1,255` 192,0,0,0,0,0,0l * 9 * 0,0,0,0,0,0,0,255,0,3,255,192,7,255,240,15,195,240,15,129,248,15,129 248,7,195,248,7,255,248,3,255,248,0,255,24  31,131,240,15,255,224,7,255,192,1,255,0,0,0,0,0,0,0(% * 5 *r* 0,0,0,0,0,0,15,255,240,15,255,240,15,255,240,15,255,240,15,128,0,154 128,0,15,128,0,15,255,128,15,255,224,15,255,240,0,1,248,0,0,248,15,128> 248,15,193,248,7,255,240,3,255K ,131,240,15,255,224,7,255,192,1,255,0,0,0,0,0,0,0#% * 5 *m* 0,0,0,0,0,0,15,255,240,15,255,240,15,255,240,15,255,240,15,128,0,154 128,0,15,128,0,15,255,128,15,255,224,15,255,240,0,1,248,0,0,248,15,128> 248,15,193,248,7,255,240,3,255,224,K A10:B.:150" TM$(13)AN$" " 225= AN$AN$TM$:AN$;"_";u T(V39):V39,(V40):V40,(V41):V41,(V42) V42,(V43):V43,(V44):V44,(V45) V45,(V46):V46,T:D130: 200 AN(AN$):AN1AN22" ": "::W FORMATTER,SELECTACHROME,DISINTEGRATOR,SOUND-A-RAMA,64 WINDOWS FIDGITS,GATORS N SNAKES,64 BUG REP,VIC BUG REP,FLANKSPEED F-SPEED OVER,SCREEN DUMP UTIL,SIMPLE GUNSHOT,HELICOPTER BLADE SAWING WOOD,COMP  69, 254, 170, 138, 76, 88, 192, 0D 0, 0, 0, 230, 251, 208, 2, 230, 252, 96u 170, 177, 251, 201, 34, 208, 6, 165, 2, 73 255, 133, 2, 165, 2, 208, 218, 177, 251, 201 32, 208, 212, 198, 254, 76, 29, 193, 0, 169 13, 76, 210, 255,  << RR20-3 >>6"":53280,0:53281,6:646,1V -- BIRTHDAY SIMULATOR --s RUPERT REPORT #20y - SIMULATE GROUPS OF PEOPLE WITH RANDOMLY CHOSEN BIRTHDAYS. EACH GROUP CONTAINS 'NUMP' PEOPLE. BDAY(X 'L$"":H53280,6:53265,(53265)239r I122:A$::X60:Y57:CL1:SC53281I1228812350:SP:I,SP:I1235212414:SP:I,SP:I1241612478:SP:I,SP:I1248012542:SP:I,SP: I1254412 15:V12,240& FV16,128:V14,5:V15,YF d"": SC,1:V21,255:TA10] n53265,(53265)16 (L$,5)" * * * D I R E C T O R Y * * * ": AA1:BB1:PR$:A9TA9 (L$,B6)TA)""A"-"PR$ B11 175 150 A2 :TA10:B.:150$ TM$(13)AN$" " 225? AN$AN$TM$:AN$;"_";w T(V39):V39,(V40):V40,(V41):V41,(V42) V42,(V43):V43,(V44):V44,(V45) V45,(V46):V46,T:D130: 200 AN(AN$):AN1AN22" "  "::Z FORMATTER,SELECTACHROME,DSNTGRTOR BOOT,SOUND-A-RAMA,64 WINDOWS FIDGITS,GATORS N SNAKES,64 BUG REP,VIC BUG REP,FLANKSPEED F-SPEED OVER,SCREEN DUMP UTIL,SIMPLE GUNSHOT,HELICOPTER BLADE SAWING WOOD,C 8,15,255,248,15,128,248,15,128,248,15,128,248,15,128,248:n 0,0,0,0,0,0Fq * U *v 0,0,0,0,0,0,15,128,248,15,128,248,15,128,248,15,128,248,15,128,248 15,128,248,15,128,248,15,128,248,15,128,248,15,128,248,15,128,248,15'128,248,15,193 ,3,255,224,0,255,128,0,0,0,0,0,0 * . *b 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 0,0,0,0,0,0,0,0,0,0,0,0,0,0,3,128,0,3,128,0,3,128,0,0,0,0,0,0,0 * 1 * 0,0,0,0,0,0,0,62,0,0,126,0,0,254,0,1,254,0,0,62 48,0,0,248,0,0,248,15,128@ 248,15,193,240,7,255,240,3,255,224,0,255,128,0,0,0,0,0,0L * 8 *  0,0,0,0,0,0,0,254,0,7,255,192,15,255,224,31,131,240,31,1,240,31,1,24015,131,224,7,255,192,3,255,128,7,255,192,15,131,224,31,1,240,31,1,240 ERSN)DAY xCT(DAY)CT(DAY)1% PERSNB - CHECK FOR DUPLICATESW PERSN1 NUMPu CT(BDAY(PERSN))2 180 SUCCESS1 PERSNNUMP PERSN SUCCESS1 TTLTTL1 GROUP"GROUPS "; TTL100GROUP"% SUCCESS" G5,224,0,255,128,0,0,0,0,0,0 248,15,193,240,7,255,240,3,255,224,0,255,128,0,0,0,0,0,0L * 8 *  0,0,0,0,0,0,0,254,0,7,255,192,15,255,224,31,131,240,31,1,240,31,1,24015,131,224,7,255,192,3,255,128,7,255,192,15,131,224,31,1,240,31,1,240 ) IS THE*  BIRTHDAY (1-366) OF THE XTHQ  PERSON. CT(X) IS THE COUNT OFv  HOW MANY PEOPLE IN THE GROUP  HAVE DAY X AS THEIR BIRTHDAY.  SUCCESS=1 IF TWO PEOPLE IN  ONE GROUP HAVE THE SAME  BIRTHDAY.   606:SP:I,SP:, I1260812670:SP:I,SP:K I1267212734:SP:I,SP:j I1273612798:SP:I,SP: #M.:V53248:I20402047:MM1:I,191M: (I3946:CLCL1:VI,CL: 2I062:XX25:VI,X::I1132:VI,Y: <V8,195:V10,2 2 :A0> (L$,22)" DOUBLE L SOFTWARE "z (L$,24)7)"(C) ION INTERNATIONAL INC":198,0:AN$"" (L$,20)8)"PRESS F1 OR CHOOSE NO. "; TM$:TM$(13)AN$"" 210 TM$(20)" ":190 TM$""300 :190" AN(AN$):: CH1 AN: PR$: CHH V21,0: "": 53280,0: 53281,0l (L$,15)10)"LOADING "PR$"" "LOAD";(34);PR$;(34);",8" "RUN": ""  631,13: 632,13: 198,2: ,LI6186(L$,LI)" OMPLEX GUNSHOT,SPACE GUNSHOT,SEASHORE,BOINKF NEEDLES,BIRTHDAY CALC,BIRTHDAY SIMRW * A *X 0,0,0,0,0,0,0,255,128,3,255,224,7,255,240,15,255,248,15,193,248b 15,128,248,15,128,248,15,128,248,15,128,248,15,255,248,15,255,248(l 15,255,24:AD(0)54277:SR(0)54278^  I1 2:XI7:FL(I)FL(0)X:FH(I)FH(0)X:GT(I)GT(0)X:AD(I)AD(0)Xr SR(I)SR(0)X:  SET VOLUME ADDRESS VL54296  220 70: FH(1),I: FH(2),I: < GT(1),0: GT(2),0: GT(0),0: (653)0 40 F ,248,15,255,240,7,255,240,3,255,224,0,255,128,0,0,0,0,0,03 * G * 0,0,0,0,0,0,0,255,128,3,255,224,7,255,240,15,255,240,15,193,248,15,128 248,15,128,0,15,128,0,15,128,0,15,135,248,15,135,248,15,128,248,15  193,248,15,255,240,7,255,240 ,0,0,62,0,0,62,0,0,62,0K 0,62,0,0,62,0,0,62,0,0,62,0,0,62,0,0,62,0,1,255,192,1,255,192,1,255a 192,0,0,0,0,0,0m * 9 * 0,0,0,0,0,0,0,255,0,3,255,192,7,255,240,15,195,240,15,129,248,15,129 248,7,195,248,7,255,248,3,255,248,0,255,2ROUPGROUP1 : 60THIS/ ( BDAY(NUMP),CT(366); 2GROUP1I <SUCCESS0o A - RESET COUNT OF USED BIRTHDAYS F PERSN1 NUMP PCT(BDAY(PERSN))0 : U - CHOOSE EACH PERSON'S BIRTHDAY Z PERSN1 NUMP dDAY(366(0))1 nBDAY(P  31,131,240,15,255,224,7,255,192,1,255,0,0,0,0,0,0,0)% * 5 *s* 0,0,0,0,0,0,15,255,240,15,255,240,15,255,240,15,255,240,15,128,0,154 128,0,15,128,0,15,255,128,15,255,224,15,255,240,0,1,248,0,0,248,15,128> 248,15,193,248,7,255,240,3,25 NUMP24 : << CHANGE THIS/ ( BDAY(NUMP),CT(366); 2GROUP1I <SUCCESS0o A - RESET COUNT OF USED BIRTHDAYS F PERSN1 NUMP PCT(BDAY(PERSN))0 : U - CHOOSE EACH PERSON'S BIRTHDAY Z PERSN1 NUMP dDAY(366(0))1 nBDAY(P  A1:3070 % T(ACA):T9A$(T55):30904 A$(T48)I A$;:ACACAT:aA$"**SAVE**":4200w1,T,1,A$:680:1ST01060:T812004000A$"**LOAD**":420061,T,0,A$:690:1@ST64110J1070:T ::"END OF ML AREA":"L54276,17:54276,16:B15,8,15:15,A,A$:15:A$:[ GET FOUR DIGIT HEXj:B$;:T$(T$)41020:2010A14:A$(T$,A,1):2060:T(A)161020:2010:B(T(1)4096)(T(2)256)(T(3)16)T(4):  A$ #"":53280,0:53281,3:646,07 SOUND EFFECTSF SEASHOREV 900: 100 AD(1),160: SR(1),255: FL(1),30: FH(1),30 AD(2),15: SR(2),0: FH(2),80 VL,15: "PRESS RUNSTOP/RESTORE TO STOP"# GT(1),129# ( GT(2),129: I IFT IS PRESSED, d "PRESS SHIFT TO HEAR SOUND"A n (653)0 110P x 20: 100r  ROUTINE TO SET UP VARIABLES  SET UP SOUND CONTROL ADDRESSES FL(0)54272:FH(0)54273:GT(0)54276:AD(0)54277:SR(0)54278#  I1 2:XI7:FL(I)FL(0)X: $"":53280,4:53281,1:646,118 SOUND EFFECTSP HELICOPTER BLADES HUMMING SOUND IN VOICE 0 SUGGESTS YOU ARE IN HELICOPTER TO HEAR MORE DISTANT CHOPPER, REMOVE ":POKE GT(0),17" FROM LINE 40 900: 100#  I1 2: AD(I),  (653)0 70 ZE c ROUTINE TO PLAY SOUNDS WHEN SHIFT IS PRESSEDg d "PRESS SHIFT TO HEAR SOUND"| n (653)0 110 x 20: 100  ROUTINE TO SET UP VARIABLES  SET UP SOUND CONTROL ADDRESSES FL(0)54272:FH(0)54273:GT(0)54276  SOUND EFFECTS+ "SPACE" GUNSHOT; 900: 100j AD(1),5: SR(1),53: FL(1),30: FH(1),30 AD(0),5: SR(0),53 : FH(0),250 VL,15: "."( GT(1),129: I0 29:: GT(0),172 I225 25 25: FH(0),I: X0 19:: <54276:AD(0)54277:SR(0)54278e  I1 2:XI7:FL(I)FL(0)X:FH(I)FH(0)X:GT(I)GT(0)X:AD(I)AD(0)Xy SR(I)SR(0)X:  SET VOLUME ADDRESS VL54296 1),129: I0 29:: GT(0),172 I225 25 25: FH(0),I: X0 19:: < #"":53280,0:53281,2:646,17 SOUND EFFECTSE "BOINK"U 900: 100 AD(1),5: SR(1),21: FL(1),30: FH(1),30 AD(0),5: SR(0),53 : FH(0),25 VL,15: "."( GT(1),129: I0 29:: GT(0),17 2 I25 250 25: FH54272:FH(0)54273:GT(0)54276:AD(0)54277:SR(0)54278}  I1 2:XI7:FL(I)FL(0)X:FH(I)FH(0)X:GT(I)GT(0)X:AD(I)AD(0)X SR(I)SR(0)X:  SET VOLUME ADDRESS VL54296 (1),129: I0 29:: GT(0),17 2 I25 250 25: FH 81200T4100h" ":14)A$*r:A$"":"FILENAME";A$:wA$""4210S|:"TAPE OR DISK?":yB$:T1:B$"D"T8:A$"@0:"A$:B$"T"4230B$"CONTINUE FROM ADDRESS":2010:ADB2515:B04500:110\B$"BEGIN S "@"A$"G"T(A)(A$)55:-A$"/"A$":"T(A)(A$)48:; T(A)16:N ADRESS CHECK^ ADEN1030r BSRBEN1040 B256(B40960B49152)B532471050  ADDRESS TO HEX ACAD:A4096:3070 A256:3070 A16:3070 255 100 (1(3(9))): FH(1),IA 2X4(I23): X15 X15e 7 VL,X: X0 29::: GT(2),0 < I100 255 8(10(9)): FH(1),I FX4(I23): X15 X15 K VL,X: X0 19:: P 40 Z c ROUTINE TO PLAY SOUNDS WHEN SHmFH(I)FH(0)X:GT(I)GT(0)X:AD(I)AD(0)X7 SR(I)SR(0)X:P  SET VOLUME ADDRESS] VL54296c  I100 255 8(10(9)): FH(1),I FX4(I23): X15 X15 K VL,X: X0 19:: P 40 Z c ROUTINE TO PLAY SOUNDS WHEN SH 48: SR(I),16:: FH(1),20: FH(2),40H  AD(0),34: SR(0),49: FH(0),10r  VL,15: "PRESS SHIFT TO STOP SOUND" ( GT(1),129: GT(2),129: GT(0),17 2 I10 220 70: FH(1),I: FH(2),I: < GT(1),0: GT(2),0: GT(0),0: (653)0 40 F  << RR20-1 >>6"":53280,6:53281,1:646,6O -- NEEDLES --i RUPERT REPORT #20o - SIMULATE THE BUFFON NEEDLE EXPERIMENT. DROP NEEDLES OF LENGTH L ON FLOORBOARDS OF WIDTH H. SUCCESS IF NEEDLE  GT(1),0: GT(0),0 ZK c ROUTINE TO PLAY SOUNDS WHEN SHIFT IS PRESSEDn d "PRESS SHIFT TO HEAR SOUND"; n (653)0 110 x 20: 100  ROUTINE TO SET UP VARIABLES  SET UP SOUND CONTROL ADDRESSES FL(0)54272:FH(0)54273:GT(0) $  LANDS ON A CRACK. PROBABILITYE  OF LANDING ON A CRACK ISZ  (2*L)/(H*PI)`  H1 :LH :TRIES1 :WINS1 :K2LH  (147)12)"< TRIES" ( 12)"< PI" 2 12)"< AVG" <Y0H(0) FA(0)30000 PYL(A)Y0 Z Y (0),I: X0 14::* < GT(1),0: GT(0),00 Zc c ROUTINE TO PLAY SOUNDS WHEN SHIFT IS PRESSED d "PRESS SHIFT TO HEAR SOUND"; n (653)0 110 x 20: 100  ROUTINE TO SET UP VARIABLES  SET UP SOUND CONTROL ADDRESSES1 FL(0)H Y0 WINSWINS1% dPIKTRIESWINSD nTTLTTLPI : AVGTTLTRIES\ x (19)TRIES : PIf AVGx TRIESTRIES1 60FON NEEDLE EXPERIMENT. DROP NEEDLES OF LENGTH L ON FLOORBOARDS OF WIDTH H. SUCCESS IF NEEDLECAN AT ADDRESS":2010:ADBa2515:B04700$b:4740ZfB07:AC(ADB):3030:ADBENADSR:1080:110gk" ";:Bup:ADAD8zB$:B$(136)1103010:": ";:4710"**LOAD**":420061,T,0,A$:690:1@ST64110J1070:T2# I0I1:"DISINTEGRATOR",8,1.49152 &~ X 49152 49488 : Y: X,Y:H"":53280,0:53281,6:646,1q" 64 BUG REPELLANT INSTALLED": 32, 161, 192, 165, 43, 133, 251, 165, 44, 133 252, 160, 0, 132, 254, 32, 37, 193, 234, 177  251, 208, 3, 76, 138, 192, 230, 37, 1937  234, 165, 253, 160, 0, 76, 13, 193, 133, 253k  177, 251, 208, 237, 165, 253, 41, 240, 74, 74  74, 74, 24, 105, 65, 32, 210, 255, 165, 253  41, 15, 24, 105, 65, 32, 210, 255, 169, 13  32, 220, 192, 230, 63, 208, 2, 230, 6TIONS!" 24,160,0,185,1,208,121,81,195,153,1,208J 200,200,200,200,192,20,208,239,173,1,208,201z 200,208,3,32,67,192,56,160,16,185,255,207 249,79,195,153,255,207,136,136,136,136,192,0 208,239,162,10,160,0,200,208,253,2 53280,12:53281,11M" FLANKSPEED ";~ " MISTAKEPROOF ML ENTRY PROGRAM "" CREATED BY G. F. WHEAT "" COPR. 1984, ION INTERNATIONAL INC. "A5427254296:A,0:/ ( 01:53280,I:: 24,160,0,185,1,208,121,81,195,153,1,208J 200,200,200,200,192,20,208,239,173,1,208,201z 200,208,3,32,67,192,56,160,16,185,255,207 249,79,195,153,255,207,136,136,136,136,192,0 208,239,162,10,160,0,200,208,253,2 % X 828 1023 : Y: X,Y::W 169, 0, 133, 63, 133, 64, 165, 43, 133, 251 165, 44, 133, 252, 160, 0, 132, 254, 32, 228 3, 234, 177, 251, 208, 3, 76, 208, 3, 230 251, 208, 2, 230, 252, 169, 244, 160, 3, 32  30, 203, 16 (2)T(1)161 ZB$"ENDING ADDRESS IN HEX":2010:ENBC _2510:B080j `254,T(2)T(1)16:BT(4)1T(3)16 aB255BB255:254,(254)1 b253,B: d GET HEX LINE n3010:": ";:A08 xB01:210 }B A%(A)T(1)T(0)16:ADA #"":53280,9:53281,7:646,7B" SOUND EFFECTS"b" SIMPLE GUNSHOT" (NOTE THAT LINES 100 AND ABOVE ARE "SUPPORT"--LINES 20-90 MAKE THE SOUND) 900: 100 AD(1),5: SR(1),0: FL(1),30: FH(1),30  VL,15: 4100 A$(135)" ":45001 A$(136)" ":4700W A$"@"A$"G"T(B)(A$)55:250} A$"/"A$":"T(B)(A$)48:250 1100:210 A$""; 125 A0280 A1:B1290 140 B0(20);(20);:AA1 AA1 "̈́FL(0)54272:FH(0)54273:GT(0)54276:AD(0)54277:SR(0)54278  I1 2:XI7:FL(I)FL(0)X:FH(I)FH(0)X:GT(I)GT(0)X:AD(I)AD(0)X SR(I)SR(0)X:  SET VOLUME ADDRESS VL54296 1),5: SR(1),0: FL(1),30: FH(1),30  VL,15:  251, 208, 2:  230, 252, 76, 43, 192, 76, 73, 78, 69, 32j  35, 32, 0, 169, 35, 160, 192, 32, 30, 171  160, 0, 177, 251, 170, 230, 251, 208, 2, 230  252, 177, 251, 32, 205, 189, 169, 58, 32, 210  255, 169, 0, 133, 253, 230, 254, 32, 4, 2303  251, 208, 2, 230, 252, 76, 11, 192, 169, 153e  160, 192, 32, 30, 171, 166, 63, 165, 64, 76  231, 192, 96, 76, 73, 78, 69, 83, 58, 32  0, 169, 247, 160, 192, 32, 30, 171, 169, 3  133, 254, 32, 228, 255, 201, 83, 240, 6, 201 1100#:"INPUT A 4 DIGIT HEX VALUE!":1100T:"ENDING IS LESS THAN STARTING!":B0:1100:"ADDRESS NOT WITHIN SPECIFIED RANGE!":B0:1100:"NOT ZERO PAGE OR ROM!":B0:1100$"?ERROR IN SAVE":1100."?ERROR IN LOAD":11008 54272,4:54273,48:54277,0:54278,249:54296,15H FA680699:B:A,B:s K169,251,166,253,164,254,32,216,255,96 L169,0,166,251,164,252,32,213,255,96 PB$"STARTING ADDRESS IN HEX":2010:ADB:SRB U2520:B080 V251,T(4)T(3)16:252,T 02,208,250 173,31,208,141,82,195,96,160,0,140,80,195@ 32,151,224,165,141,41,5,172,80,195,153,81o 195,200,200,140,80,195,192,16,208,234,96SP21,0:53281,11:"""YOU ARE A REMARKABLE PLAYER..."11)"CONGRATULA 0, 0, 177, 251, 170, 230, 251, 208S  2, 230, 252, 177, 251, 32, 205, 221, 169, 58  32, 210, 255, 169, 0, 133, 253, 230, 254, 32  228, 3, 234, 165, 253, 160, 0, 170, 177, 251  201, 32, 240, 6, 138, 113, 251, 69, 254, 170"  138, 133, 1EN310 " ";0 A:TAD((AD256)256):" "T A07:TTA%(A):T255TT255Z s A%(8)T1010:110 A07:ADA,A%(A)::ADAD8:110 GET HEX INPUT A$:A$""210 A$(20)270 A$(133)4000 A$(134)  253, 177, 251, 208, 226, 165, 253, 41R  240, 74, 74, 74, 74, 24, 105, 65, 32, 210  255, 165, 253, 41, 15, 24, 105, 65, 32, 210  255, 169, 13, 32, 210, 255, 173, 141, 2, 41  1, 208, 249, 230, 63, 208, 2, 230, 64, 230  251, 208, 2, (20);:140 , LAST LINE0 6" ":TAD((AD256)256)V @B0A1:TTA%(B):T255TT255\ Ju TA%(A)T1010:110 ^B0A1:ADB,A%(B): h:"YOU ARE FINISHED!":4000  BELL AND ERROR MESSAGES :"LINE ENTERED INCORRECTLY":: "." (w" 6c< GT#c ROUTINE TO PLAY SOUNDS WHEN SHIFT IS PRESV37D@ȁH@Xȁ ##;##+xwwB4E$DE$U/ PX53281[ L(0)1350:L(1)1510:L(2)1670:L(3)1830:COL54272:LOCL(0):K0:LV1:AG0SID54272:SHSID1:SLSH3:W133:W232:"":PX,11:PX1,0ISIDSID24:I,0::54296,15:54277,0:SH5,24056,39:C(53279):50002,0" (SN$ 7,2500,5,154,128,20,241,128,24(112,0,0,112,0,0,48,0@0,24,0,0,24,0,0,48X0,0,96,0,0,128,0,0120,165,1,41,251,133,1,169,0,133,251,133,253,169,40,133,252,169,208,133254,162,8,160,0,177,253,145,251,136,208,249,230,252,230,254,2 ,0,0,224,0,1,2400,1,152,0,0,248,0,01120,0,0,48,0,0,112,0L0,224,0,1,192,0,3,128e0,3,128,0,1,192,0,0224,0,0,112,0,0,56,0 0,56,0,0,48,0,0,320,0,64,0,0,128,0,0 0,1,0,0,6,0,0,12*0,0,24,0,0,24,0,0412,0,0,14, INES 960-980":828$I1148011519:A:I,A:8.53272,((53272)240)10Q8LSIDSID24:L,0:uBSID5,88:SID6,195:SID24,15LI491524915294:ML:I,ML:CKCKML:VCK20502"ERROR IN LINES 1710-1780":`j49152:SH,2M512544:M612608:M712672:M812736.I063:A:M1I,A:GI063:A:M2I,A:`&I063:A:M3I,A:y0I063:A:M4I,A::DI063:A:M5I,A:NI063:A:M6I,A:XI063:A:M7I,A:bI063:A:M8I,A:lI07:321150) LOC40,157:COLLOC40,7:LOC,32:1130:LOCLOC40:49152:49152:1150LDWN(LOC40)^(DWN3211502LOC40,158:COLLOC40,7:LOC,32:1130:LOCLOC40:49152<49152:1150FRT(LOC1)PRT86HTHT1:H1:1380Z"ؒ"& :1910,160:COL1910,1:SP21,255I AG1UD1"";1)"";HSu L(0),155:L(1),155:L(2),155:L(3),155 L(0)COL,7:L(1)COL,7:L(2)COL,7:L(3)COL,7 53265,(53265)16:1150 SP53248:53281,11:53280,0SP21,0: 000::9042,16,215,169,93,157,161,2,232,198,92,208,195,169,109,157,161,2,232,208,163169,125,157,161,2,162,0,160,0,165,88,133,42,36,94,16,14,189,52,3,145,38,189,1523,145,40,232,200,208,12,189,161,2,145,38,173,134,2,145,40,232,200,198,42,208"0 ";37)" "- "R ";37)" "K "S ";37)" "f " ";37)" " "N ";37)" " " ";37)" " "S ";37)" " "N ";37)" " "A ";37)" " "30:LOC,32:K0:LOCL(K):1620EKK1:XHTK:LOC,159:W1129:W2128:1130:LOC,32:LOCL(K):C(53279)bK4K0:LOCL(K):1620h49152:"";1)"";SC:49152HT41301,86:1501,86:1701,86:1901,86:151015801350,155:151" G A T O R S N S N A K E S"] -I134:(SN$,I);"":T160::SL,129:SH,7:SID,255k /:SL,128 212)"BY JIM SANDERS" <14)"ONE MOMENT...":450: READ SPRITES/CHARSET/ML F"":K0:SC0:C(53279):50002,0:49203,11LV:HT002,208,240 165,1,9,4,133,1,88,96C2,4,200,59,59,200,4,2,64,32,215,216,216,23,32,64153,90,36,24,36,102,102,102,102,102,102,36,24,36,90,153129,60,66,90,90,66,60,1291030I046:A:828I,A:CKCKA:CK6871"ERROR IN L0,0,14,24>1,143,32,0,95,160,0,95/H224,0,127,128,0,31,128,0NR31,128,0,127,128,0,95,224l\0,223,160,0,223,176,0,22f176,0,15,0,0,6,0,0p0,96,0,0,240,0,13,104z0,13,251,0,5,251,0,7250,0,1,254,0,1,248,01,248,0,1,254,0,5:SID,77$tSID4,W1:T110::SID4,W2:49152:W133:W232:6~V(56321)15A49152X(50002)01440gV141270r49152V13131049152V7135049152V111400491521150UP(LOC40)UP2040I,192I:"vI3152:50000I,5::50001,470,1,0,0,2,0,0,4N0,0,12,0,0,28,0,0e28,0,0,14,0,0,7,0~0,3,128,0,1,192,0,1192,0,3,128,0,7,0,014,0,0,28,0,0,30,00,15,0,0,13,128,0,15128,0,3,128,0,0,128,00,64 RT321150&dLOC1,155:COLLOC1,7:LOC,32:1130:LOCLOC1:49152Fn49152:SCSCLV:1480:1150VxLT(LOC1)gLT321150LOC1,156:COLLOC1,7:LOC,32:1130:LOCLOC1:4915249152:49152:1150K3LOC,159:W1129:W2128:11SP23,0:SP16,192BC1SP39:C1,1:C11,1:C12,7:C13,7:C14,1:C15,1WC16,5:C17,15qI1152:SPI,100:SP0,75:SP2,140:SP4,105:SP6,195:SP8,225:SP10,255SP12,15:SP14,45M112288:M212352:M312416:M412480: 4X0:LOCL(K):1620J TSCHSHSSC:UD1$^"";1)"";HSGhSP21,0:12)"GAME"23)"OVER"hr:12)"PLAY"22)"TO AGAIN?"w12)"PRESS"21)"FIRE BUTTON"|JV(56321):FRJV16:FR161660AG1:LV1:SP23,0:70I15K ";37)" "& "E ";37)" "A "S ";37)" "_ "" ";37)" "y ,"LEV."LV;37)" " 6" ";37)" " @I04 J18)"ؒ" T: ^I08 h18)"ؒ" r: |I06 18)0,155:1670,155:1830,155:LOC1350:K0:HT0:LVLV1LV101790P4)"";LV:LV2SP23,1cLV4SP23,5wLV6SP23,19LV8SP23,51"X0:H0:1700:1610,H016106XHTK:LOCL(K):H0:L(K),155@K P53265,(53265)239:PX,117 Z" SCORE ";37)" "R d" ";37)" "m n" HI ";37)" " x" SCORE ";37)" " " ";37)" " "G ";37)" " "A ";37)" " "T ";37)" "  ,169,128,133,164,160,3,165,3,24,10,38,91:136,208,250,133,163,24,165,164,101,91,133,164,24,160,30,162@:1,32,240,255,169,2,141,134,2,32,196,195,169,69,133,87z:169,140,133,88,162,8,169,1,133,91,160,8,169,0,133,92:177,87,201,48,240,6,165,92 1,230,90,202,2087236,76,60,195,32,210,255,32,233,194,138,201,133,144,5,201(8141,176,1,96,169,2,141,134,2,138,201,48,208,6,169,3f8141,134,2,138,41,127,201,13,208,34,169,17,32,210,255,1648211,177,209,201,32,208,4,169,145,208,201,169,157,3  50HB(56):LB(55)EHBHB1:LBLB162:LB0LBLB256r56,HB:52,HB:55,LB:51,LB:ML256HBLBN0417:A:MLN,A:ML22,LB:ML23,HB:OWML5:WWML9:CWML13W$"OPEN SYS"(OW)"\WRITE SYS"(WW)"\CLOSE SYS"(CW) 165,91,145,87,96,32,233,194,1386201,133,144,25,201,138,208,14,164,211,132,165,136,177,209,133E63,165,214,133,166,138,201,141,176,3,133,253,96,41,127,201~633,144,5,173,134,2,145,87,173,141,2,201,4,240,6,138632,210,255,208,199,165,197,20140,12,136,165,71,24,105f 7,144,217,230,72,208,213,224,0,240,20,200,200,177,71,224,3,176,10,201,3,176,6 169,3,224,0,240,2,149,87,202,16,173,166,89,224,13,176,15,202,202,134,92,166,89 169,0,24,101,88,201,96,144,3,96,240,139,202,208,243,133,961,171,23141,170,2,96,169,1,141,25,208,162,130,160,12,173,18,208(416,4,162,1,164,254,142,18,208,140,33,208,173,13,220,41c41,240,3,76,49,234,76,188,254,169,0,133,89,165,209,133487,24,165,210,101,4,133,88,164,211,177,209,72,170,177,87,339105,2,133,41,36Z 94,48,37,112,37,162,0,160,0,165,88,133,42,177,38,157,52,3,177,40,157,152,3,232 200,198,42,208,240,198,89,240,143,152,24,101,95,168,208,225,208,117,160,4,162 3,177,71,149,251,136,202,208,248,136,169,112,157,161,2,232,165,93,15,89,200,169,59,145,89,165287,141,171,2,96,164,87,177,251,201,32,208,7,238,169,2@2208,215,208,154,173,169,2,240,31,240,147,173,170,2,240,11~2169,210,164,88,145,89,230,88,206,170,2,169,32,164,88,145289,230,88,206,169,2,208,245,164,87,177 LAST SCREEN ISfJ1 33>hB:CH327688B:CH:K.7:A:CHK,A::_?7ovgwwysvuE uE NU, UNLESS THE(222,198,89,208,1,96,152,24,101,95,168,24,144,205<2"":36879,232]<" "FA117:" WINDOW VIC  ":K3)"BY THOMAS BUNKER":4)"& AHOY! STAFF"P 1:646,2Z OW:D12000:d CW:D12";C84)"O DISPLAY SUCCESSIVE SCREENS,;D"PRESS THE KEY.SC(50432(2)1):2,165,88,133,44,141,130,2,96,173,14,220*T41,254,141,14,220,165,1,41,251,133,1,169,0,133,87,133Y*V89,173,173,2,133,88,169,128,133,90,162,8,160,0,177,87*X145,89,136,208,249,230,88,230,90,202,208,242,165,1,9,4*Z133,1,173,14,220,9,1,141,14,220Y FOR MENU.":685T,X:M.:FD:Z3002:LZ:G773,740,740,900,410B"NTER STARTING LINE NUMBER";wL:L1L3002"# UNEVEN OR TOO SMALL:";:745G2ZL:765ZD:"NTER ENDING LINE NUMBER";D:D1DZ"# UNEVEN OR TOO IN BLOCK"K"LINE"(64)256(63):'BB256:(CK.:J.160:A:BJ,A:CKCKA:7($CK20606E$" IN BLOCK 5":Y()685,208:49213::686,1:386(=144,5,28,159,156,30,31,158,129,149,150,151,152,153,154,155(B208,133,156,223,220,158,159,222,3,238/168,2,173,168,2,240,17,132,87,169,157,164,88,145,89,2300088,206,168,2,208,245,164,87,177,253,41,15,205,167,2,240m013,141,167,2,170,189,240,2,164,88,145,89,230,88,173,17002,240,17,164,87,177,251,201,128,176,32,206,170,2,164,88,3459)"    "&13)"      "=&17)"      "`&23)"     "}&26)"   "&29)" ":33)"  "&11)"BY MARIE COON &"25) LOWER Š"53)"3. ΠϠ$87)"(ӠҠҠ)":BL,27E$W,H:G(631)48:W,.:GHG3962T$G965,966]$410{$685,208:49213:CN4:968$685,216:49213:CN6$""242)". . . , SETS SWITCHED":TT.1000 32,87,140,168.2,140,169,2,169,40,133,91,177,251,201,32,208,45,238,1688/2,200,198,91,208,242,169,145,164,88,145,89,198,2,208,6v/169,147,32,210,255,96,230,88,24,165,251,105,40,144,4,230/252,230,254,133,251,133,253,160,0,240,193,201,34,208"OR REVISE OKE 53272 VALUES TO POINT""TO YOUR CHARACTER SET.<"47)"(IT ANY KEY TO PROCEED)^"7)"('' TO RETURN TO MENU.)"W,H:G(631):W,.:G82410"49152:RH,10:TAB""250)" OLD PROGRAM GONE! ""124)"O RECO1556,l:,n *** BLOCK 2 ***-p0,177,87,145,89,136,208,249,230,88,230,90,202,208,242,96Q-r169,0,133,87,133,89,169,216,133,88,169,124,133,90,162,4-t160,0,177,89,145,87,136,208,249,230,88,230,90,202,208,242-v96,169,0,133,251,133,253,141,1CH327688SCCJ.7:C$C$((CHJ)):& HK2(C$):Q$(C$,K,1):Q$" "Q$","5 MD$D$Q$:M R""Z"DATA"SC","D$| WZZ2:2,(2)1:(2)."RUN386":M2:560 \"RUN825":" "Z:M3:560  ***DELETE OLD*** RH,3:R,B:""170)",169,128,141,138,2,96 +\173,14,220,41,254,141,14,220,165,1,41,251,133,1,169,0H+^133,2,133,87,133,89,133,252,133,254,173,173,2,133,88,169+`128,133,90,162,0,160,0,169,8,133,253,133,251,177,87,209+b89,240,2,230,252,202,240,32,200,198,251,208,2BIG:";:760LD"TARTING # TOO BIG. TART OVER.":DF:7229FDL:"";:F11785OJLL122:J::"772 L="J":D="D":Z="Z:"RUN772":M9:560F.787JLD2:J:MM1:"772":"390 D="Z:"RUN386":MM3:560,193,213,214,215,216,217,218,219(G *** BLOCK 1 ***-)L169,1,133,87,169,8,133,88,169,0,133,57,133,58,160,3j)N177,87,201,11,176,24,133,58,136,177,87,133,57,160,0,177)P87,72,200,177,87,133,88,104,133,87,160,3,208,226,165,87)R133,43,141,129,170:0 *** BLOCK 3 *** 1169,210,208,15,164,87,177,251,201,128,144,15,238,170,2,164K188,169,146,145,89,230,88,164,87,177,251,41,127,201,34,20812,169,32,164,88,145,89,230,88,198,91,240,101,230,87,165188,201,60,144,16,200,169,34,14"THE AHOY! STAFF"&::10)"ONE MOMENT PLEASE..."'52,124:56,124::53265,27S'E$"BAD DATA":B736:J.31:A:BJ,A:CKCKA:BJ,A:s'CK5088E$:: DATA 1100' B49152:K14:CK.'J.255:A:BJ,A:CKCKA:'C:CKCE$"   *** FORMATTER **** (686)38641000M_ ***FLIP SCREENS***bdX(T):PE125mf49391iPI:A,49:TB,P:4,76:SHj56333,127:788,196:789,194:AB,129: START RASTERk"TYPE CHARACTER TO":"REPROGRAM ON LOWER0 m KEW,.":679,X;DDB:D"POKER+H,"SC":POKER,"BC":POKEA,"CS":SC="SC":BC="BC;p":POKET,"X":PRINTCHR$(147);":49457:DDB:M4MCD"POKE53270,PEEK(53270)OR16:POKER+2,"R1":POKER+3,"R2;MC":MC=H":DDBEBD"POKE53265,PEEK(53265 CHOICE [1-9]?":BL,27+W,H:G(631)48:W,.:GHG9421WG600,430,435,485,1600,720,800,950,428g828,.:828~56576,5:126:43856576,5:R,BC:105MC365EB32549980:F(253)132F200,225,275,365,325,380,100 40"515 D="D":EB="EB":MC="MC":X="X'"RUN515":M6:560XD"WAITW,H:G=P(631):PW,.:IFG=82THENPT,"X;x":P254,SC:GOTO438":DD2!MCD"POKE53270,PEEK(53270)AND239:MC=.":DD2:MM1&EBD"POKE53265,PEEK(53265)AND191:EB=.":DD2788,49:789,234:56333,129:TURN OFF RASTER0MC375:MCHBEB350:EBHg56576,7:TB,4: DEFAULT SCREENBL,(BL)239:A,21:RH,15:R,H:T,0""57)"MENU":"1 INSTRUCTION SCREENS"2 FORMATTING SCREEN "3 CHARAӠ-\41)"F1 = CREEN COLOR4^41)"F2 = XTENDED BACKGROUND COLOR ON/OFFe`41)"F3 = ORDER COLOR OR COLOR REGISTER #1b6)"WITH MULTICOLOR () OR EXTENDED"8)"BACKGROUND COLOR ()f41)"F4 = WITCH BETWEEN CUSTOM AND REGULARhBACKGROUND OFF+ mMC.:AB,(AB)N: MULTICOLOR ONb o49980:F(253)132:F200,250,275,375,328,380,100m rF4 tFCMCH:400 u367 w53270,(53270)239::MULTICOLOR OFF |S150:: CHARACTER SET SWITCH }O(OCN):CS33O:A,CSOLORr6)"REGISTER #3 WITH ":BL,27)t"":J.10:"F8 = ENU"SvGH60::"F8 = ENU":GH60::x" ( FOR MORE: NY OTHER FOR MENU)";zW,H:W,.:(631)32656|410BL,(BL)239:""86)"ԠΠҠZZB::" "::27)" "- ""30);D W,.:50222:T,X:y SCSC(SCN)H:RH,SC:254,SC:: SCREEN COLOR BCBC(BCN)H:R,BC:: BORDER COLOR B1B1(B1N)H:R1B1H:RB,R1:: REGISTER 1 B2B2(B2N)H:R2B2H:R38)"KEY AND THE NEW COLOR KEY"15)"TOGETHER.750)"(NY KEY FOR MENU.)":BL,27JW,H:W,.:410] ***DELETE***RH,3 :R,B:A,23:BL,(BL)239""207)" ͠ 86)"1 LL NEW PRINT LINES46)"2"PORTION OF SCREEN AND":"PRESS F4. PRESS ANY Fe o"KEY TO INPUT CHANGES.":"PRESS F6 TO RETURN q"TO SCREEN 1":T,X: | SCREEN @ BANK 2, 34816($8800)AND CHARS @ $8000 OR $9000 }AB,240:788,49:789,234:56333,129: RASTER OFF ~P)OR64:POKER+2,"R1":POKER+3,"R2;.EB":POKER+4,"R3":EB=H":DDBV"515 D="D":EB="EB":MC="MC":X="XEBMC"PRINTCHR$(147):POKE218,4:RUN515":M5:560"RUN515":560(2)"";:218,4D"?"(34):DD2 49482:(2).M5:5FC400445 ***SCREEN SCAN***6""92)"NEW PRINT LINESv205)". . .SPACE TO CONTINUE"58)". . . ANY OTHER FOR MENUW,.:198,H:(631)32410""D"GOSUB60002:PRINTCHR$(19)TAB(140)PEEK(58)*256+PEEK(57)";":WAITW,H:PO:MM1 (D"IFG<>32THENSC=M:BC=Z:?CHR$(147):GOTO408":DD2N+"390 D="D:"515":"RUN386":(681)MM1~0F631:G13:F,19:J1M:FJ,G::198,M1:S ***INSTRUCTIONS***XBL,(BL)239:RH,H:R,6:A,23Z" ΠԠĠ͠CTER REPROGRAMMING SCREEN1"4 MAKE BASIC PRINT STATEMENTSS"5 DISPLAY NEW SCREEN(S)t"6 DELETE PROGRAM LINES"7 MAKE CHARACTER DATA STATEMENTS"8 SWITCH CUSTOM CHARACTER SET":"9 STOP PROGRAM50)"YOUR 6)"CHARACTERS ON FORMAT SCREEN ORAj6)"ENABLE CUSTOM CHARACTERS ON"13)"REPROGRAMMING SCREENql41)"F5 = OLOR REGISTER #2 WITH OR "n41)"F6 = WITCH BETWEEN FORMATTING AND"11)"REPROGRAMMING SCREENp41)"F7 = ULTICOLOR ON/OFF OR C:: FLIP CHARACTER SETS ***MENU***`P140:E136:IP:R53280:H1:BCH:SC15:A53272:CS33:T646:B2X11:W198:C8:N16:CN4:BL53265:254,SCD300256576,5:(684).126:"";:684,HX(T):PE49391:CS(A)SAB,240: " 83)"O CHANGE ALL OF A CERTAIN COLOR'3)"TO ANOTHER COLOR:a45)"A. ET CURSOR TO COLOR YOU WISH"12)"TO CHANGE.45)"B. RESS AND C KEYS8)"TOGETHER. (HE CURSOR WILL"13)"DISAPPEAR.)45)"C. RESS OR ,R2:: REGISTER 2= ,B3B3(B3N)H:R3B3H:R4,R3:: REGISTER 3r EEB.:53265,(53265)64: EXTENDED BACKGROUND ON F49980:F(253)132:F200,250,275,300,350,380,100 HF5 IFCEBH:400 J326 ^53265,(53265)191:: EXTENDED  ELECT FROM TO END46)"3 ELECT FROM TO SELECT END646)"4 ELETE ALL NEW LINESQ46)"5 ETURN TO MENUz49)"(RESS NUMBER DESIRED)":BL,27W,H:G(631)48:W,.:GHG5734D3002G481)"O LINES TO DELETE. NY KEE:49424:RH,SC:R,BC:A,CS:S.9 TB,P:4,80:T,X:"":N **REPROGRAM***` G(3):X(T) J.5:218J,136:224J,137: M32768GC:""27)" " J.7:Z128:G(MJ):27)" "; KHC:"0";:GZGGZ:"*"; A~lAUGUST852AFORMATTER7SELECTACHROMEDISINTEGRATORSOUND-A-RAMA64 WINDOWSVIC WINDOWS FIDGITS"GATORS N SNAKESKK 64 BUG REP VIC BUG REP FLANKSPEED F-SPEED OVERSCREEN DUMP UTIL SIMPLE GUNSHOT HELICOPTER BLADE SAWING WOODKK COMPLEX GUNSHOT SPACE GUNSHOT SEASHORE BOINKVIC SAWING WOODVIC GUNSHOTVIC SPACE SHOTVIC HELICOPTERKK VIC BOINK NEEDLESBIRTHDAY CALC BIRTHDAY SIM MENU C-64MENU-VIC DSNTGRTOR BOOTKKKKKKKK  **INIT**/ T(15),N$(15),S$(15),T$(15)OC(0)1:C(1)3:C(2)0:C(3)6dI015:S$(I):I015:T$(I):T(I)(T$(I)):I015:N$(I):**DATA** 0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15 " 144,5,28,159,156,30,31,158,129,149 ROL"12)"COLOR"25)"COMMAND":0 <:"F1 BORDER =";K >C(0)15)N$(C(0))25);e @"POKE53280,"S$(C(0)){ B:"F3 SCREEN ="; DC(1)15)N$(C(1))25); F"POKE53281,"S$(C(1)) H:"F5 TEXT1 ="; JC(2)15)N$(C(2))25); L"PRINTCHR$("; NOM0C(N)C(N)1:C(N)15C(N)0; nMC(N)C(N)1:C(N)0C(N)15C p50;e @"POKE53280,"S$(C(0)){ B:"F3 SCREEN ="; DC(1)15)N$(C(1))25); F"POKE53281,"S$(C(1)) H:"F5 TEXT1 ="; JC(2)15)N$(C(2))25); L"PRINTCHR$("; N !Щ Щ NĠh(ƙn Ʃ #Ģd ìީ! àř@ )ЩЩ'Щ %Щ&Щ(ЩЩЩƩƩ ƩƩƍƍƍƩƩƅ 4 cą 4éwą 4酱 4éą 4酱 ƍƭɺL4©ƭƍƭɺL4©ƭƍƭL1ƩƭƍŅ 4é â â â â éŅŅ 4L1ЩŅ 4íIIII 0  Ņ 4 YN tLƍ!ƭƍƭ Nĩ Щ!` Nĩԩpԩԭƍԩ ԩԢ N`` `           1\|?WWWWW8|8|?????? Hp912345678          ""14)"SOUND-A-RAMA"e("IF YOU'RE USING THE DOS WEDGE, PLEASE DISABLE IT BY ENTERING"t218)"@Q"<"THIS WILL MAKE THE PROGRAM RUN FASTER."F"THEN ENTER":15)"RUN 110"P d SOUND-A-RAMA BY BRUCE BARTLETT OCT. 19SE:SUN,TN(C$(N)):TUNTTD(N)::SF,XT> NNUN:NM1860H 180m ***DRUM MACHINE--MAIN LOOP***u A$ A$"M"650,0:110 (A$) 270, 300, 330, 360, 390, 420 220  ***HI HAT*** FU,TF:FL,TF:AD,FV:SR,FV W ,TL:V,FT" rW,SE:TUNFY::W,XT: 2208 | ***KICK DRUM***c FU,TE:FL,. :AD,.:SR,TR:V,TH:V,FT W,SE:TUNFY::W,XT: 220  ***CYMBAL*** FU(2),TF:FL(2),TF:AD(2),NN:SR(2),NN W(2),WN:TUNFY::W(2),WE: 220  ***WI,150,151,152,153,154,155J $ BLACK,WHITE,RED,CYAN,PURPLE,GREEN,BLUE,YELLOW & ORANGE,BROWN,LT.RED,GRAY1,GRAY2,LT.GREEN,LT.BLUE,GRAY3 2**DISPLAY** 453280,C(0):53281,C(1) 6(147)(T(C(2))): 89)(18)" SELECTACHROME "::: :"CONTT$(C(2))")" P(T(C(3)))) R"F7 TEXT2 =";D TC(3)15)N$(C(3))25);W V"PRINTCHR$(";h XT$(C(3))")" Z::" HIT FUNCTION KEYS TO CHANGE COLORS" d**CHANGE COLORS** fK$:K$""102 hK(K$)133:K0K7102 jM(K4):NKM4 lNDING DOWN RECORD*** D60I N11.75.25:W,33:W,17:FU,30N.04D:T1D:V DD1.05 D700F160.08:FU,F::W,16: 1760 N W,16: 460  ***PULVERIZER*** W,19 SU,32 N120 &F2551N:FU,F:F 0N4é(Ņ 4éSŅ 4à (ƍƍ BùƍйƍЩ2ЩЌ ƮƩڎƭ î îƩڎƭ)L­  [19پдƍйƍЩЩ íЮ í)ЍЭЍЩЩ #ƭɺL4©ƭ ƭɰƍЭL1 Щ L  L6` ॎ L@L`LɀLɠLLLàƭƍƌƢƬ```` NĩԩԩƭƍԩԩԭƍԢ2 íƍ  2 3 4 5 6 7 8  LEVEL 00 SCORE 00000 LIVES 00PLAY AGAIN? [Y/N]SCORE LEVEL COMPLETE  J1PRESS RETURN TO START  LEVEL 00 SCORE 00000 LIVES 00PLAY AGAIN? [Y/N]SCORE LEVEL COMPLETE  J84 n 15209 x ***COMPUTER TAPE RECORDER--MAIN LOOP***S C$(N):C$(N)"" 130 C$(N)"P"NUN"PLAYING...":MN:S4,16:N1: 180 C$(N)"M"110 SF,XT:D(NUN)TI:TI$"000000":SF,SE:SUN,TN(C$(N)) NNUN: 130( SF, ,WN:TUNFY::W,WE: 220& " ***SNARE***D ,FU,SY:FL,.:AD,.:SR,TVe 6W,WN:TUNFY::W,WE: 220x @ ***HI TOM*** JFU,ET:FL,.:AD,.:SR,TN:V,TL:V,FT TW,SE:TUNFY::W,XT: 220 ^ ***LOW TOM*** hFU,SX:FL,.:AD,.:SR,TN:V n"":53280,0:53281,7Qx"  ""  ""  ""  "! "  ʹݶ ʹζ̺ʹ̴Х  "^ " ߒ  " " ߒ  " " ߒ  " " ߒ  " :W,18D1760 N ***DISINTEGRATOR***2XSL,67:SU,12<bW,21OlR13:N140ivF0255N5:FU,F:FrN,RW,20: 1760 ***OLD WASHING MACHINE***N120F164W,17:FU,F:T115::W,32:T15:FF2:F, L,F:FHNRW,20: 1760"\ ***SPROING***2fSR,15169MpW,33:FU,3:T1150:^zFU,67:W,19jN150F050N:SU,F:F,NW,18:T1500:: 1760 ***FORCE FIELD***AD,131615:SR,151615SU,3:SL,220F2:AD,119:N115:W,1798F((.)50)50((.)150)502:FU,F:F:W,16@BNQLV,12:AD,15VW,17:N1((1)10)8:F5020020:FU,F`F,NjN1((1)10)8:F5020010:FU,FtF,N~W,16:V,15:LOOP: 1760 ***GHOST***2,SW:SWW,128:T1400: N2 T11500::S23,0:V,15: 1760N ***KETCHUP SQUIRTS***lAD,15:S23,239:V,1532x(N1102W,33<SW0150((1)20)3FS22,SW:FU,((1)10):PW,32:T1400:ZNdS23,0:V"":53281,0:53280,10S54272:L024:SL,.:]VS24:WS4:FUS1:FLS:ADS5:SRS6:SLS14:SUS15:V,15W(2)S11:FU(2)S8:FL(2)S7:AD(2)S12:SR(2)S1310)"***SOUND-A-RAMA***"":,"A COMPUTER TAPE RECORDEVIARY""M GHOST""N SONG OF SATURN","O KETCHUP SQUIRTS"A"P ELF LAUGH"R"Q THROB"" TYPE THE LETTER OF YOUR CHOICE"FU,0:FL,0:AD,15:SR,0A0A18"":N1A3:::""(A64)""A$:A$""1(500):SE17:XT16:UN1:F4:TN10:TT13:N1:S54272:S5,9NN53281,9:53280,4:""8)"COMPUTER TAPE RECORDER"X"PLAY MUSIC ON KEYS 1-9.":"HIT SPACE WHEN DONE."b"HIT 'P' TO PLAY THE RECORDING."l"HIT 'M' TO RETURN TO MAIN MENU."cNARE":"3=HI TOM":"4=LOW TOM","5=KICK DRUM":"6=CYMBAL":"M = MAIN MENU"6 220 TAPE RECORDER"X"PLAY MUSIC ON KEYS 1-9.":"HIT SPACE WHEN DONE."b"HIT 'P' TO PLAY THE RECORDING."l"HIT 'M' TO RETURN TO MAIN MENU."  "U "  " "  " "  " " ݪ Ъ δ  ") ". " ߒ  "b " ߒ  " " ߒ  " "" ߒ  " ," ߒ  N: 1760 ***ENERGY LEVELS***(AD,9:SR,6412:SU,3:SL,220EFL,10OW,21iT12500:FU,T100:zW,20: 1760  ***NERVOUS***AD,63:FU,4:FL,10:SU,10 W,21*N1254F025520:SL,F:F>F255020:SU,23:FL,10:W,21#T15000::L151.05:V,L:DW,0:T1500::V,15: 1760[ ***INVOLUTION***rV,1532:S23,239|W,33SP10255F2550SP:FU,F:S22,F:SPW,32:S23,0: 1760$ ***AVIARY***.LOOP1N12 FS10005:W,17&F3052:FU,FFS:?F5302:FU,FFS:OW,16:FS,N`W,16: 1760{ ***SONG OF SATURN***AD,1611:SR,161511:S23,239:V,1532N110:FU,((1)10)1SW0((1)200):W,129:S2,15: 1760n ***ELF LAUGH***xL13:FL1050-N110:W,33QFU,F:T13::W,128:T160:[FF5dN,Lo 1760 ***THROB***FU,1F255180.06FL,F:W,33:W,17:W,32: 1760 ***INITIALIZATION***R6"B DRUM MACHINE"@"C WINDING DOWN RECORD"0J"D PULVERIZER"IT"E DISINTEGRATOR"h^"F OLD WASHING MACHINE"h"G ENERGY LEVELS"r"H NERVOUS"|"I SPROING""J FORCE FIELD""K INVOLUTION""L A780A(A$)64:A1A17 1780&"":N1A3:::""(A64)""6A16 1400FA17 1470&A1860,1920,450,520,600,670,720,790,870,940,1000,1070,1170,1240,13100 1780: ***COMPUTER TAPE RECORDER INITIALIZATION***DC$(500),D : 130v ***DRUM MACHINE INITIALIZATION***GTF255:UN1:TW2:NN9:FV5:FY50:SE17:XT16:WN129:WE128SY60:TV245:ET8:TL12:FT15:SX6:TN249:TR244:TH13:TE3:650,12853281,4:53280,6:""13)"DRUM MACHINE""1=HI HAT":"2=S )""Q" FIDGITS "y" BY WALTER E. MEYERS 1985 """ 56576,(56576) 3: 53272,21: 648,4: "": 53281,15 53280,15: B$(26),NO(26), "0 6""L @13)"BY THOMAS BUNKER"l J12)"AND THE AHOY! STAFF"u T""  50000 W$"WINDOW COMMANDS\\\OPEN - SYS"(OW)"\WRITE - SYS"(WW) W$W$"\CLOSE - SYS"(CW) W%20:H%10:R% 5,200,210,195,157,0,197,232,96,189,0,197,96,189,0,193,149,112,202Ã16,248,48,26,169,0,240,6,169,64,208,2,169,128,133,252,162,64,181,112,157Ã176,2,202,208,248,162,17,208,220,162,4,160,0,165,46,133,72,165,45,133,71Ã165,72,197,48,208,10,165,71 159,170,169,0,24,101RÃ154,176,37,202,208,248,133,163,166,154,202,202,202,134,160,169,40,56,229Ã154,144,18,197,157,144,14,133,253,160,0,166,156,138,24,101,155,201,26Ã144,11,162,64,189,176,2,149,112,202,16,248,96,165,157,166,156,240,9,246117,0,208,2,230,119,200,208,4,230,165,230,167,198i"ă172,208,231,198,158,240,14,152,24,101,253,144,4,230,165,230,167,168,24,ă144,209,36,252,48,118,166,128,232,232,232,232,134,119,160,4,162,3,1776ă71,149,172,136,202,208,248,136,169,112,32,117,0,ă198,172,16,216,169,93,32,117,0,198,159,208,198,169,109,32,117,0,208,169}hă169,125,32,117,0,166,128,232,232,36,252,48,2,232,232,134,124,162,0,160ră0,165,154,133,172,32,122,0,145,168,36,252,48,8,173,134,2,145,170,24,144|ă6,232,32,122,0,145,170P T1 DR: S15,63:: S4,20:4 ZN((0)26)1:[ c --------------------- TITLE PAGE d"": 60: I1 6::: J1 3: I1 4 n F$(I) 18) F$(I);:::LN11:COL18: 50: B7$ xM1:LL8:N12: I1 30:LN6:COL18: 50: M$(M)# , "": I1 4: F$(I) 18) F$(I);::o 6" FIDGITS ARE LIKE BABY BIRDS, ONLY SQUARER. WHEN THEY GET"; @" HUNGRY, THEY SING FOR THEIR SUPPER. TO QUIET THE SINGING"; J" FIDGIT, YOU FEED IT BY PRES- SING THE KEY WITH T8)I,B:: 4305: "  HIT ANY KEY WHEN READY TO CONTINUE."L A$: A$"" 460w (147): 53272,((53272) 240) 14 ----------------- SET UP SCREEN 60:S5,9: S24,15: (147) 6);: I1 7: HC$;B$(I);"";: 71 2: 70:: S4, 20:#DI1 13: 70:: 60lV 808,234: *NOTE: DISABLES STOP AND STOP/RESTOREW --------------------- MAIN LOOPXWL99: 90:RNN:HI(NO(N)256):LONO(N)(HI256)b 20:RLLN:RCCOL: 50: HO$: SF$(4),M$(2): I1 129: A$:/ S54272: 1000N  N8 LN0:COL(N4)2:v  N17 NNN8:LN8:COL(NN4)2: (NNN17:LN16:COLNN4: 2 781,LN: 782,COL: 783,0: 65520: < CS S24:C,0:: F H,L,DR: S1,H: S,L:S4,17 5:C%10  49432:D12000:2  49440:D12000::5308 Xv PML49408: * CAN BE RELOCATED TO ANY 256 BLOCK INCREMENT. ZHB(ML256):LB(ML256HB)256 dÁN0510:A:MLN,A: n×ML15,LB:ML16,HB:OWML24:WWML28:CWML32:5Ã87,21,197,47,208,4,169,0,240,33,181,112,209,71,208kÃ8,169,128,200,209,71,240,12,136,165,71,24,105,7,144,217,230,72,208,213Ã224,0,240,20,200,200,177,71,224,3,176,10,201,3,176,6,169,3,224,0,240,2Ã149,153,202,16,178,166,155,134,158,138,202,202,134,105,40,144,1,200,202,208,247,133,164,133,166,133,168,133,170,152,24,105ă4,133,165,133,169,105,212,133,167,133,171,165,127,133,123,133,118,36,252ă48,63,112,61,166,128,232,232,134,119,162,0,160,0,165,154,133,172,177,164ă32,117,0,177,166,32,165,160,133,172,169,64K@ă32,117,0,198,172,16,249,192,0,208,70,169,110,32,117,0,169,93,32,117,0Jă165,160,133,172,177,174,201,64,144,6,201,96,176,2,233,63,198,173,16,4Tă230,173,169,32,201,28,208,8,136,165,172,208,243,200,208,242,32,117,0,2001^,232,208,2,230,124,200,208,4,230,169,230,171,198aă172,208,217,198,155,208,11,162,64,189,176,2,149,112,202,16,248,96,152ă24,101,253,144,4,230,169,230,171,168,24,144,1840,173,169,32,201,28,208,8,136,165,172,208,243,200,208,242,32,117,0,2001^LNLL:COL12: 50: WL$:COL23: 50: WR$` 90:HI(NO(N)256):LONO(N)(HI256): S5,0: S6,240 S24,15: S1,HI: S,LO: S4,17 T1 50:: S4,16:LL(17LL):M(3M): 60: T1 100: + ------------------ INSTRUCTIONS# HE SAME";! T" LETTER AS THE FIDGIT."G  ---------------- LOAD CUST FONTh  I0 32: A: 49152I,A:  56334,(56334) 254: 1,(1) 251: 49152  1,(1) 4: 56334,(56334) 1  A: A999 450 I0 7: B: 14336(A 0: :" ";C I8 16: HC$;B$(I);"";: 70:::""r I17 22: HC$;B$(I);"";: 70:& HC$;B$(23);"";: I23 25: 70:0 HC$;B$(24);"";: 70: J25 26 : HC$;B$(J);"";: I 5,0: S6,240*l S24,15: S1,HI: S,LO: S4,17: 198,0Av N$: N$"" 630[N(N$): N133 760s N65 N90 630NN64: WL99 LNWL:COLWC: 50: HC$ NRN LNRL:COLRC: 690 20:WLLN:WCCOL: 50: HS$: 630 1 100::LN(5LN):= 808,237: 53272,21: 648,4: "": 53281,6: 53280,14H 60:n -------------------- NEST SBRTN"":18) B1$:18) B2$:16) (NE$,3); B3$ (NE$,3):13) (NE$,6) B4$ (NE$,6)11) (NE$,6)"" B5$  IT 'Q' TO QUIT";1" OR ANY OTHER":12)"KEY TO PLAY AGAIN.": 198,0:r11)" ": 11) " Ϋ Ϋ "11) " ƭ ƭ ": ----------------------- STRINGSHC$" ** " B$(4)"&'  "/$B$(5)"&'  "T.B$(6)"&'  "y8B$(7)"&' ®  "BB$(8)"&'  "LB$(9)"&'  "VB$(10)"& ' '  "B$(18)"&'  "?B$(19)"&'  "eB$(20)"&'  "B$(21)"&'  "B$(22)"&'  "B$(23)"&^_' 78  <> "B7$"   ";WL$" ʲ ʲ  "|(WR$"    "2F$(1)" ":F$(2)" ճծ":F$(3)" ʱʳ"<F$(4)" ":M$:NO(10)7218:NO(11)7648:NO(12)8102INO(13)8584:NO(14)9095:NO(15)9634:NO(16)10208:NO(17)10815:NO(18)11458NO(19)12139:NO(20)12861:NO(21)13625:NO(22)14436:NO(23)15294NO(24)16204:NO(25)17167:NO(26)18188 100 ----------,42,63,24 37,162,48,50,61,10,50,61,10  50,61,24,44,194,48,42,63,24B* 42,63,24,37,162,48,33,136,24d4 33,136,24,50,61,24,50,61,24> 56,100,24,56,100,24,50,61,48H 44,194,24,44,194,24,42,63,24R 42,63,24,37,162,24,37,162,245,255,255,0,0,12,12,12 !T 156,255,255,255,255,255,255,255,255/!U 157,255,255,255,7,3,33,48,48S!V 158,255,255,255,12,12,12,12,12w!W 159,255,255,255,48,48,48,48,48!\ 164,63,113,57,31,15,7,3,1!] 165,252,142,156,248,240,224,192,128!^ 166,15,,48,48"j 178,60,102,195,24,60,60,60,24#k 179,56,24,24,48,48,24,12,123#l 180,24,28,14,7,7,14,28,24X#m 181,24,56,112,224,224,112,56,24|#n 182,255,255,255,3,3,135,135,15#o 183,12,12,12,12,12,12,12,12#p 184,48,48,48,48,48,48,48,48#q 185, 50: HC$:SCSC1: S4,16: SC10 600? 60: 900:: 950: 808,237: 198,0V A$: A$"" 710q A$"Q" SC0: 500 ---------------------- END GAME 900:: 980:LN3: I1 21: 781,LN: 782,13 783,0: 65520: WL$: T(NE$,6):10) (NE$,4);. "" B6$ (NE$,4):8) NE$:9) (NE$,22)T10) (NE$,20):11) (NE$,18):z ----------------- BANNER SBRTNS9)" ȰӰ ":9)" ڧ® "9)" ƭ ":6)"H$%ʲ"5HO$"ߒߩʲ "vHS$" 9012234$%5ʲ"B$(1)"&'  "B$(2)"&'  "B$(3)"&'   "`B$(11)"&'  "5jB$(12)"& '  "[tB$(13)"&[]' 78  :; "~B$(14)"&'  "B$(15)"&'  "B$(16)"&'  "B$(17)"&B$(24)"&'  "#B$(25)"&'  "IB$(26)"&6'  "B1$"":B2$"**•":B3$"$%•":B4$"ʲ˕" B5$" & ' ":B6$"  ":NE$"())((())()())()())()(())"(2)"ߒ  ߩ "FFM$(1)" ߒ     "kw ------------- NOTE FREQUENCIESxNO(1)4291:NO(2)4547:NO(3)4818:NO(4)5103:NO(5)5407:NO(6)5728NO(7)6070:NO(8)6431:NO(9)6813--------- MUSIC DATA  33,136,24,33,136,24,50,61,24. 50,61,24,56,100,24,56,100,24Q 50,61,48,44,194,24,44,194,24s 42,63,24,42,63,24,37,162,10 37,162,10,37,162,10,37,162,10 33,136,48,50,61,24,50,61,24  44,194,48,42,63,24\ 33,136,48 -------------------- COPY DATA& 169,0,133,251,133,253,169,208J 133,252,169,56,133,254,162,16n 160,0,177,251,145,253,136,208 249,230,252,230,254,202,208 240,96  ------------- CUSTOM FONT DATA S 155,25 15,7,15,31,63,127,255 "_ 167,240,240,224,240,248,252,254,2550"` 168,49,155,206,236,63,115,206,72W"a 169,140,217,115,55,252,206,115,18x"b 170,126,231,0,60,126,60,0,0"g 175,0,0,0,0,0,0,7,15"h 176,0,0,0,0,0,0,224,240"i 177,28,24,24,12,12,24 0,0,0,0,0,0,3,7#r 186,12,12,12,12,12,255,255,255$s 187,48,48,48,48,48,255,255,255F$t 188,12,12,132,192,224,255,255,255h$v 190,48,48,33,3,7,255,255,255$y 193,255,255,255,195,195,195,195,195$z 194,195,195,195,195,195,195,195,195${ 195,25 5% 202,195,195,193,224,240,255,255,255& 203,195,195,131,7,15,255,255,255=& 205,195,195,225,240,248,252,252,252a& 206,195,195,135,15,31,63,63,63& 209,3,3,3,1,0,241,251,255& 210,255,255,255,192,192,255,255,255& 211,255,255,255,3,3 55' 234,195,135,15,31,63,255,255,255( 235,195,195,195,192,192,195,195,195:( 236,255,255,255,195,195,195,195,195c( 237,195,195,195,192,192,255,255,255( 238,255,255,255,3,3,195,195,195( 240,255,255,255,192,192,195,195,195( 241,195  4,4. 4," "S 4," "x 4," " 4," Ϸ "4," SAVE "4," " 4,"  "4 4," CONTINUE "Y 4," "~ 4," " 4," " 4," " 4," SCAN " 4," h"":53280,9:53281,7+rA15::K|10)"SCREEN DUMP UTILITY"r19)"BY":12)"ALFRED J. BRUEY"12)"FOR AHOY MAGAZINE"7)"(C) ION INTERNATIONAL INC."5)"PRESS 'F1' TO DUMP THIS SCREEN" A$:A$""49* SCREEN DUMP SUBROUTINE ** d:& nß4,4> xÁI1023 2006 40I PR$""\ Á JI1 I40g V(J){ Ë V127 50130 ËV31 V96 V1V64:50120 Ë V32 V63 V1V: 50120 V1V128 PR$PR$(V1): 50190 Ë V159 V#"":53280,0:53281,6:646,17 SOUND EFFECTSM COMPLEX GUNSHOT (NOTE THAT LINES 100 AND ABOVE ARE "SUPPORT"--LINES 20-90 MAKE THE SOUND) 900: 100 AD(1),5: SR(1),53: FL(1),30: FH(1),30  AD(0),5: SR(0),53 : FH(0) ROUTINE TO SET UP VARIABLES>  SET UP SOUND CONTROL ADDRESSES~ FL(0)54272:FH(0)54273:GT(0)54276:AD(0)54277:SR(0)54278  I1 2:XI7:FL(I)FL(0)X:FH(I)FH(0)X:GT(I)GT(0)X:AD(I)AD(0)X SR(I)SR(0)X:  SET VOLUME ADDRESS #"":53280,0:53281,5:646,17 SOUND EFFECTSI SAWING WOODY 900: 100 I1 2: AD(I),0 : SR(I),243: AD(0),64: SR(0),66 FH(1),255: FH(2),12 : FH(0),200# VL,15: "."( GT(1),129: GT(2),129: GT(0),21. 5,255,255,252,252,252,252,252%| 196,255,255,255,63,63,63,63,630%} 197,252,252,252,252,252,255,255,255T%~ 198,63,63,63,63,63,255,255,255}% 199,255,255,255,128,128,252,252,252% 200,255,255,255,1,1,63,63,63% 201,255,255,255,15,7,131,195,19,255,255,255& 213,255,255,255,240,224,193,195,195 ' 214,195,195,225,240,240,225,195,195I' 215,255,195,129,129,195,255,255,255r' 216,195,195,195,195,195,255,255,255' 218,195,195,135,15,15,135,195,195' 229,195,225,240,248,252,255,255,2,195,195,0,0,255,255,255( 242,255,255,255,0,0,195,195,195 ) 243,195,195,195,3,3,195,195,195I) 247,255,254,254,252,252,248,248,240m) 248,15,31,31,63,63,127,127,255) 249,240,225,225,192,192,255,255,255) 999225,240,248,252,255,255,2 "1 4," "V 4," "{ 4," LOAD " 4," " 4," " 4," " 4," ̤ "7 4," "\ 4," FLANKSPEED " !4," " "4," " (4 " 4," " 4," 070 500304 ¿"":53280,0:53281,6:A18::z ̿" IF YOU WISH TO USE THIS UTILITY AS A SUBROUTINE IN YOUR OWN" ֿ24)"PROGRAM, REMOVE LINES 49000 TO 50030 AND THEN ADD THE" ࿙"REMAINING LINES TO YOUR OWN PROGRAM." 꿀 P: ZÏ *224 V1V64: 501606 Ë V192 V223 V1V: 50160C V1V128s Ë (PR$)0 PR$(18)(V1)(146): 50190 Ë(PR$,1)(146)PR$PR$(18)(V1)(146):50190 PR$(PR$,(PR$)1)(V1)(146) ĂJ Ę4,PR$ "ĂI:4 ,Ď *,250  VL,15: "."< ( GT(1),129: I0 29:: GT(0),17_ 2 I225 25 25: FH(0),I:w < GT(1),0: GT(0),0} Z c ROUTINE TO PLAY SOUNDS WHEN SHIFT IS PRESSED d "PRESS SHIFT TO HEAR SOUND"; n (653)0 110 x 20: 100 - I0 7: VL,5: VL,15: X0 (4(9))::J 2 I15 0 1: VL,I:n 7 I1 15: VL,I: X0 3:: < I0 2: GT(I),0: Z c ROUTINE TO PLAY SOUNDS WHEN SHIFT IS PRESSED d "PRESS SHIFT TO HEAR SOUND"; n (653)0 110   SOUND EFFECTS5 SAWING WOOD (VIC VERSION)E 900: 100u FR(0),P(0): FR(1),0: FR(2),0: FR(3),20 VL,15: "."- I0 5: VL,5: VL,15: X0 (3(9))::2 I15 0 1: VL,I:7 I1 15: VL,I: X0 2:: <]R(I)FR(I1)1:)  I0 127:P(I)I128:B  SET VOLUME ADDRESSO VL36878U 1),0: FR(2),0: FR(3),20 VL,15: "."- I0 5: VL,5: VL,15: X0 (3(9))::2 I15 0 1: VL,I:7 I1 15: VL,I: X0 2:: <  SOUND EFFECTS1 GUNSHOT (VIC VERSION)A 900: 100o FR(0),0: FR(1),0: FR(2),0: FR(3),115 VL,15: "."- I15 0 1: VL,I: FR(3),P(703I):< I0 2: FR(I),0:Z c ROUTINE TO PLAY SOUNDS WHEN SHIFT IS PRVL36878 CTS1 GUNSHOT (VIC VERSION)A 900: 100o FR(0),0: FR(1),0: FR(2),0: FR(3),115 VL,15: "."- I15 0 1: VL,I: FR(3),P(703I):< I0 2: FR(I),0:Z c ROUTINE TO PLAY SOUNDS WHEN SHIFT IS PR SOUND EFFECTS7 SPACE GUNSHOT (VIC VERSION)G 900: 100u FR(0),0: FR(1),0: FR(2),0: FR(3),115 "."- I15 0 1.5: VL,I:XP(703I): FR(3),X2 FR(0),450X:: FR(3),07 I1 9 3: VL,I: < I0 3: FRN  I0 127:P(I)I128:3  SET VOLUME ADDRESS@ VL36878F  FR(0),0: FR(1),0: FR(2),0: FR(3),115 "."- I15 0 1.5: VL,I:XP(703I): FR(3),X2 FR(0),450X:: FR(3),07 I1 9 3: VL,I: < I0 3: FR SOUND EFFECTS4 HELICOPTER (VIC VERSION)D 900: 100t FR(0),0: FR(1),0: FR(2),0: FR(3),P(50) VL,0( I0 15: VL,I:- I0 2:2 FR(3),60: I15 0 1: VL,I:< I0 3: FR(I),0:Z! c ROUTINE T c ROUTINE TO PLAY SOUNDS WHEN SHIFT IS PRESSEDS d "PRESS SHIFT";h n (653)0 110w x 20: 100  ROUTINE TO SET UP VARIABLES  SET UP SOUND CONTROL ADDRESSES  FR(3),P(127) FR(0)36874: I1 3:FR(I)FR(I1)1: << RR20-2 >>7 -- BIRTHDAY CALC --R RUPERT REPORT #20Xz - CALCULATE THE PROBABILITY THAT FOR A GROUP OF NP PEOPLE TWO OR MORE OF THEM WERE BORN ON THE SAME DAY OF THE YEAR  (147):O PLAY SOUNDS WHEN SHIFT IS PRESSED= d "PRESS SHIFT TO STOP"V n".";: (653)0 e x 20: 110  ROUTINE TO SET UP VARIABLES  SET UP SOUND CONTROL ADDRESSES  FR(3),P(127) FR(0)36874: I1 3:FR(I)FR(I1)1:  I0 127:53280,7:53281,9:646,7]  "HOW MANY PEOPLE ARE IN THE ROOM":"(ENTER 0 FOR COMPLETE LIST)"f ( NP 2 NP0 (NP)NP 200 <PF1 : PROBABILITY OF FAILURE F Q1 NP PPF(367Q)PF366 : ZPS1PF : PROBABILITY OF SUCCESS %VOLUME ADDRESS VL54296 (4(9))::J 2 I15 0 1: VL,I:n 7 I1 15: VL,I: X0 3:: < I0 2: GT(I),0: Z c ROUTINE TO PLAY SOUNDS WHEN SHIFT IS PRESSED d "PRESS SHIFT TO HEAR SOUND"; n (653)0 110  d"": 53280,6: 53281,1<n 3)"D I R E C T O R Y"aL$""wAA1:BB1: PR$ (L$,B5)0)"";A;"- "PR$ B10 175 150 A10 :A0 (L$,21)" DOUBLE L SOFTWARE " (L$,24)1C BUG REP,FLANKSPEED,F-SPEED OVER,VIC WINDOWS,VIC SAWING WOOD|  VIC GUNSHOT,VIC SPACE SHOT,VIC HELICOPTER,VIC BOINK,MENU-VICB5)0)"";A;"- "PR$ B10 175 150 A10 :A0 (L$,21)" DOUBLE L SOFTWARE " (L$,24)1 'L$"":H53280,6:53265,(53265)239r I122:A$::X60:Y57:CL1:SC53281I1228812350:SP:I,SP:I1235212414:SP:I,SP:I1241612478:SP:I,SP:I1248012542:SP:I,SP: I1254412 15:V12,240& FV16,128:V14,5:V15,YF d"": SC,1:V21,255:TA10] n53265,(53265)16 (L$,5)" * * * D I R E C T O R Y * * * ": AA1:BB1:PR$:A9TA9 (L$,B6)TA)""A"-"PR$ B11 175 150 A2:TA10:B.:150$ TM$(13)AN$" " 225? AN$AN$TM$:AN$;"_";w T(V39):V39,(V40):V40,(V41):V41,(V42) V42,(V43):V43,(V44):V44,(V45) V45,(V46):V46,T:D130: 200 AN(AN$):AN1AN22" " "::Z FORMATTER,SELECTACHROME,DSNTGRTOR BOOT,SOUND-A-RAMA,64 WINDOWS FIDGITS,GATORS N SNAKES,64 BUG REP,VIC BUG REP,FLANKSPEED F-SPEED OVER,SCREEN DUMP UTIL,SIMPLE GUNSHOT,HELICOPTER BLADE SAWING WOOD,C8,15,255,248,15,128,248,15,128,248,15,128,248,15,128,248:n 0,0,0,0,0,0Fq * U *v 0,0,0,0,0,0,15,128,248,15,128,248,15,128,248,15,128,248,15,128,248 15,128,248,15,128,248,15,128,248,15,128,248,15,128,248,15,128,248,15'128,248,15,193,3,255,224,0,255,128,0,0,0,0,0,0 * . *b 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 0,0,0,0,0,0,0,0,0,0,0,0,0,0,3,128,0,3,128,0,3,128,0,0,0,0,0,0,0 * 1 * 0,0,0,0,0,0,0,62,0,0,126,0,0,254,0,1,254,0,0,62d! n"IN A GROUP OF" NP "PEOPLE,"D x"THERE IS A" PS100 "PERCENT"h "PROBABILITY THAT TWO OR MORE" "PEOPLE HAVE THE SAME BIRTHDAY" 30 PF1 NP1 366 PFPF(367NP)366 "# PEOPLE ="NP; " % PROB. =" ( 48,0,0,248,0,0,248,15,128@ 248,15,193,240,7,255,240,3,255,224,0,255,128,0,0,0,0,0,0L * 8 *  0,0,0,0,0,0,0,254,0,7,255,192,15,255,224,31,131,240,31,1,240,31,1,24015,131,224,7,255,192,3,255,128,7,255,192,15,131,224,31,1,240,31,1,240)"(C)ION INT'L INC."= (L$,19)1)"CHOOSE # OR RETURN";Q AN$:AN(AN$)j AN$"" B0: 100 : A1 AN: PR$: A "" "LOAD";(34);PR$;(34);",8"  "RUN":""  631,13: 632,13: 198,2:9  VI  31,131,240,15,255,224,7,255,192,1,255,0,0,0,0,0,0,0)% * 5 *s* 0,0,0,0,0,0,15,255,240,15,255,240,15,255,240,15,255,240,15,128,0,154 128,0,15,128,0,15,255,128,15,255,224,15,255,240,0,1,248,0,0,248,15,128> 248,15,193,248,7,255,240,3,25606:SP:I,SP:, I1260812670:SP:I,SP:K I1267212734:SP:I,SP:j I1273612798:SP:I,SP: #M.:V53248:I20402047:MM1:I,191M: (I3946:CLCL1:VI,CL: 2I062:XX25:VI,X::I1132:VI,Y: <V8,195:V10,22 :A0> (L$,22)" DOUBLE L SOFTWARE "z (L$,24)7)"(C) ION INTERNATIONAL INC":198,0:AN$"" (L$,20)8)"PRESS F1 OR CHOOSE NO. "; TM$:TM$(13)AN$"" 210 TM$(20)" ":190 TM$""300:190" AN(AN$):: CH1 AN: PR$: CHH V21,0: "": 53280,0: 53281,0l (L$,15)10)"LOADING "PR$"" "LOAD";(34);PR$;(34);",8" "RUN": ""  631,13: 632,13: 198,2: ,LI6186(L$,LI)" OMPLEX GUNSHOT,SPACE GUNSHOT,SEASHORE,BOINKF NEEDLES,BIRTHDAY CALC,BIRTHDAY SIMRW * A *X 0,0,0,0,0,0,0,255,128,3,255,224,7,255,240,15,255,248,15,193,248b 15,128,248,15,128,248,15,128,248,15,128,248,15,255,248,15,255,248(l 15,255,24,248,15,255,240,7,255,240,3,255,224,0,255,128,0,0,0,0,0,03 * G * 0,0,0,0,0,0,0,255,128,3,255,224,7,255,240,15,255,240,15,193,248,15,128 248,15,128,0,15,128,0,15,128,0,15,135,248,15,135,248,15,128,248,15  193,248,15,255,240,7,255,240 ,0,0,62,0,0,62,0,0,62,0K 0,62,0,0,62,0,0,62,0,0,62,0,0,62,0,0,62,0,1,255,192,1,255,192,1,255a 192,0,0,0,0,0,0m * 9 * 0,0,0,0,0,0,0,255,0,3,255,192,7,255,240,15,195,240,15,129,248,15,129 248,7,195,248,7,255,248,3,255,248,0,255,2VL54296 "."< ( GT(1),129: I0 29:: GT(0),17_ 2 I225 25 25: FH(0),I:w < GT(1),0: GT(0),0} Z c ROUTINE TO PLAY SOUNDS WHEN SHIFT IS PRESSED d "PRESS SHIFT TO HEAR SOUND"; n (653)0 110 x 20: 100 1PF)100' COUNT # OF LINES LISTED (NL)C NLNL1 : NL20 290L NL0n  "PRESS ANY KEY FOR MORE..."  X$: X$"" 280 " PROBABILITY OF FAILURE F Q1 NP PPF(367Q)PF366 : ZPS1PF : PROBABILITY OF SUCCESS 5,224,0,255,128,0,0,0,0,0,0 248,15,193,240,7,255,240,3,255,224,0,255,128,0,0,0,0,0,0L * 8 *  0,0,0,0,0,0,0,254,0,7,255,192,15,255,224,31,131,240,31,1,240,31,1,24015,131,224,7,255,192,3,255,128,7,255,192,15,131,224,31,1,240,31,1,2