' +JJJJ ?\>m0M='+l> /+l   d']6@5L&]655]6LF%5 & "L}"BB5L&]6 X  `6 77777777777JJJJx 77L? L7877777777 776i 7 7867 7`77 777777`x =(`(8`5775I7`B` 76`77`>J><;VU<)?<`8'x0|<&HhHh 8 8 8 8V&` aI꽌ɪVɭ&Y:&<&Y:&;: 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8 9: :' 9: :& :x)*++`FG8`0($ p,&"ųųೳŪŪųųij  !"#$%&'()*+,-./0123456789:;<=>?8  1 '" *"( (9"1 ( ,.(0# 2  /#0/#0 *?'#07#000'#07#0:"4<*55**5*%5)1)1)1)'#0/#0*5*75**5*:5/#0/#0'#07#0:::*::'#07#0"):$(%"%:$(%"%$$2%4%$$2%4%$(2()!)E(!8b $!H(+ "@H !D)"E` @ $ C ` DQ &J80^݌Hh < <݌ < < h < < < <`HJ>݌h Hh݌`葠葠ȔЖȔЖȠHIHHHHhHH݌hHhHh݌H6 (G FG HZXj 80x D9$xxH` >( Z>h Z>L=.xxH >hh@(LH>9L>HH/Hh/ H?-З( 8(& 8$8 H` *8HNx`* >x$50x*$50xL9JJJJ`HHjf5 >h $50x`HA>VD;;P >(ED Z> ?$0x8x D9- 8DD# H8`?E Vˆʎ55L $ 5 55555 &a*5`*5` "L&5_*b*JL%u**Lz%`** $  Q(lXJ̥KlV $  Q(lV eօ3L e3L &%R*L &%Q*L d' "L4% N'e*)n*5 5 &`@-e*f*f* 5 "L# "5f*`L %.* *t*Q*L$ %L&*L` "O**P**u** d' "L% N'e*)n*o*o*n* &8ɍ` ^&f\*555L& ^&NR* & "R*ΩL&)\*Z* ʽ LH*v 3h`0h8` " ['L & N'С55 &5`*A*@` +5L^6L65`  \* ?*0 '\* '  Q( ^&\*lZl^?*c*q)H c*h`f*5h*5j*555@O*AP*`u*@`@5&`Q*R*`E 'Ls' ' ' @DAE@u*`8` %@ @A@`@`**@*A`M5 ) "L&`8@AW*c*@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@c*h8&ȑ@Hȑ@Ah@L'Hȑ@ȑ@* htphso`hMhL`9V*8U*897T*6S*67`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUVERIF!pppp p p p p`" t""#x"p0p@p@@@p@!y q q p@  LANGUAGE NOT AVAILABLRANGE ERROWRITE PROTECTEEND OF DATFILE NOT FOUNVOLUME MISMATCI/O ERRODISK FULFILE LOCKESYNTAX ERRONO BUFFERS AVAILABLFILE TYPE MISMATCPROGRAM TOO LARGNOT DIRECT COMMANč$3>L[dmx- (   Ϡ734@~3!+,W,o,*--,,9,-.-~3~3,,,,~3~3,,,,~3_*3 j.5 *H*H`Lc3 (+L3 +55555 1^3_* )3J Q*L_3Ls3443 D23455545554 70 / 7 :/354545455454555535L^/5-5I5555 55` / 4/ 2-5! / 08555454 70L3 (+50+5B5C3 2 70L35 *H*H`Lg3L{3505 *H*H` 3 ,5L3 3 1 ,H 1hBL, 0 BH [1 1h`Lo3 35 ,L3 3 1B , 1L,H 0hB@ 55 [1L133 (+34) 34 70L3 3L3 (+ 055L- (+34L{33454445 70 ^/* / 3B0 HȱBh -355 -8 /L38 25` +5 /3 /. /. 3 E7D B. /. /. 0]34S0J4 4) 3 4D4E B. 4  /. 02L3 Ν3 3`HD٤33DEEhiHLG.h ` /5B5-` /5B-` + X05I33383 33DH /4 E03744Ȍ7 X040 7 J7L35B5C`,5p` / R0-55`50` K/ R0-55`575755` 4/ K/ /( 55L/BȱBL/58` D2BH5BH :/ 75Bȭ5Bhh55 R0B5m55ȱB5m55` /LR0557755`*7*75LR0 E0(33 48`433 R0` E033LR0*7*7`777 555I7575757577** 7757`7 L35555f /55555555 ^/`855 i /B58` 41L 15ȱB5 /5555 /5`3 D23ȑB55B5 / 7 55`5555555555 5555`555`55BC55`5555`L3 /5B5C355 0Q340"B4 3` 02۰Ϭ33B438`3i#`3ЗLw35!50>5555`53 /3m3 3 3733i35 3583 /35ЉLw35`H /5h 25L/~43 533`55555555J5m55m5jn5n5n5ۭ55m5555m55m55`"L? 585H ~.(3` # d ֠z# u*`ҠӠƠˮč΍ҬŠŠԠՠ̠ԍҍčȍ΍č΍ҮԠč΍΍Ġٺ͍͠č΍Ǯ٠ƠŠӠŠŭč΍ŠŠƠ̠ٮč΍ŠŠŠǠ٠ōč΍ŠƠӠˬŠԠϭč΍ŠՠȠӠ٠ӠӍč΍ŠԠΠǠΠΠŠΠҍčȍ΍č΍ԠԠč΍ŠŠϠԠ٠ȍč΍ӠĠӠӠΠҭŠϠӍč΍ĠΠӍč΍ĠӠԩč΍ˠӠŠҍč΍ĠӠŠȠӮč΍ŠՠΠΠՍҍčȍ č΍ĠΠĠŠŠˠϠӍč΍ΠŠҠŠԠŮč΍ҠˠӠŠӺčΠŠĠϠĠϠōč΍ӠƠҠӮč΍ՠĠŠŮč΍ƠŠ͠ΧԠԠլč΍ˠӮč΍֠ՠčȍנč΍ӠӠŠŠנǍč΍Ӯč΍٬ŠΧԠ٠נōč΍ˠӠǠΠŠǠήč΍ŠԠҠč΍͠ΠҠƠԬ΍č΍ƠՠנŠӭӠԠƠ΍č΍ŬȠŠ̠ԠŠčč΍Կҍήč΍ˠӠǮӠ΍č΍ӠŠ̠ŠŠϠōč΍ŠӠϠҠӮč΍֠ՠԠҍҍčȍΠҠӠōč΍ĠϠŠӮč΍ˠӠ٠ĠӠč΍ԠƠҠӮč΍ŠŠԠϠԠΠԠƠҍč΍ĠӠԠŠŠɍč΍Ҡč΍ӠՍč΍Π؍ҍčȍΠؠč΍ΠӠƠˠҠč΍ӠŠĠϠˠҍč΍ӠԠ٠ĠŠϠōč΍ήč΍ˠӠ٠ĠӍč΍ĠҠ٠Ơ̠͠ԠӠӠ΍Ӎč΍ӠՍč΍ӠӍҍčȍˠĠՠ̠Šč΍ΠӠΠҍčȍ΍č΍ŠԠč΍Ѡƍč΍Ӎčč΍Ӡč΍΍č΍Ǯōč΍ӠՍč΍ѠƍӍč΍ҮͮԮҍč΍Ǎč΍ӠՍč΍Ӎҍčȍ΍Ӡč΍îŮ̍č΍ӠՍč΍Ӎҍčȍ΍ٮōč΍ӠՍč΍Ӎҍčȍ΍č΍č΍Ԯԍҍčȍ΍č΍ѠƠč΍Ԯԍč΍׮Ĭήč΍ӠŠӠŮӠҠč΍ˠŠĮč΍ŠӠԠŠҠҍč΍ŠԮŠŠΠϠŮč΍ӠՍҍčȍ΍č΍ǮŠč΍΍ԠϠӠٺ͠ڍč΍΍Ǡōč΍ŠԠ٠Ӡύč΍ŠϠ٠ϠРŠŠΠŠč΍ŮРҠӠΠϠՍč΍ΠŠŠŮӠƠΡč΍ӠՍč΍Ǯōč΍Πč΍΍ԠϠӠٺ͠ڍč΍΍Ǡōč΍׮Ĭήč΍ƭĠϭӠŭč΍Ԡč΍ŠŠΠŠ͍č΍ǢĠĠԠϠҠӮč΍Ӡՠ΍ҍčȍ΍č΍΍Ԡԍč΍Ԭč΍Ӡ٠ӠĠƠԭč΍ǢԧӠԠˠԠӠÍč΍̠ӠĠӠϠӍč΍ҠǮՍč΍Ǎҍčȍ΍č΍Ǡč΍΍Ġٺ͍͠΍ҠŠč΍ɬč΍Ӡ͠ӠĠϠč΍٠ǮҠӠčč΍ԡč΍Ӡҍҍčȍ΍č΍ҮͮԮҠč΍΍ԠϠӠٺԠ̮ҍč΍΍ĠΠčč΍̠ӠΠԠĠӍč΍͠ΠŠή̠ΠǍč΍ϠԠԠ͠ȠĠӍč΍ΠӠŮč΍ӠՍč΍ҮͮԮč΍Į̮Ӡč΍΍ԠΠٺΠčč΍΍Ġōč΍č΍Ӡ٠Ӡōč΍ΠҠҮč΍Ġ͠ҮԮΠ̠č΍ƠŮč΍֠ՠĮ̮ҍҍčȍ΍č΍΍Ԡԍč΍Ԭč΍ҮԠӠ̠ҍč΍ͭӠӠΠƠՠΧԍč΍נŠĠȩĠӠύč΍ŠC3:X2,Y2:C4:X2AOY2BOčAO,BO5 AOX2:BOY2? FLIPK SCSC1S 30y SO150:BZ(16336)(16336): 360 FLIP777 KB16384:CB16368 I201:J202:K203:M205 C112:C24:C32:C415:C50  LOC770812:NUM: FX1,Y1)C3X1,Y1)C4200- PC5:X1,Y1K ZC1:XOX1YOY1čXO,YOi dXOX1:YOY1:(1).02120 nX1(37(1))1:Y1(45(1))1:198:CB,0:X1,Y1)C1110 x(2(1))1130,140 X2X2(X1X2)(X1X2):150 Y2Y2(Y1Y2)(Y1Y2)% [(104)12(3072)ĉ::12:"(PLEASE STAND BY...)":104,12:3072,0:(4)"RUNEVASION"e630 X((78)(79)256):480220A(KB)(XM(AK)(AJ)2YM(AM)(AI)<X1X1XM:Y1Y1YM:X1X1(X10)(X139):Y1Y1(Y10)(Y147)   č΍Ԡ̮ԠӠàč΍Ӡٮč΍ŠĠϠŠӍč΍̬ϬԠŠΠԠƠŮč΍Ӡՠڍҍč΍îŮ̠č΍΍ԠϠӠٺŠҍč΍΍ŮȠŠԠбč΍άϮč΍ŠԠӠΠӠح΍ΠӠŮԠӠ٠έč΍̠ȠϠ٠Ӯč΍ӠՍč΍îŮ̍ҍčȍ΍čȍ΍č΍ٮŠč΍΍ԠϠӠٺ͠ڍč΍΍Ǡōč΍׮ĬήŠŠҠŠ٠΍č΍ƠŠàԠԮč΍Ǡ̠ĠǮč΍ӠՍč΍ٮōҍč΍ԮԠč΍΍ԠϠӠٺ٠ҍč΍΍Ġčč΍ΠӬ٠č΍٠ڠĠύč΍ŠҠǠϠč΍ˠĠŠΠӠ̍č΍٠Ԯč΍ӠՠӍҍčȍ΍č΍Š̠ҠƠԮč΍ӠΠƠΠōč΍ĠΠҠŠŠƠč΍ˠΠŠŠҧӍč΍͠ΠŠԮč΍Ġ͠Ƞ̠čč΍ӠΠŠƠŠԠÍč΍ӠϠˮҍčȍ΍č΍ԠԠč΍΍ΠӍč΍΍נčč΍Ŭ٠č΍ŠíΠĠĠŠɭӍč΍ҠŮč΍ΠԠԠҠč΍Ϡӿč΍֠ՠ׍ҍčȍ č΍٠Š٬č΍Ӡč΍ڍč΍ӠՍč΍ӠӍҍčȍwwU*U*U "ժժժժ p@pLp|8 w}" U*U*U*U"""ժժժժ"}]""""""w"""""""o"P*U*U*U*U "֪տߪ" @ @@``}""""""w]U*U*U*U Ԫծժת"2*"2*""2<2 "{"@*U*U""ժժ"w]"T*U*U "ѨŢ"]"(U*U*U*"ժժժ"8@@8L4  @@pppp p w]"T*U*U*U*U "ժժժժ"wo*U*U*U*"ժժժժwwU*U*U &ժժժժ p@pLp| w{& U*U*U*&&&ժժժժ&{Y&&&&&&w&&& >&&&ժժ*U*U*U*U &*U*U*Uտߪ&`D @D``{ &&& &wYU*U*U*U*Ԫկת"""*>2"*">>""" "{&(U*&&Ԫժ&w_&T*U*U &ѨŢ&]&(U*U*U*&ժժժ& D@ <``DDpppp p w_&T*U*U*U*U&ժժժժ&ժժ*U*U*U*U&T*U*U*Uժժժww>>>>U*U*U**>>>>>>>>>>ժժժժ>>>>> @<   wg* U*U*U*%***ժժժժ*gU>>>>***>>>>***>>>>LOC,NUM: 169,128,44,99,192,240,251,173,84,192,160,0,185,0,4,153,0,8,185,0,5,153,0,9,185,0,6,153,0,10,185,0,7,153,0,11,200,208,229,173,85,192,96 ":16302,0:1998 ,C1:Y123:1,38Y:1,3847Y: 6C2:0,390:0,3947:1,460:1,4639 @55 NNND:DPZNNNDDP3 NNNN3:NNW1055X SN$",":(NB$,NN,W)" "SN$" " NB$(NB$,NN)SN$(NB$,(NB$)NN):1040 SN$" ":NBZSN$"-" $NB$NB$SN$: .=======================***":Z0:W13 NB$(((NB(510(DPW)))10DP))Y (NB$,W)"-"NB$(NB$,(NB$)W)v (NB$)NDNB$(AS$,ND) NNDPW(NB$):NNZNB$(ZS$,NN)NB$ NNND(NB$):NNZNB$(SP$,NN)NB$ DPZNB$(NB$,NDDP)"."(NB$,DP) CMZ10DP& (" WANT COMMAS (Y OR N) ";R$< 2CM0:R$"Y"CM1_ 7"---------------------------"~ <"NUMBER TO BE EDITED ";NB ANB F1000::NB$::55 ========================  USING SUBROUTINE SP$" ":ZS$"00000000":AS$"***** COMMAS! = 0 IF YOU DON'T9 WANT COMMASW NB = NUMBER TO BE EDITED] | EDITED NUMBER IS RETURNED IN THE STRING NB$ ------------------------ :5 "MAXIMUM NUMBER OF DIGITS ";ND "NUMBER OF DECIMAL PLACES ";  USING( IMITATES PRINT USINGH SUBROUTINE STARTS AT 1000c PASS IT 4 PARAMETERS ND = MAX NUMBER OF DIGITS DP = NUMBER OF DIGITS TO THE RIGHT OF THE DECIMAL POINT CM = 1 IF YOU WANT     X1(37(1))2:Y1(45(1))2T JX2(37(1))2:Y2(45(1))2:X2X1Y2Y1330p TXOX1:YOY1:AOX2:BOY2v ^ h::7 r"GAME STATISTICS:" | : "YOUR SCORE: "SC;:SCHSCğ:23:"NEW HIGH SCORE!"::HSCSC :HSCSCĺ "0:" ANYTHING ";:Q |255$ ?G"::::" D":" E":" A":" L !!!!!!!!!!!!!!!!!!!!":255::"" T"DO YOU WISH TO RUN THE SUPER HIMEM BIT COPY PROGRAM..GUARANTEED TO COPY ANYTHING (ANSWER Y/N): ";A$ ^(A$,1)"Y"380 h150: rQ14(19):"BY" % (18):"ANON"+ C (15):"MLXVI A.D."T Y11000:YZ b 50 "(8):(13):"NOW FOR THE DATA!" ,"" 6::::(5):"HIMEM IS PRESENTLY SET AT: ";(116)256(115) @"  "^ J::"B":" I":" M IS NOT WORTH" n:(20):"A"& x/ 140 J04::(12):(13):"G O T 0 J A I L":(13):(12):"C O P Y R I G H T":X1100:X:J 255 I11000: (9):25:(7):" "::(20):" ":255 (15) %) :5:8:"SUPER HIMEM BIT-NIBBLER"Q:19:"BY"::13:"ROBERT GEISLER":8:"20333 OLD TOWN RD, SR #2"::9:"TEHACHAPI, CA. 93561"(I14000:2<50F:(4):(14):"HIMEM FINDER"::P255Z::(7) d"THIS PROGRA  U*U*Uժժժժ @ |L pU*U*U*U ժժժժT*U*U*U*UԪտߪ@ @@@@U*U*U*UժժժժT*U*U ժժՀ@*U*U*U*U*U*ժժժ@@@@|d>`@@T*U*U*U*Uժժժժ(U*U*U*ժժժժcc U*U*Uժժժժ @ |L xx0xx||cAU*U*U*UժժժժAccqT*U*U*U*UԪտߪ0@x@@@@Aժժ*U*U*UT*U*U*Uժժժ,"<","<", ,>{P*U*Uժժccժժ*U*UT*U*U*]ѨŢc*U*U*U*ܪժժժpx@@plt00@x@@xccT*U*U*U*Uժժժժco*U*U*U*ժժժժ>15Y:"d AQ:Y2628:10,15Y:2n T049:AQKx 28,5(1)22(1)2\ TI(16336) 4:2,1815:20,14:21,13:22,12:23,11:15,2819 : SET UP GRAPHICS  7:Y033:0,39Y::8:Y3439:0,39Y::4:15,391:15,3919:2,18,25:14,1825:20,2125 ; MG:21,259:AQ:26,279M BB:21,2711_ BL:21,2712q MG:20,2713( BB:21,2714:20,27152 < LB:Y49:6,20Y::4:6,2010F LB:Y1114:7,19Y:P Y1619:7,18Y:Z MG:Y2025:10,t BK:27,21:LB:27,22&~ WH:32,25, E LB:3,23:MG:21,23^ LB:4,22:MG:22,22w LB:5,21:MG:23,21 MG:4,824 11,24:14,1824 20,2124 LB:23,244:MG:23,2422 LB:22,245:MG:22,2323 MG:6,825 11,22BK:15,2634.33,16:28,28:22,23@ WH:19,2533R 29,27:33,17h 30,19:OG:30,26~$ BK:28,29:29,28. 29,188 LB:28,18:29,17B 22,23:23,22L 4:24,22V BK:22,25:23,24:24,23` WH:30,26j OG:19,243217,186z1:12,139#DUNKıE768,0:TI120:769,2:770:V11:12,139gTI150::wVSCVSC1:DUNKING ANIMATION2100LB:17,2736:BK:16,2735WH:18,2634:OG:19,2533LB:16,273534,27:28,17:221,Y:C(4):X2,Y:C(5):X,Y2:C(6):X,Y1I0C(7):X,Y1:C(8):X,Y2Y44:6,1515>7:12,1416:7,914:8,913:9,12H12:10,1110:10,1115:8,119:7,108:7,87R8,1116:7,1017:7,818\11:7,86:8,5:17,5fT16p11:12,6:14,6:2:11,6:13,6:<11,6:13,6:2:12,6:14,6:ICHATTERf12,9)1Ġ11:12,139:y TI18(1)51:12,139:768,150(100(1)):769,(3(1))1:770:11:12,139 :*RAISE ARMS+/C(1):X2,Y:C(2):X1,Y:C(3):X* *3* PAGE-SWITCHING *N* ROUTINE BY CHARLIE*i* KELLNER. **********************8237b10:"PRESS ";::"RETURN";::" TO BEGIN ";A$=l[v16300,0:::::CB,0:v********************** "EVASION" ** BY JIM GANZ ** 82 SPRING LANE ** WEST HARTFORD, ** CONN. 06107 *"CAN. USE THE I,J,K,M KEYS TO MOVE, AND "["ANY OTHER KEY TO STOP WHERE YOU ARE. "&"AT TIMES, YOU MAY MAKE A RANDOM 'LEAP': "0"THIS CAN BE GOOD OR BAD...":D" YOUR SCORE IS BASED ON HOW LONG YOU "N"LAST - GOOD LUCK!"XHIGH SCORE: "HSC :" CB,0V "PRESS ";::"RETURN";::" TO PLAY AGAIN ";A$_ SC0g 20r ::3 11:"EVASION... BY JIM GANZ" : " THE OBJECT OF THIS LOW-RES GAME IS TO "EVADE A GROWING WORM FOR AS LONG AS YOU "+ME OUT AS":"'TRY TO LOAD ME' AND NOW YOU CAN":"LOAD THAT PROGRAM."N LOAD ME'":"AND YOU SUSPECT THERE IS A CONTROL"s x"CHARACTER EMBEDDED IN THE NAME.":"BUT WHERE AND WHICH ONE?" "RUN THIS PROGRAM. THEN CATALOG":"THE DISK. AND EVERY CONTROL CHARACTER":"WILL BE VISIBLE AND FLASHING"H :"YOUR PROGRAM MIGHT CO 201,160,176,9,72,132/ ( 53,56,233,64,76,249D 2 253,76,240,253V <I76876827e FV:I,V:Iu P54,0:55,3 Z1002 _ d"HERE IS AN EXAMPLE OF HOW THIS":"PROGRAM CAN HELP:"0 n"YOU DO NOT SEEM TO BE ABLE TO":"LOAD THE PROGRAM 'TRY TOP:"FROM THE TIME YOU RUN THIS PROGRAM":"TILL YOU HIT RESET, ALL CONTROL":"CHARACTERS WILL APPEAR AS FLASHING":"LETTERS""THE ONLY EXCEPTIONS ARE CONTROL H":"AND CONTROL M" 201,141,240,21,201,136 240,17,201,128,144,13    ,48,192,136,208,5,206,1,3,240,9,202,208,245,174,0,3,76,2,3,96Kp::::QXWbsl "THE DUNKING MACHINE"yv A LOW-RES ANIMATED GAME FOR ONE PLAYER BY JIM GANZ FEB, 1981FIRE. YOU HAVE 3":B"TRIES BEFORE YOU LOSE. <<>>"h20:"PRESS 'RETURN' TO BEGIN";A$nPOKE TONE ROUTINET112:TI::T770790:TI:T,TI:TONE & MUSIC DATA=170,80,170,70,200,80,150,80,170,100,200,120,173 Y69:11,14Y::6,715:12,1315D 2:12,6:14,6:8:11,148J \INSTRUCTIONSg::511::" THE DUNKING MACHINE ":16:"BY JIM GANZ"::"USE PADDLES 1 AND 2 TO CONTROL SIGHT,":"PRESS EITHER BUTTON TO 21,2710:11,145:12,1343l 21,2712:21,2713Kv 10,1120:13,1420\ 2:21,2211{ 21,2214:12,20:20,2215 12:Y1618:10,15Y: Y1214:10,15Y: 11,1411:12,149:13,148:7,14:12,1416 11:12,1310:10,6:15,6%1,37:22,36:23,35b 1:6,1820:20,2320:5,1821:20,2221:4,1822:20,2122:3,1823:20,23 0:22,2722:18,2628:18,2636:28,3617:28,3627& 15:Y1826:29,35Y:0 9:Y1925:30,34Y:N DRAW JACKX 6:21,279:10,1519b 15:2,1839. 2,14:3,13:4,12:5,11:6,10^ 10,246:20,14:21,13:22,12:23,11:24,10u 7,2310:11,3424 14:Y2938:2,18Y: 3,1828:4,1827:5,1826:6,1825 Y2534:20,23Y: 20,2235:20,2136:20,37 4:20,38:2:8999HXA$::A$::6000H(222)59000;HESW:NH'#(222)59500eH(#"ERR NBR ";(222)H%D$"CLOSE":D$"PR#0":TPS$"S"575"&PS$"P"570:0((37)):868:530J:D$"PR#1":i?:NF$:"================"ND$"READ "NF$:8999XA$::A$::600(222)59000ESW:'#(222)59500(#"ERR NBR ";(222)%D$"CLOSE":D$"PR#0":D Q:350+R" HIT RETURN OR RESET";R$H^D$"READ "NF$",R"RN:BRZSh1000\mESZjrESZĄA$x|ESW330:A$:BRBR(A$)W:BRRL370335D$;"VERIFY";NF$D$"OPEN "NF$"P=PRINTER S=SCREEN (P OR S)? ";PS$))W:1 ="P=PRINTER S=SCREEN (P OR S)? ";PS$B >PS$"S"325S ?PS$"P"321k @((37)):868:317{ AD$"PR#1": E:NF$;" REC LENGTH = ";RL:"=====================" JD$"OPEN "NF$",L"RL ORNRNW:"---- REC NBR ";RN; PPS$"S"3380 BLBLW:BLSB150! 200Y 6RLRLBL:::"REC LENGTH = ";RL:RNW:D$"CLOSE": 7RNZ:"WANT TO START AT RECORD ZERO (Y OR N)? ";R$ 8R$"Y"316 9R$"N"315 :((37)):868:311 ;:"ENTER STARTING RECORD NUMBER ";RN <RN((RN;"VERIFY";NF$& <D$"OPEN "NF$",L256"> >IWBF:HMWI,Z:V @D$"READ "NF$",R"RNa F1000j KESZx PESZĄA$ Z216,Z:BLZ _PH1200 n(HMBL)Z195 xBLBLW:BLSB150 110 RLRLBF:RNRNW:60 PHW (HMBL)Z31311X 2:8:"PARDON ME WHILE I DETERMINE REC LENGTH"::"IF YOUR ZERO RECORD IS FULL" 3" OR":"RECORD NUMBER ONE IS EMPTY"::" SUPER.RAT COMES UP WITH THE WRONG":25:"RECORD LENGTH." 4:"RESET ME IF I SEEM TO BE IN A LOOP" 7D$. "S=SEQUENTIAL R=RANDOM (S OR R)? ";R$:> R$"S"490M !R$"R"35d "((37)):868:31 #"DO YOU KNOW RECORD LENGTH (Y OR N)? ";R$ $R$"N"50 %R$"Y"40 &((37)):868:35 ( )"ENTER RECORD LENGTH ";RL *RL((RL))::% SUPER.RAT READS APPLE TEXT V D$(4):Z0:W1:BF256:SB255:RLZ:RNZ:PHZoD$"CLOSE":D$"PR#0"HM(115)256(116):3:"SUPER.RAT READS APPLE TEXT FILES":"IT'S OK TO HIT RESET ANYTIME." :::"ENTER FILE NAME ";NF$:    E TOP OF THE"=:"SCREEN. A WORD WILL BE PRINTED ON THE"n:"BOTTOM OF THE SCREEN, AND YOU MUST TYPE":"IN THE NUMBER OF THE CATEGORY TO WHICH":"THIS WORD BELONGS."::"IF YOU WANT A LIST OF SOME OF THE WORDS":"THAT YOU'V"NOT ONLY IS THIS EASIER TO REMEMBER,"OT:"BUT IT GIVES YOU ALMOST ALL THE"^:"INFORMATION THE SATS WILL EVER ASK YOU"h:"TO SUPPLY ABOUT A WORD."r5000|"IN THIS TEST, YOU WILL SEE FROM 2 TO 20" :"CATEGORIES PRINTED AT THER ONE DEFINITION."5000#V::"FOR EXAMPLE, YOU COULD GROUP THE WORDS:"":"ZENITH, PEAK, CREST, ACME, APOGEE,",:"PINNACLE, SUMMIT, PLATEAU AND"6:"CULMINATION TOGETHER AND REMEMBER THAT"@:"THEY ALL MEAN 'TOP'"&J::DS YOU NEED"8:"TO KNOW FOR YOUR SAT TEST IS QUITE"e:"LARGE. RATHER THAN LEARN THE EXACT":"DEFINITION OF EACH WORD, WHICH WOULD":"TAKE A GREAT DEAL OF TIME, YOU COULD":"LEARN TO GROUP WORDS TOGETHER AND":"JUST REMEMBF RESTRAINT"[ WANTON,HEDONISTIC,PROFLIGATE,DISSOLUTE,LASCIVIOUS,LICENTIOUS,LIBERTINE,Xm UNEMOTIONAL STAID,STOLID,SEDATE,IMPASSIVE,PHLEGMATIC,GRAVE,SOMBER,X 20((A$)2));A$ I15 "THE NUMBER OF VOCABULARY WORRIC,PAEAN,EULOGY,X# "BAD-DOER"S TRANSGRESSOR,MALEFACTOR,FELON,MISCREANT,Xc IRRITABLE PETULANT,WASPISH,CANTAKEROUS,QUERULOUS,BILIOUS,FRACTIUOS,X IMPOVERISHED IMPECUNIOUS,INDIGENT,DESTITUTE,PENURY,X  "MORALLY LAX; NO SELITRANT,TENACIOUS,OBDURATE,ADAMANT,RESOLUTE,INTRACTABLE,PERTINACIOUS,DUCTILE,X]t TO SOOTHE~ PLACATE,PACIFY,MOLLIFY,ALLAY,ASSUAYE,PALLIATE,APPEASE,PROPITIATE,X "HONOR; AWARD" ACCOLADE,LAURAL,PLAUDITS,RECONGNITION,ENCOMIUM,LAUDITORY,PANEGYAL,MITE,LILLIPUTION,EXIGOUS,SCINTILLA,X68 TO SCOLDB VITUPERATE,BERATE,UPBRAID,REVILE,REBUKE,FLAY,EXCORCIATE,CHASTISE,CASTIGATE,REPROVE,REPROACH,XL BEGINNERV TYRO,TENDERFOOT,NOVICE,NEOPHYTE,ACOLYTE,X` STUBBORNMj REFRACTORY,RECALCNING"< CURTAIL,ABRIDGEMENT,WANING,ABATEMENT,ATTRITION,XK PEACEFULz SERENE,PACIFIC,HALCYON,PLACID,TRANQUIL,X VERY LARGE IN SIZE LEVIATHAN,PRODIGIOUS,MAMMOTH,GARGANTUAN,TITANIC,COLLOSSAL,X$ VERY SMALL IN SIZE'. INFINITESIME MOMENT"N SPONTANEOUS,IMPROMPTU,EXTEMPERANEOUS,FORTUITOUS,ADVENTITIOUS,X[ STINGY NIGGARDLY,PARSIMONIOUS,PENURIOUS,FRUGAL,THRIFTY,X "TEMPORARY, NOT LASTING" EPHERMAL,TRANSIENT,FLEETING,EVANESCENT,X"REDUCTION IN SIZE, LESSE INIMICAL,NOXIOUS,LETHAL,MIASMIC,DELETERIOUS,REPUGNANT,FATAL,EGREGIOUS,NEFARIOUS,INVIDIOUS,BALEFUL,BANEFUL,HEINOUS,MALIGNANT,VIRULENT,ODIOUS,X"FEARFUL; COWARDLY" TIMOROUS,CRAUEN,PUSILLANIMOUS,DASTARDLY,FECKLESS,X "UNREHEARSED; SPUR OF THELLIGERENT,BELLACOSE,PUGNACIOUS,TRUCULENT,CONTENTIOUS,XA\ TOPf APEX,APOGEE,ZENITH,PEAK,CREST,ACME,PINNACLE,SUMMIT,PLATEAU,CULMINATION,Xp BOTTOM z PLAIN,CANYON,VALLEY,PERIGEE,BASE,GORGE,NADIR,ROOT,TROUGH,X "BAD; HARMFUL; DEADLY" REQUIREMENTS:* APPLESOFT ][ AND= GAME PADDLESCZ CLASSIFIEDt -PUBLIC DOMAIN-  NOVEMBER, 1981 PLEASE RETAIN LINES*7000-72304IN ALL COPIES.> -THANK YOU!!BBY JIM GANZVPITZ","RUN ","SPITZ"IE"  2" "IQ STUFF","0",""E "SAT.TEST","RUN ","SAT.TEST"~ "PERSONALITY.PROFILE","RUN ","PERSONALITY.PROFILE" 1 "TUTORIALS","0","" "EXEC.FILE.TUTORIAL","RUN ","EXEC.FILE.TUTORIAL" 1 "NOVELTIES","0","" "S.CONTROL.CHARACTERS","RUN ","FIND.CONTROL.CHARACTERS"v` "SUPER.HIMEM.BIT.NIBBLER","RUN ","SUPER.HIMEM.BIT.NIBBLER"j "USING","RUN ","USING"t 2~ "GAMES","0","" "EVASION","RUN ","EVASION" "DUNKING.MACHINE","RUN ","DUNKING.MACHINNUM(F$)300 5' 56 "","",""O "UTILITIES","1",""d "GAMES","2",""| "IQ STUFF","3",""$ "TUTORIALS","4","". "NOVELTIES","5",""8 4B "UTILITIES","0",""L "SUPER.RAT","RUN ","SUPER.RAT"5V "FINDP(I):LNLN10:J0NP(I)WLN;" DATA ";Q$;DESC$(I,J);Q1$;CMD$(I,J);Q1$;FILE$(I,J);Q$dLNLN10mJ,I"UNLOCK ";PN$"SAVE ";PN$"LOCK ";PN$"RUN ";PN$D$"CLOSE EXECFILE"D$;"EXEC EXECFILE"20: GOTO MEC$(M,I)UIXNP(M)I11]MNMMM1:510bD$;"OPEN EXECFILE":D$;"DELETE EXECFILE":D$;"OPEN EXECFILE":D$;"WRITE EXECFILE"e"2 ID$=";Q$;ID$;Q$:"3 PN$=";Q$;PN$;Q$l"DEL 1000,2000":"1000 DATA ";NMqLN1010vI0NM:LN;" DATA "N EXEC":580?&C$"B"CMD$(M,I)"BRUN "::" BRUN":580o0C$"R"CMD$(M,I)"RUN "::" RUN":580x:530D15:"DESCRIPTION (25 CHAR. MAX.) :"N17:1:"_________________________!":17:1SDESC$(M,I):FILE$(M,I)""DESC$(NM,0)DESETURN TO CONTINUE":R$::520FILE$(M,I)""ĺ"THIS WILL BE MENU #";NM1:NMNM1:CMD$(M,I)(NM):CMD$(NM,0)(M):FILE$(NM,0)"":DESC$(NM,0)"":58010:"TYPE OF FILE - XEC, RUN, UN";:C$C$(C$,1) C$"E"CMD$(M,I)"EXEC "::" )""8::10:"DATA STATEMENT ENTRY":34,3:I120:^"ENTERING MENU #"M" "DESC$(M,0)5:"NAME OF PROGRAM ":FILE$(M,I) FILE$(M,I)"QUIT"600FILE$(M,I)"CAT"ĺD$;"CATALOG"::"PRESS R *****************************::"(HIT RETURN IF UNCHANGED)":"ENTER DISK I.D. LINE:":"";I$:I$""ID$I$:"NAME TO SAVE THIS PROGRAM UNDER: ";P$:P$""PN$P$M0:NM0FILE$(0,0)"":CMD$(0,0)"":DESC$(0,0tP19=wCM$(M,0)""Ģ19:11:" ; PREVIOUS MENU ":P18m|P:11:"A - ";(64NP(M));" SELECT PROG. ":35,17: BOTTOMOL12501502************************* ** ENTER NEW DATA ** --------";ID$;:(ID$)40ĺKJ"----------------------------------------"bL10:6:DESC$(M,0)lO34,6rQT23:11:" CATALOG "^22:11:" NEXT PAGE "h21:11:"APE TO BASIC "r20:11:" / ENTER PROG. DATA"********* ** PROGRAM START ** ***************************** 6:::"**** FLEXIBLE MENU : BY DALE SALYER ****NESTED MENU FEATURE ADDED BY DAN TOBIAS ";@:"-------------------------------- ** PRINT NEXT PAGE OF ** PROGRAMS. ** ***************************** :IOLOL4:VT(IOL1)26 3:VT:(64I);:10:DESC$(M,I) INP(M)OL1: I "OLOL5:x ,****************(M,0)""F$CM$(M,0)::900- K155ĉ::< K175500Q C1CNP(M)150 (CMD$(M,C))0CMD$(M,C)"0"ġ:F$CMD$(M,C):900 19:CMD$(M,C);FILE$(M,C) : D$;CMD$(M,C);FILE$(M,C) z ************************* MD$(20,20),FILE$(20,20)# NP(20)3 (NM:A0NMI 2NP(A):B0NP(A)n <DESC$(A,B),CMD$(A,B),FILE$(A,B)w FB,A PM0 Z300 K(16384) K128150 16368,0:CK192 K141ĉ::D$;"CATALOG": K160İ250:150 K187CM$*************************** ** NESTED MENU FEATURE ** ADDED BY DANIEL TOBIAS ** FEBRUARY 6, 1982 ** ***************************** D$(13)(4):Q$(34):Q1$Q$","Q$ DESC$(20,20),CID$"SAMPLE OF HARVEST"3PN$"NESTED.MENU"*************************** ** FLEXIBLE MENU PROGRAM ** BY DALE SALYER ** JULY 25, 1981 ** *****************************             08,250,134,157,138,32,82,228,160,0,145,131,200,165,113,145,131,200,165,114,145,131,160,2,162,0,165,157,76,226,2291$'A$:A$;:A$(13)ı)8'A$(8)10100IB'(A$)32Ğ:((A$)64);:_L'DD$DD$A$:10020zt'(DD$)0ĺ" ";:10020'868:(DD$)110000'DD$(DD$,(DD$)1):10020q: 201,190 ,240,3,76,201,222,32,177,0,32,227,223,32,44,213,232,189,0,2,2LINE AT A TIME PLEASE":2000:3200:n :"Q=QUIT H=HARDCOPY G=GOBACK M=MORE";::" ";:R$:D$:R$""R$"M" R$"Q"9500 R$"H"İ3000 (#:(12)::"SOFTDISK.TEXT HAS BEEN CLOBBERED"::%D$"CLOSE":D$;"RUN KICK.IT.OFF"'DD$""#0":& ((37)):868:X11000::; ((37)):868: CL(37):(W):868::"*";::" RETURN W. NO DATA STOPS INSERT MODE ";::"*"::(CLW): EM$"INVALID RESPONSE -- ENTER AGAIN":2000:3200: EM$"ANSWER Y OR N":2000:$ EM$"ONE SD$:AF$"N"1102VBL(AF$):IWBL:" "::110S3200::EM$::I13000:: ((37)):868:D$"PR#1":I$;"41N":EL$:PL$"":LC1879:KW3:LCLC984:JW8:LCLC128:IW39:AS(LCI):AS64İ4 PL$PL$(AS):I:PL$:PL$"":J:K:EL$:D$"PR:SD$DD$:D$:3210:3200:SD$:710cWR$;RN:RT$:PR$:VP:VR$:IWMR:RP(I)::D$:6:VPZ840CVVP:RD$;CV:VP:3:SD$DD$:D$:3210:3200:SD$:710BF$:AF$:3:SD$DD$:D$:BF$"H"ė::"SOFTDISK MAGAZETTE ";DT$;" FRAME ";RN::RLRN8VCV:700:EM$"DISK IS FULL":2000:LVLVW:216,Z:840RSD$:(SD$)40940g3330:3200:920WR$;CV:VP:SD$:D$:6:IW3:3200::SD$:710PVZ990RD$;PV:PP:3:PD$DD$:WR$;PV:VP:PD$:D$:6:VPZ840"CVVP:RD$;CV:VP:3CVVP:RD$;CV:VP:3:SD$DD$:D$:3210:SD$:710?HNRRL:110OR3210:3220W10000:SD$DD$:SD$""CL(37):(W):868:(CL):710Y(SD$)40870\3330:850fLVLVW:910 pWR$;LV:VP:SD$:RD$;CV:PP:3:PD$DD$:WR$;CV:LV:PD$:D$:PLV:DT$:D$:6:R$"I"855e:"N=NXT D=DEL C=CHNG I=INSERT G=GOBACK";::" ";:R$:D$:R$"D"950uR$"C"920R$"I"850R$"G"840R$"N"7803300:710 VPZ800EM$"THAT WAS THE LAST LINE":2000:3200:7100 PVCV::"ENTER ONE LINE AT A TIME & HIT RETURN"::R$"I":3220:10000:SD$DD$:(SD$)40660k3330:3210:640}LVLVW:910WR$;LV:VP:SD$:WR$;RN:RT$:PR$:LV:VR$:PVZ:IWMR:RP(I)::D$:(SD$)39İ32103210:SD$CVLV:WR$;"0":RL:6303320:470UPSW:D$"PR#1":I$;"40N":"******* ";DT$;" SOFTDISK FRAME ";RL^CVZPVCV:CVVP:RD$;CV:VP:3:SD$DD$:D$:SD$:VPZ5300PSW710:PSZ:D$"PR#0":840vPVZ:CVVP:RD$;CV:VP:3:SD$DD$:D$:SD$:710V3200:3300:210&|CP(R$):NRRP(CP):1104VPZ6403200::"HARDCOPY OF VERBAL RESPONSE (Y OR N)?";::" ";:R$:D$:R$"Y"510R$"N"4703320:4303200::"SKIP TO END OF RESPONSE (Y OR N)?";::" ";:R$:D$:R$"Y"520R$"N""210!3340:R$"G"NRW:1101R$"M"206AR$"H"201P3300:201`R$"1":380:"Q=QUIT H=HARDCOPY V=VERBAL OR 1-";MR;::" ";:R$:D$:R$"Q"9500R$"H"2703000:210R$"V"420,(R$)WR$"0"R$VR$380 6D$D$"READ "NF$",R":WR$D$"WRITE "NF$",R":9000W EL$"":IW40:EL$EL$"=": D$"OPEN "NF$",L47":RD$;"0":RL:LV:DT$:D$:216,Z:NRW nRNNR:RD$;RN:RT$:NRNRW:RT$"D"1030 PR$:VP:VR$:MR(VR$)IWMR:RP(I)::D$:VR$"1r  SOFTDISK.PROG 7/ DD$"":DD$:N ASAS128:AS160ASAS64T } D$"CLOSE "NF$:D$"OPEN "NF$",L47":6 Z0:W1:DL$"":IW37:DL$DL$"-"::I$(9):D$(4):NF$"SOFTDISK.TEXT"::1013,76:1014,0:1015,3:X1768818:Y1:X1,Y1::R          #"11"#350:4008#D$;"MONICO":D$;"EXEC TUT":#D$;"NOMONICO"::2:15:"FRAME # 11":5:A$" NOW THAT WE HAVE THESE PROGRAMS ON THE DISK HERE ARE A FEW THINGS WE CAN DO WITH THEM.":30:{$A$" FOR INSTANCE WE CAN LOAD AND RUN ONE PROG)*160)"&"|"130 HPLOT TO X,Y:NEXT I"J""140 HC=HC+1:IF HC>7 THEN 160"r""150 HCOLOR=HC:HPLOT X,Y:GOTO 110"""160 END"""SAVE PGM2"""HOME : LIST"""FOR D=1 TO "DD" : NEXT D"""CATALOG"""LOAD EXEC.FILE.TUTORIAL"""RUN"0 FOR I = 1 TO 15")!"40 PRINT I, I*I":!""50 NEXT I"H!,"60 END"Y!6"SAVE PGM1"j!@"HOME:LIST"!J"FOR D=1 TO "DD" : NEXT D"!T"NEW"!^"100 HC=1:HGR:HCOLOR=HC:HPLOT140,80"!h"110 FOR I=1 TO 50""r"120 X=INT(RND(1)*280):Y=INT(RND(1LIST EACH OF THEM. THEN A CATALOG WILL BE PRODUCED TO PROVE THAT THE PROGRAMS WERE SAVED.":30 :A$" NOW CREATING THE EXEC FILE .....":30 300: OPEN EXEC FILE "NEW" "10 TEXT : HOME" "20 PRINT "Q$"NUMBER SQUARE"Q$!"3RINT "Q$"10 PRINT "Q$";Q$;"Q$"HELLO THERE"Q$";Q$"::" WILL PRODUCE A PROGRAM STATEMENT LIKE:"::"10 PRINT "Q$"HELLO THERE"Q$::"WHEN EXEC'D INTO MEMORY."90:190` :2:15:"FRAME # 9":5:A$" THE NEXT EXAMPLE WILL CREATE TWO SIMPLEPROGRAMS AND , YOU WILL NEED TO USE A VARIABLE.":30790:190:2:15:"FRAME # 9":5:A$" IN THIS CASE WE WILL USE Q$=CHR$(34). THIS SETS THE VARIABLE Q$ TO A DOUBLE QUOTE. TO USE IT IN AN EXEC FILE:":30:Q$(34):" A PROGRAM LINE SUCH AS:"::"P30:A$"CREATE THE EXEC FILE. THESE VARIABLES MIGHT BE LIMITS OR FILENAMES OR":30*A$"ANYTHING ELSE THAT MIGHT BE USED TO CUSTOMIZE THE PROGRAM TO BE CREATED.":30::A$" IF A PRINT STATEMENT THAT NEEDS QUOTES NEEDS TO BE INCLUDED IN THE PROGRAMGRAMS CAN ACTUALLY BE WRITTEN BY EXEC FILES. THIS CAN BE DONE UNDER THE CONTROL OF THE PROGRAM CREATING THE EXECFILE.":30:TA$" FOR EXAMPLE YOU COULD INPUT THE VALUES OF SOME VARIABLES WHICH COULD BE USED INTHE PRINT STATEMENTS THAT ARE USED TO":N EXEC FILE("CATALOG"12"LIST 1320-1390"Q<"FOR D=1 TO "DD" : NEXT D"\F"NEW"hP"LIST"Z"LOAD EXEC.FILE.TUTORIAL"d"RUN"n"8"x350:400D$;"MONICO":D$;"EXEC TUT":D$;"NOMONICO"::2:15:"FRAME # 8":5:A$" PROSUPPLY THE NEXT FRAME NUMBER.":30::A$" THIS IS DONE BECAUSE THE STATEMENT":30A$"THAT EXEC'S THE FILE MUST BE THE LAST STATEMENT IN THE PROGRAM, FOLLOWED BY AN END STATEMENT":30::A$" NOW CREATING THE EXEC FILE .....":30 300: OPE:15:"FRAME # 7":5:A$" THIS IS WHAT THE EXEC FILE CREATOR LOOKS LIKE:":30::13201390::400:A$" NOTICE THAT YOU CAN HAVE MULTIPLE STATEMENTS ON EACH LINE. ALSO NOTE":30S A$"THAT THE LAST THREE LINES WILL LOAD AND RUN THIS PROGRAM, AND ALOG, LIST A PORTION OF THIS PROGRAM, THEN":30:A$"WILL ERASE THE PROGRAM FROM MEMORY, DO A LIST TO SHOW THAT IT IS GONE AND":30A$"FINALLY RELOAD THE PROGRAM AND RUN IT SUPPLYING THE NEXT FRAME NUMBER TO THE PROGRAM.":3090:190:2NTROL OF THE APPLE AT THE TIME AND WILL SUPPLY THE FRAME # FOR YOU.":30X90:190:2:15:"FRAME # 6":5:A$" THE FIRST EXAMPLE WILL SHOW HOW COMMON DOS COMMANDS CAN BE IMBEDDED IN AN EXEC FILE.":30:A$" THE EXEC FILE WILL PRODUCE A CATTO CONTINUE" A$& A$" "5020, 2 A:"RESET."?&::"IF YOU REALLY WANT TO DO WELL ON THE"m0:"SATS, YOU SHOULD CONTINUE PRACTICING"::"THIS TEST UNTIL YOU ARE ABLE TO PLACE"D:"EVERY WORD IN THE CORRECT CATEGORY."N5000X30 22:"PRESS THE SPACE BAR E ALREADY PUT IN A CATEGORY,"J:"TYPE 'L' INSTEAD OF A NUMBER. THEN"w:"TYPE IN THE NUMBER OF THE CATEGORY."5000"ONE MORE THING....":"ONCE YOU'VE STARTED THE TEST, THE ONLY":"WAY TO STOP IT IS TO PRESS CTRL-C OR"VE PGM3":" RUN":l3t A$" AFTER YOU ARE DONE, RUN THIS PROGRAM AND RETURN TO FRAME # 19":30:90:190 4~ :2:15:"FRAME # 19":5:A$" THIS IS ESPECIALLY USEFUL IF YOU HAVE SEVERAL SUBROUTINES THAT YOU WANT TO BE ABLE TO 'PLUG' INTO OTHER PROGRAMIS PROGRAM USES EXEC FILES (SEE PRECAUTIONS IN FRAME 20)THE COMBINING OF PROGRAMS CANNOT BE AUTOMATED, BUT YOU CAN DO IT YOURSELF.":303j A$"JUST TAKE THE 'Q' OPTION AND DO THE FOLLOWING STEPS:":30::" LOAD PGM2":" EXEC PGM.TX":" SA PGM2 AS THOUGH YOU DID IT YOURSELF. YOU MUST BE CAREFUL":301V A$"THAT THE TWO PROGRAMS DO NOT HAVE OVERLAPPING LINE NUMBERS OR THE RESULTS WILL BE UNPREDICTABLE AT LEAST.":30:90:1902` :2:15:"FRAME # 18":5:A$" DUE TO THE FACT THAT THPGM1 IN TEXT FILE FORMAT LET'S COMBINE IT WITH PGM2 AND CREATE A NEW PROGRAM, PGM3. THIS IS":30?1L A$"ACCOMPLISHED BY LOADING PGM2 THEN 'EXEC'ING THE TEXT VERSION OF PGM1.":30::A$" THIS HAS THE EFFECT OF 'WRITING' THE LINES OF PGM1 INTOPGM.TX"Q$/"7 TEXT:END">/"60 FOR D=1 TO "DD" : NEXT D"I/"RUN"X/ "CATALOG"w/ "LOAD EXEC.FILE.TUTORIAL"/ "RUN"/$ "17"/. 350:400/8 D$;"MONICO":D$;"EXEC TUT":f0B D$;"NOMONICO"::2:15:"FRAME # 17":5:A$" NOW THAT WE HAVE O THIS PROGRAM.":30:P.A$" NOW CREATING THE EXEC FILE ......":30:300a."LOAD PGM1"u."1 D$=CHR$(4)"."2 POKE 33,30"."3 PRINT D$;"Q$"OPEN PGM.TX"Q$."4 PRINT D$;"Q$"WRITE PGM.TX"Q$."5 LIST 10-" /"6 PRINT D$;"Q$"CLOSE -":" 6 PRINT D$;"Q$"CLOSE PGM.TX"Q$:" 7 TEXT:END":" RUN":-A$" THIS WILL LOAD PGM1, INSERT LINES 1-7 AND RUN THEM.":30:90:190.:2:15:"FRAME # 16":5:A$" THE NEXT EXAMPLE WILL DO JUST THAT, THEN PRODUCE A CATALOG AND RETURN T30::90:190,p:2:15:"FRAME # 15":5:A$" THE BASIC EXEC FILE FOR THIS LOOKS LIKE THIS:":30::" LOAD PGM1":" 1 D$=CHR$(4)":" 2 POKE 33,30"F-z" 3 PRINT D$;"Q$"OPEN PGM.TX"Q$:" 4 PRINT D$;"Q$"WRITE PGM.TX"Q$:" 5 LIST 10 INTO ONE.":30::A$" ONE THING TO REMEMBER WHEN CAPTURING PROGRAMS IS TO HAVE A LINE THAT SAYS POKE 33,30 PRIOR TO LISTING THE PROGRAM. THIS PREVENTS APPLESOFT'S":30 ,fA$"PRETTY-PRINTING, WHICH WOULD MESS UP YOUR PRINT STATEMENTS.":":*RD$;"NOMONICO"::2:15:"FRAME # 14":5:A$" YET ANOTHER USE FOR EXEC FILES IS TO CAPTURE PROGRAMS IN A TEXT FILE. THIS COULD BE A METHOD FOR CONVERTING INTEGER BASIC PROGRAMS TO APPLESOFT.":30+\A$"OR COMBINING TWO OR MORE PROGRAMSD=1 TO "DD" : NEXT D"=)"20 PRINT "Q$"NUMBER CUBE"Q$U)"40 PRINT I,I*I*I"u)"FOR D=1 TO "DD" : NEXT D") "RUN")"FOR D=1 TO "DD" :NEXT D") "LOAD EXEC.FILE.TUTORIAL")*"RUN")4"14")>350:400*HD$;"MONICO":D$;"EXEC TUTNG IT.":30(:A$"THE NEXT EXAMPLE WILL LOAD AND RUN PGM1. THEN IT WILL MODIFY IT TO PRODUCE THE CUBES OF THE NUMBERS FROM 1-15, AND RUN IT AGAIN.":30(:A$" NOW CREATING THE EXEC FILE .....":30:300("LOAD PGM1"("RUN")"FOR DD" : NEXT D"'"TEXT:HOME"='"LOAD EXEC.FILE.TUTORIAL"H'"RUN"R'"13"`'350:400'D$;"MONICO":D$;"EXEC TUT": (D$;"NOMONICO"::2:15:"FRAME # 13":5:A$" ANOTHER POSSIBILITY IS TO LOAD A PROGRAM AND MODIFY IT PRIOR TO RUNNIMMANDS IN IT.":30::A$" THE NEXT EXAMPLE WILL LOAD AND RUN THE TWO PROGRAMS SEQUENTIALLY.":30&::A$" NOW CREATING EXEC FILE .....":30::300&D"LOAD PGM1"&N"RUN"&X"FOR D=1 TO "DD" : NEXT D"&b"LOAD PGM2"&l"RUN" 'v"FOR D=1 TO"15:"FRAME # 12":5:A$" THIS CAN EVEN BE PART OF A HELLO PROGRAM. SIMPLY HAVE A HELLO PROGRAM THAT CONSISTS OF:":30::" 10 D$=CHR$(4)"::" 20 PRINT D$;"Q$"EXEC LOADER"Q$`&0:A$" WHERE 'LOADER' IS AN EXEC FILE WITH THE NEEDED CORAM THEN LOAD AND RUN THE NEXT ONE ALL UNDER CONTROL OF THE EXEC FILE!":30:A$"THIS IS ESPECIALLY USEFUL IF YOU HAVE":30$A$"SEVERAL MACHINE LANGUAGE ROUTINES THAT NEED TO BE LOADED OR RUN PRIOR TO THE MAIN PROGRAM.":30:$90:190%&:2:Ӯҍčȍ΍č΍Ӡč΍Үԍč΍Į̮­č΍ӠŠӠԠ٠ԍč΍ϠŠȠӮč΍ŠƠŠŠƠٍč΍ŠƠˠȠŠӮč΍٠ŠĠĠĠ٠̠ƍč΍Ҡčȍ΍č΍ԠԠč΍ԠӠΠŠԠҍč΍ŠƠˮč΍ȠȠ٠ƠҠč΍Ӯč΍ŠĠԠˠӠˮč΍ҠŠƠˠӠĮč΍ҠӠ٠Ԡ٠Ԡύč΍ЬŠˠΠҠŬҍčȍ č΍ŠˠŠƠˠӠԍč΍ŠŠŠϠ̠Ԯč΍ԠӠΠƠӍč΍ԠŠΠĠ٠ҍ΍ˍč΍Π؍č΍Ԡҍč΍׍č΍ӠՍҍč΍ŠӠӠύč΍̮č΍֠ՠˍҍčȍŠ͠ĠӠƠŬčč΍ΠǠǠϠҠҍč΍ͮ͠č΍ԠŠĠŠŠȍč΍ӠՠϠԠΠ̠ōč΍Įԍč΍ӠŠˮč΍ӠՍč΍ˠŠ̍ҍčȍˠŠ̠č΍ǍԠҠĽϠԠč׍ԍĠîŮ̍΍ č΍ĮՠӠĠӠΠÍč΍ŠϠҠƮŠԠՍč΍Š٠ƠԠΠҠˠčč΍ԠȠԮč΍֠ՠԍҍ č΍ΠĠԠΠҠ͠΍č΍Ӡ̠ΠƠˮč΍ĮՠӠΠ٠Šҍč΍ƠάϠԠΠĠōč΍ǠŮč΍ӠŠˠԠƠԍč΍ϠͮԧӠϭӠӍč΍ŮԠˠĠȠŠסč΍ӠՠӠӍҍčȍčȍ΍č΍ڠč΍΍ԠϠӠٺƠԍč΍΍ήҠԍč΍Ŭ0>R$"3"50006HR$"4"ĺ(4);"RUN KICK.IT.OFF"@R2060\ :6:14:"BACK ISSUES" 10:" WE ARE OFFERING BACK ISSUES FOR $8" :8:"(YOU KEEP THE DISKETTE)" :" THE FIRST AVAILABLE ISSUE IS OCT 81"  :" THERE WAS NO APRIL 800020002:12:"INFORMATION ABOUT"Q10:10:"1 = BACK ISSUES"v12:10:"2 = MAILING PROCEDURE"14:10:"3 = FEEDBACK PROCESS"16:10:"4 = NONE OF THE ABOVE" 18:3:"WHICH? ";:R$ R$"1"30004R$"2"20TO PLAY WITH"3" OUR DISKETTE & PLACE FEEDBACK"K" COMMENTS ON IT."m:" WHEN YOU GET A NEW ONE,"" SEND BACK THE OLD ONE,"" WITH PAYMENT FOR THE NEXT ONE."" ALWAYS KEEP A DISK TO RUN."" THAT'S THE WAY TO HAVE SOME FUN."S ON THE FLIP SIDE OF YOUR ADDRESS"1" CARD."Y" (PLASTIC BAG OPENS AT RED LINE)":" THE FIRST THING YOU SHOULD DO UPON"" RECEIVING A NEW MAGAZETTE IS MAKE A"" PERSONAL COPY OF IT FOR YOUR KEEPING." :" THEN YOU HAVE A MONTH BEAT";::" GOES ON --"I>12:" PLEASE SEND RETURNS BACK THE SAME DAY"gH" YOU RECEIVE A MAILER."f:" BE A GROOVER AND GET IN THE SOFTDISK"k" GROOVE."p8000r5:868u8200z4:" OUR ADDRESS & PREPAID POSTAGE PERMIT"#" I 8000 8200 8100A 7:21:"RECEIVES MAILER WITH";[ 21:"OLD DISKETTE &"w 21:"PAYMENT FOR NEXT" 21:"ISSUE" 8000 12:21:"SENDS MAILER & YET" 21:"ANOTHER ISSUE" 8000 *820048:8:"-- AND THE ";::"ER & NEW" &21:"ISSUE"$ 08000. :82008 D8050U N7:" RECEIVES MAILER &"g X" NEW ISSUE"q b8000 l10:" IMMEDIATELY SEND BACK" v" OLD DISKETTE IN MAILER" " WITH $5 PAYMENT FOR" " NEXT ISSUE" " (RETAIN NEW DISKETTE)"" ^80004 h10:" IMMEDIATELY SEND BACK MAILER"X r" & $5 PAYMENT FOR NEXT ISSUE"r w" (RETAIN DISKETTE)"| 8000 8200 8100 7:21:"RECEIVES MAILER &" 21:"PAYMENT FOR NEXT" 21:"ISSUE" 8000 11:21:"SENDS MAIL 7:" SENDS $10 STARTUP FEE") 80003 8200= 8100` 7:20:"RECEIVES STARTUP FEE"j 8000 "9:20:"SENDS INITIAL ISSUE":20:"IN REUSABLE MAILER" ,8000 68200 @8050 J7:" RECEIVES INITIAL ISSUE" T" IN REUSABLE MAILER 13:" CELEBRITY REPORTER MARGOT TOMMERVIK"] 15:" EDITOR JIM MANGHAM" 17:" EDITOR JOHN WRENHOLT" 19:"CIRCULATION MANAGER JUDI MANGHAM" 8000 2000 2:12:"MAILING PROCEDURE" 8050 ABOUT.SOFTDISK :?d2:12:"SOFTDISK MAGAZETTE"[n13:"3811 ST. VINCENT"x7:"SHREVEPORT, LOUISIANA 71108"6:6:"$10 TO START $5 PER MONTH"8:11:"A MONTHLY PUBLICATION"11:" PUBLISHER AL TOMMERVIK"0      S YOU":304 A$"HAVE WRITTEN.":30::A$" BY CAREFUL NUMBERING OF THE SUBROUTINESYOU COULD 'CAPTURE' THEM IN TEXT, AND 'EXEC' THEM INTO THE PROGRAMS OF YOUR CHOICE.":30]5 :A$" IN THIS WAY, YOUR FAVORITE INPUT OR OUTPUT ROUTINE, OR SORT ROUTIBY HITTING RESET AND":: P"TYPING RUN HELLO": d22:4::" HIT SPACE BAR FOR NESTED.MENU ";:R$:(4):(4)"RUN NESTED.MENU"R ABOUT.NESTED.MENU# ::O"NESTED.MENU WILL PRESENT THE NAMES":}"OF SEVERAL PROGRAMS IN MENU FASHION.":(::4:"THE PROGRAM YOU SELECT WILL RUN.":2::<"AFTER EXECUTING A PROGRAM OF YOUR CHOICE" F"YOU CAN GET BACK  z#    Ԡ ǮŠ ԮԠٮŠ ԮˠîŮ̠7ڠJ!íήɮӠ íΠ&ԮĮՠíήà"Į̮ӠҮͮԮҠǠΠ ϠˮԮƠíήҠ ˮǠ Įՠ ˮԠA ҮԠ 14:"PLAYER...... "PLSC9 STST0::2039,32:1460t :" PRESS PADDLE BUTTON TO TRY AGAIN ";:2039,32 (16286)127(16287)1271460 1440 24:1:39);:DUNK0:3020 1000 ANIMATION SHIFT EYES11:12,6)2čTI / TI05:X,Y:768,X:769,Y:770:9 (2240^ 2768,200:TI115:769,40:770:t <PLSCPLSC1:TRY0 F:ST1370 Z:" CURRENT SCORE: ";: dVSPLğ n14:"JACK NIFE... "VSC xPLSCVSCĝ PLVSğC(7):X,Y1:C(8):X,Y2" 1010C 768,5:TI15:769,4:770:Q TRYTRY1c X,Y)91260 768,255:TI150:769,3:770: TRY3TRY0:2090:1350 1160 DUNK HIM! DUNK1 TI03 T2557510:768,T:769,8:770: / BX2,X1Y:X1,X2Y:Y1,Y2X:Y1,Y2XL L768,(XY)3:769,4:770Y VBUTTON?e `TI05 j(16286)127(16287)1271190 t ~REDRAW BACKGROUND C(1):X2,Y:C(2):X1,Y:C(3):X1,Y:C(4):X2,Y:C(5):X,Y2:C(6):X,Y1 (X37) YY(Y37)(Y37)A (10(1))5İ2020:SHIFT EYES_ (10(1))5İ2050:TALK| STORE BACKGROUND COLORS $C(1)X2,Y):C(2)X1,Y):C(3)X1,Y):C(4)X2,Y):C(5)X,Y2):C(6)X,Y1):C(7)X,Y1):C(8)X,Y2) .1 8DRAW SIGHT THE DUNKING MACHINE iBK0:MG1:BL2:BB6:LB7:OG9:AQ14:WH15:COLORS (MG=MAGENTA,BB=BLUE)t6000(4000:TITLE25000:TONE POKES7ST1::1350MAIN LOOPX10(1)(0)9.112:Y22(1)(255(1))11.12 XX(X37)      HE":"SAME SCREEN AGAIN."/8000:2000{@I1250::23:868:14::"*";::" HIT RETURN ";::"*";::" ";R$:r5:6::"SUBSCRIBER";::27:"SOFTDISK":5:6:"SUBSCRIBER";:27::"SOFTDISK":: I720:(I):868:: ICH LINE YOU":"ENTER."L:"WHEN YOU FINISH YOUR REPLY AND WANT TO"y:"CONTINUE READING THE MAGAZETTE JUST":"HIT RETURN WITHOUT ENTERING ANY DATA.":"TO REVIEW OR CHANGE YOUR COMMENT YOU":"SHOULD TAKE THE V OPTION FROM TSK AND PROVIDE US WITH"GZ:"FEEDBACK WHEN YOU RETURN YOUR DISKETTE"od:"FOR ANOTHER ISSUE OF SOFTDISK."yn8000x:13:"FEEDBACK PROCESS":"YOU SHOULD ENTER YOUR COMMENTS ONE LINE":"AT A TIME." :"HIT THE RETURN KEY AFTER EAXT DATA YOU WILL NOTICE THAT THE"Q:"BOTTOM OF THE SCREEN PRESENTS YOU WITH"h:"SOME OPTIONS."(:"ONE OF THEM IS THE V OPTION."<:"THE V OPTION ALLOWS YOU TO ENTER"F:"COMMENTS. YOUR COMMENTS WILL BE"P:"WRITTEN TO THE DIY TO SELECT"(:"'ON WITH THE SHOW'.W::"'ON WITH THE SHOW' TAKES YOU INTO A":"PRESENTATION OF THE MAIN BODY OF":"SOFTDISK TEXT DATA."8000:13:"FEEDBACK PROCESS":"ONCE YOU ARE VIEWING THE MAIN BODY OF"! :"TE82 ISSUE" 8000:20007:13:"FEEDBACK PROCESS"d:"YOU ARRIVED AT THIS SCREEN BY FIRST":"SELECTING 'ABOUT SOFTDISK' AND THEN":"'FEEDBACK PROCESS'.::"AFTER YOU EXIT 'ABOUT SOFTDISK' YOU" :"WILL BE GIVEN AN OPPORTUNITd::12::" HIT SPACE BAR ";::R$:(4):(4);"RUN KICK.IT.OFF" RPIES." d::12::" HIT SPACE BAR ";::R$:(4):(4);"RUN KICK.IT.OFF" RT.OFF" 7E::255(2:14:"A SAMPLE OF"I(4:11:"SOFTDISK MAGAZETTE"d26:15:"FEATURING..."<10:8:"CALC-MAN BY DAN TOBIAS.">:::18::" "::11:"PLEASE ";::" DO ":18:" ":F::4:"ALLOW YOUR FRIENDS TO MAKE COPIES."C  SAD* DEJECTED,LUGUBRIOUS,DOLOROUS,MELANCHOLY,DOWNCAST,DISCONSOLATE,DESPONDENT,ELEGY,DIRGE,LAMENT,LACHRYMOSE,SATURNINE,MOROSE,X4 WORLDLY> SOPHISTICATED,URBANE,SUAVE,COSMOPOLITAN,POLISHED,REFINED,XH QUARRELSOME7R CHOLERIC,IRASCIBLE,BLIB,CIRCUMLOCUTORY,EXPATIATE,XB"SHORT, PRECICE; TO THE POINT" TERSE,PITHY,SUCCINCT,CONCISE,LACONIC,EPIGRAMMATIC,TACITURN,SENTENTIOUS,APHORISTIC,CURT,X  HAPPYSANGUINE,BLITHE,EXULTANT,JOCUND,FELICITY,JUBILANT,BEATIFIC,CONVIVIAL,X  ----"34,213906 "SLOW, LAZY, LIFELESS" SLUGGISH,LETHARGIC,LACKADAISACAL,LANGUID,COMATOSE,TORPID,PHLEGMATIC,LISTLESS,X "REPETITIVE; OVERLY WORDY; TALKATIVE" PROLIX,TAUTOLOGIC,VERBOSE,BOLUBLE,LOQUACIOUS,REDUNDANT,GARRULOUS,G$(N,J)CW$(N,I):CW$(N,I)G$%HI:J+R7\:936GfCA$(N)::Mp[zH1C(N)iCW$(N,H)pH:"PRESS ANY KEY TO CONTINUE";A$936X1N1XX;".";6);CA$(X)X"-----------------------------------C(N)1850$ CC$(1)CW$(N,1):NC13 H11C(N)@ H21NC[ CW$(N,H1)CC$(H2)780c H2 NCNC1:CC$(NC)CW$(N,H1) H1 C(N)NC H1C(N):CW$(N,H)CC$(H):H *J1C(N)1:IJ1C(N) 4CW$(N,J)CW$(N,I)840>G$CW$(N,J):CWCT".";6);CA$(CT) N936. XC(CT)C(CT)1I bCW$(CT,C(CT))W$(CT,W)R l360p v"LIST WHICH CATEGORY ";N N1NN1ĺ(7);:680 C(N)0710 ::"NO WORDS IN THIS CATEGORY"  :"PRESS ANY KEY TO CONTINUE"; A$ 390 A$"L"630 A(A$)# 9361 ACT500Q "SORRY, THAT IS INCORRECT.s "THE CORRECT CHOICE IS: ";CT| 510 "THAT IS CORRECT." CT:1  CT".";6);CA$(CT) 24:"PRESS ANY KEY TO CONTINUE"; & 0A$ :CT:1 D "X1N1 ,X' 6X;".";6);CA$(X). @X6 J21e T"---------------------------------------"p ^34,21 hCT((8)N1)1 rW((8)17)1 |W$(CT,W)""W$(CT,W)"X"370  22 W$(CT,W): "WHAT CATEGORY IS THIS FROM ";A$ NS (Y/N) ===>";AN$) (AN$,1)"Y"40001 16\ "HOW MANY POSSIBLE CATEGORIES DO YOU"t :"WANT (2-20)";N1 N12N120N1(N1)ĺ(7):30 X1N1 CA$(X) N0 NN1 W$(X,N) W$(X,N)"X"270 230 X 936 3# CA$(27),W$(27,20),CW$(27,30)6C(27),CC$(30)>:X(A$"SAT / PSAT":3000^2<A$"VERBAL PREPARATION":3000F:PA$"SYNONYMS TEST":3000ZdA$"PROGRAMMED BY LARRY SELTZER"n3000xI116014 "INSTRUCTIO            "D D$;"RUN SOFTDISK.PROG"5 D$;"RUN ABOUT.SOFTDISK"U D$;"RUN ABOUT.NESTED.MENU" p::12:7:"THANKS FOR LOOKING AT US.":22::22::E..."DDE OF DISK."O"DON'T FORGET TO BOOT OTHER SIDE OF DISK."DSK.""K." F DISK. F17:10:"5 = MORE PROGRAMS"7 K19:10:"6 = QUIT"R P21:3:"WHICH? ";:R$Z UD$k ZR$"1"1000| dR$"2"2000 nR$"3"3000 xR$"4"4000 R$"5"5000 R$"6"6000 80 D$;"RUN CALC-MAN.COVER" D$;"RUN CALC-MAN"  KICK.IT.OFFD$(4)':@#3:14:"PRESENTING"s%5:2:"CALC-MAN .... PLUS A PEEK AT SOFTDISK"&9:10:"1 = CALC-MAN COVER"(11:10:"2 = CALC-MAN"213:10:"3 = ABOUT THIS SPECIAL ISSUE"<15:10:"4 = ABOUT SOFTDISK"   zd 12,19,24,23,6,19,24,24,12,19,24,22,0,19,24,23,12,19,24,21,0,19,24,22,12,19,24,20,0,19,24,21,12,19,24,19,0,19,24,20n 3,750,5,255, ,7,1,0,4,6,6,7,0,-1, 9,6,6,7,0,-1,6,0,6,0,-1,1,1,6,0,-1,0,5,6,3,500Bx 1,0,0,9,6,19,24,20,0,19,24,19,6,19,24,21600P 1,0,0,30,12,19,24,33,6,19,24,34,12,19,24,32,6,19,24,33,12,19,24,31,6,19,24,32,12,19,24,30,6,19,24,31,12,19,24,29,6,19,24,30Z 12,19,24,28,6,19,24,29,12,19,24,27,6,19,24,28,12,19,24,26,6,19,24,27,12,19,24,25,6,19,24,26,12,19,24,24,6,19,24,25 .... HAPPY 'EXEC'ING ....":30'= A0< :A$" PLEASE FEEL FREE TO COMMENT ON THIS PROGRAM AND/OR SUBJECT. IF YOU KNOW OR DISCOVER ANY NEW USES FOR EXEC FILES TELL OTHERS. THE SOFTDISK MAGAZETTE IS AN EXCELLENT WAY TO DO THAT.":30!= :A$" SO LONG FOR NOW, AND .... PUT ANY EXEC STATEMENT AT THE END OF THE EXEC FILE SO THAT NONE OF THE ORIGINAL FILE IS MISSED.":30:90:190< :2:15:"FRAME # 23":5:A$" I HOPE THIS HAS GIVEN YOU SOME IDEAS ABOUT HOW TO USE EXEC FILES IN YOUR OWN PROGRAMS.":3FILE WILL BE CLOSED AND FROM THEN ON THE APPLE WILL BE":30: A$" UNDER CONTROL OF THE SECOND EXEC FILE, NOT THE FIRST.":30::A$" A - THIS IS WHY THE LAST EXAMPLE COULD NOT BE DONE AUTOMATICALLY.":30:w; A$" B - SOLUTION::A$" A - THE BEST WAY TO CREATE AN EXEC FILE IS TO USE PRINT STATEMENTS, LIKE THIS PROGRAM DOES.":30:90:190@: :2:15:"FRAME # 22":5:A$"4 - IF AN EXEC FILE CONTAINS A COMMAND THAT WILL EXEC ANOTHER FILE, THE FIRST EXEC IT MUST BE FOLLOWED BY AN END STATEMENT.":30:8 A$"3 - IF YOU ARE USING DATA STATEMENTS TO CREATE THE EXEC FILES, YOU WILL NOT BE ABLE TO USE '"Q$"' ':' ',' ';' THESE ARE SEEN AS DELIMITERS BY THE DATA STATEMENT.":30~9 ITHER MAKE THE 'RUN' THE LAST STATEMENT IN THE EXEC FILE OR ALLOW FOR ANY INPUT THE PROGRAM NEEDS.":30:90:19038 :2:15:"FRAME # 21":5:A$"2 - IF AN 'EXEC' FILE IS USED WITHIN A PROGRAM, IT APPEARS THAT THE LINE 'EXEC'ING AM WILL RUN AND THE":306 A$" EXEC FILE WILL WAIT UNTIL IT IS DONE TO CONTINUE IT'S EXECUTION":30::A$" A - PROBLEM: IF THE PROGRAM THAT IS RUN REQUIRES INPUT, IT WILL BE TAKEN FROM THE EXEC FILE.":307 :A$" B - SOLUTION: ENE, ETC. CAN BE AT YOUR DISPOSAL, TO ENTER WITHOUT ALL THE HAND TYPING.":30:90:1906 :2:15:"FRAME # 20":5:A$" A FEW PRECAUTIONS ABOUT EXEC FILES THAT I HAVE FOUND:":30::A$"1 - WHENEVER AN EXEC FILE INCLUDES A RUN, THE PROGR (B) A POOR PROGRAMMER (C) DEMENTED"c 15:"YOUR PERSONALITY TEST RESULTS:"m :F$s y  ------------------- PERSONALITY PROFILE BY JIM GANZ * 3/82 -------------------SCALL-936"F$"YOU ARE OBSESSED WITH ORGANIZATION AND/OR NEATNESS."r S$"TRACE"F$"YOU ARE A PROGRAMMER." S$"CATALOG"F$"RESULTS ARE INCONCLUSIVE."9 (F$)F$"YOU ARE EITHER: (A) A POOR TYPIST AMMER."Y S$"RUN"F$"YOU ARE PERSISTENT, PERSEVERING, AND A BIT UNREALISTIC." S$"FP"S$"NEW"(S$,3)"PR#"S$"RUNPERSONALITY.PROFILE"F$"YOU ARE UNINQUISITIVE, APATHETIC, ADIAPHOROUS AND INSOUCIANT."G S$"TEXT"S$"HOME"S$"d PERSONALITY PROFILE&n270gx::3:11:"PERSONALITY PROFILE":11:"----------- -------"o11"?SYNTAX ERROR "(7)"IN 140""]";S$(S$)ĺ:150 (S$,4)"LIST"F$"YOU ARE INQUISITIVE AND RESOURCEFUL; YOUMUST BE A PROGR   UN YOU WILL BE RETURNED TO THE TITLE FRAME.":30::A$" AT THAT TIME PRESSING 'S' WILL RETURN YOU TO THE NEXT FRAME IN SEQUENCE, BUT":30KA$"IF YOU WANT TO QUIT AT THAT TIME SIMPLY PRESS 'Q'.":30::A$" THIS OCCURS BECAUSE AN EXEC FILE HAS CO";Q$;"WRITE FILE";Q$:" 40 REM PRINT STATEMENTS HERE"" 50 PRINT D$";Q$;"CLOSE FILE";Q$::A$" THE ACTUAL STATEMENTS THAT MAKE UP THE EXEC FILE WILL GO AT STATEMENT 40.":30:90:190:2:15:"FRAME # 5":5:A$" AFTER AN EXAMPLE HAS BEEN R$" IN ALL THE EXAMPLES THAT FOLLOW THERE WILL BE SOME PARTS IN COMMON.":30:A$" EXCEPT AS NOTED OTHERWISE THIS WILL BE THE METHOD OF ENTERING THE EXEC FILES:":30:Q$(34)7:" 10 D$=CHR$(4)":" 20 PRINT D$";Q$;"OPEN FILE";Q$:" 30 PRINT D$ OPENS UP A WHOLE NEW WORLD OF AUTO PROGRAM GENER- ATION, AUTO-LOAD & RUN OF MULTIPLE PROGRAMS, ETC.?":30~:A$" THE EXEC FILE IS ONE OF THE MOST POWERFUL TOOLS THAT APPLE HAS PROVIDED.":3090:190O:2:15:"FRAME # 4":5:A 'EXEC'UTED AS IF YOU TYPED THEM IN FROM THE KEYBOARD.":30I`90:190j:2:15:"FRAME # 3":5:A$" THIS MEANS THAT ANYTHING YOU CAN DO IN IMMEDIATE MODE (FROM THE KEYBOARD) CAN BE DONE AS AN 'EXEC' FILE.":30ut:A$" CAN YOU SEE THAT THISCIAL VARIETY OF SEQUENTIAL TEXT FILE.":30:L:A$" EXEC FILES CONTAIN LINES THAT ARE VALID APPLESOFT, INTEGER, MACHINE LANG. AND/OR DOS COMMANDS.":30<V::A$" THE DOS COMMAND 'EXEC ' CAUSES THE LINES IN THE FILE TO BE $A$" 1) WHAT AN EXEC FILE IS.":30::A$" 2) HOW TO CREATE AN EXEC FILE.":30::A$" 3) SEVERAL WAYS TO USE AN EXEC FILE.":30.90:1908:2:15:"FRAME # 2":5:9:A$"WHAT IS AN EXEC FILE?":30::1BA$" AN EXEC FILE IS SIMPLY A SPE4:A$"DALE SALYER":30:13:A$"THORNTON, CO.":30:::10:A$"FOR YOUR EDUCATION":30:11:A$"AND ILLUMINATION":3090:190:2:15:"FRAME # 1":5:14:A$"OBJECTIVES:":30:A$" WHEN YOU COMPLETE THIS TUTORIAL YOU SHOULD KNOW: ":30:TY CLOSE EXEC FILE 1^D$;"CLOSE TUT"7hO WAIT FOR INPUT ::"PRESS RETURN TO CONTINUE":X$:X$:: BEGIN MAIN PROGRAM ::11:"EXEC FILE TUTORIAL":2:15:"FRAME # 0":::34,3s5:15:A$"WRITTEN BY:":30::113::LCLC984:J18:LCLC128:I140:AS(LCI):AS64270] ASAS128:AS160ASAS64 PL$PL$(AS):I:PL$:PL$"":J:K:EL$:D$;"PR#0": ' WRITE EXEC FILE ,D$;"OPEN TUT" 6D$;"DELETE TUT" @D$;"OPEN TUT" JD$;"WRITE TUT"MF220C :FR1040,1080,1130,1170,1210,1240,1280,1420,1460,1490 FR101790,1830,1980,2130,2160,2190,2370,2400,2430,2460 FR202490,2520,2550 HARDCOPY ROUTINE FROM SOFTDISK - THANKS > :D$;"PR#1":EL$:PL$"":LC1879:K16368,0:KEY200KEY206KEY209KEY211110D 21:1:958:^ PROCESS KEYPRESS KEY209ĉ::12:"EXEC FILE TUTORIAL SAYS GOODBYE !!": KEY200250 KEY206ı KEY211ė:10:"SKIP TO WHAT FRAME # ";:FR$:FR(FR$):FR1FR$"!/-\":H1:CHB d22:" (Q)UIT,(H)ARDCOPY,(N)EXT,(S)KIP TO #"o n21:H:" ";(CURSR$,C,1);" ";:I133: x23:40H:" ";(CURSR$,C,1);" "; KEY(16384):KEY127160 CC14(C4):HH1:H39H1:21:40:" ";:23:2:" "; 1101 CURSR$CURSR$(8):h 2I1(A$)::CURSR$;::M$(A$,I,1):M$;:M$" "M$"."āJ125150(M$"."): <M$" "āJ12:S(16336): F:868::255: P DOUBLE BATON ROUTINE ADAPTED FROM BEAGLE BROS. TIP BOOK NO. 4.  ZCURSR(5* D$(4):Q$(34):MF20:DD3500:1010 PRETTY PRINT ROUTINE ADAPTED FROM BEAGLE BROS. TIP BOOK NO. 4.  PUT DESIRED OUTPUT IN A$ POSITION CURSOR USING VTAB & HTAB, AND GOSUB 30. CURSR$"+>":210 (I1(CURSR$):                      ,0,2,1,12,20,0,0,1,0,1,12,0,0,-1,5,12f( 3,400,0,1,-1,5,12,0,1,0,4,12,0,1,1,3,12,0,0,1,16,122 7,0,1,5,12,6,7,-1,0,6,12,6< 3,2000,7,0,-11,1,0,12,7,1,0,5,0,12F 0,-1,0,2,0,0,0,-2,11,0,0,-1,-1,1,0,0,0,1,6,1,7,0,1,27,1,1K 3,1,6,0,1,1,16,6,2,4,36,23,6,37,23,6,36,22,6,37,21,6,5,255,OUCHHHH!!!!!!!!!!,3,1000c 5,255, ,3,1 0,0,-1,3,6,0,-1,0,1,6,0,0,1,5,6,0,-2,0,15,6,0,0,-1,3,6,0,1,0,7,6,0,0,-1,5,6% 5,99,NOW I WILL DIVE WHILE HOLDING MY BREATH,3,1000,7,0,0,1,6,0,2,6,0,0,-1,5,6 3,1000 0,1,0,1,6,0,0,1,5,6, 0,1,0,3,6,0,0,-1,5,6,3,25,1,0,1,2,0,15,20,13,6,14,19,13,3,25 ,1,0,1,2,0,14,19,13,6,13,18,13,3,25 ,1,0,1,2,0,13,18,13,6,14,19,13,3,25 ,1,0,1,2,0,14,19,13,6,15,20,13 0,1,-1,8,6Q  0,1,0,6,0,0,1,8,6,2,6,20,22,6,22,21,6,19,19,6,23,17,6,21,16,6,20,23,0,0,1,0,15,0,3,1000 0,1,0,3,6,0,0,-1,5,6,3,250,1,1,2,0,38,18,6,39,18,3,250,1,1,2,0,39,18,6,37,18 ,3,250,1,1,2,6,38,18,0,37,18,3,175 0,-1,0,1,6,0,0,1,5,6,0,-2,0,15,6,0,0,-1,3,6,0,15,0,10,15,6,9,15N 3, 500,0,1,0,1,6,0,0,1,5,6,0,1,0,3,6,0,0,-1,5,6,3, 500 0,1,-1,9,6,0,0,-1,3,6,0,-1,-1,3,6,0,-1,0,3,6,0,- 1,1,3,6,0,0,1,3,6,0,1,1,3,6,0,1,0,3,6,0,1,-1,3,6,0,0,-1,3,6,0,-1,-1,3,6,0,-1,0,3,6,0,-1,1,3,6,0,0,1,3,6Q 0,1,1,9,14,6,26,23,0,0,-1,0,16,0^ 3,1000,0,-1,0,2,6,3,500,0,0,-1,3,6,0,1,0,1,6,0,0,-1,5,6,3,1000 1,1,22,0,9,15,6,8,15,0,8,15,6,10,15,0,10,15,6,8,15,0,8,15,6,10,15,0,10,15,6,8,15,0,8,15,6,10,15,0,10,15,6,8,15,0,8,15,6,10,15,0,10,15, 6,8,15,0,8,15,6,10,14,29,1,35,29,1,35,28,1,35,27,1,36,27,1,36,26,1,36,25[ 5,150,IT'S OLYMPIC DIVING,3,1000 0,1,1,4,6,0,0,1,16,6,0,1,0,9,6,0,0,-1,5,6 3,1000,0,1,-1,6,6,0,1,0,3,6,0,1,1,6,6,0,0,1,8,6 2,7,27,21,6,29,19,6,26,17,6,30,17,6,29,15,6,27,21 1,0,0,7,1,0,8,24,1,36,39,24,1,13,15,33,1,15,17,34,1,17,27,35,1,27,29,34,1,29,31,33,1,1,26,1,8,25,1,8,26,1,8,27,1,9,27,1,9,28,1,9,29,1,10,29,1,10,304 1,11,30,1,11,31,1,12,31,1,12,32,1,13,32,1,31,32,1,32,32,1,32,31,1,33,31,1,33,30,1,34,30,1,31(X)Y1(X01)(XX01)Y1  C1 X1(X),Y1(X)9 BAN X1(X6),Y1(X6)U XaX0X0DhNr 8,4 1,0,0,12,6,9,35,24,6,9,35,25,6,9,35,26,6,10,34,27,6,10,34,28,6,11,33,29,6,12,32,30,6,13,31,31,6,14,30,32,6,16,28,33,6,18,26,34,12,9,13,X X0X0S(4Y1) Y# Z* N0 8 22@ SPH P$P SPX P$a 255h Ns X17 X1(X)X1(X08X) Y1(X)Y1(X08X) X X08 N X1:Y1:D:C:BA XX0X0D1 X1(X)X1(X01)(XX01)X1 Y N ( K1:K2 2 Y1K2E < S(4Y3):S(4Y2):S(4Y1):S(4Y)L F YX P Z1K1d Z Y1K2| d XX0X0S(4Y1)1 n S(4Y) x X1(X)X1(X01)(XX01)S(Y43):Y1(X)Y1(X01)(XX01)S(Y42) X1(X),Y1(X) 0 X1(X6),Y1(X6) :Y C X1,X2Y X% N, K7 X1KF (C:X1:Y1M 2CX <X1,Y1_ FXf PNm K~ XX0X0K1 X1(X):Y1(X) C C X1(X),Y1(X) 0 X1(X6),Y1(X6) X *X0X0K 4N X1 X1X1:X ؠC X1(X),Y1(X) 0/ "X1(X6),Y1(X6)6 ,XB 6X0X0DI @Nk lX3((1)3)1:Y3((1)3)1r B B11300 D D11150 K X1K $C:X1:X2 .C 8Y BX1,X2Y LX VN ~K X1K C:X1:X2nY1(1000) sN1J xA+ }A735009 A11000G A22000U A32500c A53000q A63200 A42600 A810000 X1 Y1 D C XX0X0D1 X1(X)X1(X01)(XX01)X1 Y1(X)Y1(X01)(XX01)Y1 mH Q40141014"/ Q=3222>6050,9000DP J10000X 20^o10900,20000u{S(200)(P$(100)-.902***************3*THE ELIMINATOR4X1Q5P$6XZX07dX1(1000)                     37,6,20,38( 1,1,19,6,19,38,6,18,38,6,17,38,6,16,38,6,15,38,6,14,38,6,13,38,6,12,38,6,11,38,6,10,38,6,9,38,6,8,38,6,7,38,6,6,38,6,5,38,6,4,38,6,3,38,6,2,38,6,1,381) 1,1,18,6,1,37,6,1,36,6,1,35,6,1,34,6,1,33,6,1,32,6,1,31,6,1,30,6,1,29,6,1,28,6,1,2733,20,6,32,20,6,31,20,6,30,20,6,29,20,6,28,20,6,27,20,6,26,20,6,25,20,6,24,20,6,23,20,6,22,20,6,21,20,6,20,20 ( 1,1,18,6,20,21,6,20,22,6,20,23,6,20,24,6,20,25,6,20,26,6,20,27,6,20,28,6,20,29,6,20,30,6,20,31,6,20,32,6,20,33,6,20,34,6,20,35,6,20,36,6,20,7,6,5,255,OH NO....HERE COMES THE FLOODS!!!,1,1,21,6,38,0,6,38,1,6,38,2,6,38,3,6,38,4,6,38,5,6,38,6,6,38,7,6,38,8,6,38,9,6,38,10,6,38,11,6,38,12,6,38,13,6,38,14,6,38,15,6,38,16,6,38,17m' 6,38,18,6,38,19,6,38,20,1,1,18,6,37,20,6,36,20,6,35,20,6,34,20,6,,150,HEY...,3,1000,5,150,WHAT HAPPENED.....WHAT DO I DO NOW?,3,1000% 0,-1,0,1,6,3,500,5,150,IM A MOLE!!!!!,0,-1,0,5,6,0,0,1,10,6% 0,1,0,6,6,0,0,-1,19,6,0,1,0,18,6,0,0,1,19,6,0,-1,0,18,6,0,0,1,18,6,0,-1,0,19,6,0,0,-1,18,6,0,1,0,19,6& 0,0,-1,0,27,1,20,26,1,20,25,1,20,24,3,200,0,0,-1,5,6, 3,100,1,1,4,1,20,1,1,20,2,1,20,3,1,20,4,3,200$ 1,1,2,1,20,5,1,20,6,3,100,1,1,4,1,20,23,1,20,22,1,20,21,1,20,20, 3,100,1,1,4,1,20,19,1,20,7,1,20,18,1,20,8, 3,100,1,1,3,1,20,17,1,20,16,1,20,9,3,500C% 51,2,1,0,39,17,1,0,39,18,3,500Z# 0,0,-1,6,6,1,0,1,3,1,0,39,23,1,0,39,22,1,0,39,21,3,300# 1,0,1,1,1,0,39,19,1,1,4,1,20,38,1,20,37,1,20,36,1,20,35,3,200,1,1,5,1,20,34,1,20,33,1,20,32,1,20,31,1,20,30,3,100,0,0,-1,5,6\$ 1,1,6,1,20,29,1,20,28,1,24Z"r 0,1,0,5,6,1,0,1,3,1,0,39,33,1,0,39,32,1,0,39,31,3,400,1,0,1,2,1,0,39,30,1,0,39,29"| 0,1,0,2,6,0,0,1,2,6,0,-1,0,7,6,1,0,1,2,1,0,39,28,1,0,39,27,3,300,1,0,1,2,1,0,39,15,1,0,39,16# 0,0,-1,3,6,1,0,1,3,1,0,39,26,1,0,39,25,1,0,39,24,3,500,1,0,,2,1,0,39,35,1,0,39,34,3,500,1,0,1,2,1,0,39,6,1,0,39,7,0,0,1,5,6,0,1,0,5,6!^ 5,255, HELP!!! MAKE IT STOP!!!,1,0,1,2,1,0,39,8,1,0,39,9,3,200,1,0,1,2,1,0,39,35,1,0,39,34"h3,500,1,0,1,3,1,0,39,10,1,0,39,11,1,0,39,12,3,400,1,0,1,2,1,0,39,13,1,0,39,1 6 1,0,0,2,1,0,39,0,1,0,39,39,1,0,1,2,1,0,39,0,1,0,39,39z @ 3,1000,1,0,1,3,1,0,39,38,1,0,39,37,1,0,39,36,0,1,0,5,6 J 5 , 150 ,HEY..IM BEING CAGED IN!!,0,0,1,2,6,0,-1,0,10,6,1,0,1,5,1,0,39,1,1,0,39,2,1,0,39,3,1,0,39,4,1,0,39,5J!T 3,500,1,0,123,36,0,23,37,0,23,38,0,23,39,0,23,39]" 2,1, 9,21,12,0,1,0,14,12,0,0,1,18,12,0,-1,0,6,0e' 6, 3,2000, 1,1,1,6,0,13,3,750 ,1,1,1,0,0,13,3,1000, 2,1,39,29 ,6,0,-1,0,19,6,0,0,-1,9,6,5,255,HEY,3,500,5,150,WHAT HAPPENED TO EVERYBODY???,3,500;1,0,32,31,0,12,32,0,32,32 1,1,16,0,13,32,0,31,32,0,13,33,0,31,33,0,14,33,0,30,33,0,15,33,0,29,33,0,15,34,0,29,34,0,16,34,0,28,34,0,17,34,0,27,34,0,17,35,0,27,35% 1,1,14,0,18,35,0,26,35,0,19,35,0,25,35,0,20,35,0,24,35,0,21,35,0,23,35,0,22,35,0,24i 1,1,12,0,5,24,0,39,24,0,6,24,0,38,24,0,7,24,0,37,24,0,8,24,0,36,24,0,8,25,0,36,25,0,8,26,0,36,26 1,1,20,0,8,27,0,36,27,0,9,27,0,35,27,0,9,28,0,35,28,0,9,29,0,35,29,0,10,29,0,34,29, 0,10,30,0,34,30,0,11,30,0,33,30 0,11,31,0,33,31,0,12,3,0,1,0,10,34,28,3,900,1,0,0,1,0,11,33,29,3,750 1,0,0,1,0,12,32,30,3,400,1,0,0,1,0,13,31,31,3,200,1,0,0,1,0,14,30,32,3,100,1,0,0,1,0,16,28,33,3,50,1,0,0,1,0,18,26,34 1,1,10,1,23,35,0,0,24,1,23,36,0,1,24,1,23,37,0,2,24,1,23,38,0,3,24,1,23,39,0,4,,6,0,1,0,6,0,3,2000,0,1,0,1,6,0,0,1,23,6 2,5,24,21,6,22,19,6,24,17,6,23,13,6,22,9,6,0,0,14,1,0,0,1,0,1,0, 0,0,1,6,6,7,0,1,10,6,6. 3,1000,1,0,0,1,0,9,35,24,3,1000,1,0,0,1,0,9,35,25,3,1000,1,0,0,1,0,9,35,26,3,1000,1,0,0,1,0,10,34,27,3,900,1,0,4,1,0,2,6,0,1,2,6,-1,0,2,6,0,1,2,6U 2,5,24,22,6,25,20,6,26,19,6,24,17,6,25,14,6 0,0,1,9,0,0,-1,0,14,0,0,-1,0,1,6,0,0,-1,1,6 5,255,OUCH! I HIT MY HEAD!!,3,2000,5,255, ,0,-1,0,2,6,0,0,-1,2,6,0,1,0,5,6,0,0,-1,5,6( 4,3,2,1,-1,1,6,0,-1,4,0,19,24,20,6,19,24,22,0,19,24,21,6,19,24,23,0,19,24,22,0,18,24,23d 0,1,0,2,0,0,0,-1,18,0,3,400 1,1,1,6,18,23,3,500,1,1,1,0,18,23 0,0,1,22,0,0,-1,0,11,0,0,-1,0,7,6,3,1000# 0,0,-1,3,6,0,1,0,10,6,0,0,-1,5,6,4,6,2,1,0,2,6,0,-1,2,6,4,5UCTIONS? (Y/N) ";:I$(I$"Y"82700:"THIS PROGRAM IS THE ANSWER TO THE AGE OLD RIDDLE: WHAT DO YOU GET WHEN YOU CROSS THE MOST POPULAR ARCADE GAME EVER""WITH THE MOST POPULAR PIECE OF BUSINESS SOFTWARE?"d:"I'M SURE YOU'RE"BY DANIEL TOBIAS-----------MARCH, 1982"L}:" VERSION 1.3"~:"COPYRIGHT (C) 1982. PERMISSION IS GRANTED TO COPY IN CONJUNCTION WITH SOFTDISK MAGAZETTE. ALL RIGHTS TO NAME AND CONCEPT OF PROGRAM ARE RESERVED.":"INSTRC D E F G H I ")AK119E(" ",K3((A)));AKW" 20";]co@ STARTxJ:6T"THE AUTHOR OF PLANET OF THE ROBOTS AND SMURK NOW GOES TOTALLY INSANE, WITH..."^h" C A L C - M A N"r*| DRAW FIELD w" C ";STK0ĖK1:K2:"(C) 1492, 1776 SOFTWEAR ARTS & CRAFTS ";:STK1:"0";L;"SCORE:";21);"HI SCORE: ";HS(0,1):" A B  INITBNBN11B120:A19>N%(A,B)MML%(A,B)0U:iN%(5,12)BN100N%(5,12)9999N%(5,12)9999A14:B01:OM%(A,B):M%(A,B)OM%(A,B):ML%(OM%(A,0),OM%(A,1))1A120:MN%(A):B%103 BK1KW BK4% AK1K9: N%(A,B)K03090G AK4K1o N%(A,B)999Ė(K0):"----";:3090 N%(A,B)999Ė(K0) N%(A,B); A,B & AK1K40 M%(A,K0)K03150]: M%(A,K0)K4:M%(A,K1)4D " -"A" ";N X " AK1K41 M%(A,K0)K02560[ M%(A,K0)OM%(A,K0):M%(A,K1)OM%(A,K1) ML%(M%(A,K0),M%(A,K1))1M%(A,K1)M%(A,K1)1:2532 ML%(M%(A,K0),M%(A,K1))1  M%(A,K0)K4:M%(A,K1)4:" -"A" "; : PLOT LOCATIONS B%K09000K1:K10 :I$(AL$,X,K1)(Y)q*I$I$(" ",38(I$))~4I$;"C";>DK0ĺ"-"HDK1ĺ"!"R\K3:8:SC:fYK4:XK4p" ";z K2:K1::" M%(A,K0)K4:M%(A,K1)K4:" ";::"-"A;::" ";5z@ PLOTVML%(X,Y)1İ9500N%(X,Y)50M%31BN:M%K0SN100:MT,75:ML,100:MRM%K0Ğ:M%11ğM%K0ĢK2:14:"POWER MODE"  N%(X,Y)K0İ500:SCSCN%(X,Y):N%(X,Y)K0:B%B%K1::M%(A,K1)K4:CN%(M%(A,K0),M%(A,K1))+ hH iML%(M%(A,K0),M%(A,K1))0[ jCK0ĺ" ";j kCKFĺC; lCKEC1000ĺ" "C; mCK0C100ĺ" "C;(" ",K3((C))); pM%(A,K0)M%(A,K0)XD:M%(A,K1)M%(A,K1)YD rML%(M%(A,K0),M%(A,K1))1/u0XDXD:YDYDT ;M%(A,K0)XDK9M%(A,K0)XDK1M%(A,K1)YDKWM%(A,K1)YDK1835z <ML%(M%(A,K0)XD,M%(A,K1)YD)1ı >N%(M%(A,K0)XD,M%(A,K1)YD)999870 CNNNNK1 HNNK1NNK3XDXD:YDYD:827 MCXD:XDYD:YDC:827% fM%(A,K0)K42000 &  OUT OF BOUNDS SOUND3 AK115@ J(S):F Y  MOVE MONSTERs *AAAAK1:AAKWAAK1 ,AMN%(AA):M%(A,K0)K0890 /XDK0:YDK0:NNK0 1(K1)KH825 4XD(XM%(A,K0)) 9XDK0YD(YM%(A,K1)):YDK0820 :M%K  800 2000 +  SOUNDQ N%(X,Y)KEĹMT,110:ML,100:MR:a J(S)(S)g r X MOVE bDK0XXE lDK1YYE vXK1XK9YK1YKWİ700:XOX:YOY: N%(X,Y)999İ700:XOX:YOY: OYK4:OXK4::" "; 16368,K0 M%K0440N K2:K1::" "T b OXX:OYY I(KA)DDK1:DK1DK0 I(KA)İ2000 IKBEK1 IKCEK1 IKBIKCİ600 IKAIKBIKCĺ""; I(KA)420 KOKOKD$8 CALC-MAN BY DAN TOBIAS>H 8000VXK5:YK9`STK0zBNK0:KK0:LK3:SCK0(4000:5000:3000:2000n400:M%K0M%M%K1:M%K0İ2500x110 INPUTKOK1K5I(KI)IKU480               {XX131540&{A0XX1U&{2:1::"YOUR SCORE IS IN THE TOP TEN! "& {K1500::2:1::"ENTER YOUR NAME. (UP TO 16 LETTERS)"&*{3:1::868:"";SN$&,{(SN$)16SN$(SN$,16)&/{3:1:"SCORE: ";SC;:868'1{21);"HI SCORE: CALC-MAN.HI.SCORES" %NuA110A%XuHS(0,A):SN$(0,A):SD$(0,A)H%buA`%luD$"CLOSE":216,0:i%u789%uD$"CLOSE":216,0%u20%y UPDATE HI SCORES%yXX0%"yA01%,yB1%6ySCHS(A,B)İ31500:31100%@yBB1:B1131030%|yA:% { &999,10,-999,-999,10 :$N10,50,-999,10,-999,10,-999,50,10`$N-999,10,10,10,-999,10,10,10,-999o$N MONSTERS$N1,14,9,14,4,1,6,1$O1,1,3,1,2,3,1,4,1,2,3,2,4,1,2,1,3,4,1,2 $0u HI SCORE INIT$:u30100%Du:D$"OPEN CALC-MAN.HI.SCORES":D$"READ#N10,10,10,10,10,10,10,10,10I#N10,-999,-999,10,-999,10,-999,-999,10t#N10,-999,-999,10,-999,10,-999,-999,10 #N10,-999,-999,10,-999,10,-999,-999,10 #N10,10,10,10,10,10,10,10,10#N10,-999,-999,10,-999,10,-999,-999,10$N10,-999,-999,10,-,10."\N10,-999,-999,10,-999,10,-999,-999,10 Y"fN10,-999,-999,10,-999,10,-999,-999,10 "pN10,-999,-999,10,-999,10,-999,-999,10 "zN10,10,10,10,0,10,10,10,10"N-999,-999,10,-999,-999,-999,10,-999,-999"N-999,-999,10,-999,-999,-999,10,-999,-999:20! &I$"Q"33000(!&I$"H"320008!&"";:9720C! N DATAe!*N10,10,10,10,-999,10,10,10,10!4N50,-999,-999,10,-999,10,-999,-999,50!>N10,-999,-999,10,-999,10,-999,-999,10!HN10,-999,-999,10,-999,10,-999,-999,10"RN10,10,10,10,10,10,10,10 %M%(A,0)1:M%(A,1)1# %2000L %MT,100:ML,40:MR:MT,50:ML,80:MRR %\ % ENDg %9704s %:9703 %789:216,0 %31000 % %1:2:"GAME OVER. P=PLAY Q=QUIT H=HI SCORES" % %I(16384):I1289720!&I$:I$"P"ė:"CM"B1500:X%16368,0,b%LL1:L09700<l%X5:Y9:D0^v%A14:ML%(M%(A,0),M%(A,1))0%M%(A,0)OM%(A,0):M%(A,1)OM%(A,1):ML%(M%(A,0),M%(A,1))1::5000:2000:3000%%%SNSN2%1:2::SN%SCSCSN%ML%(M%(A,0),M%(A,1))00:3000n#16368,0x#)% MONSTER1%A1O!%M%(A,0)XM%(A,1)Y9510c#%AA1:A59505$%::"?STUPID ERROR IN 9508":&%M%096200%:40:2:L1;:%D%1:2:"IT GOT YOU! "I%MT,240:ML,255:MR N%:783,166:784,6:785,76:786,2:787,3:788,964!789,104:790,168:791,104:792,166:793,223:794,154:795,72:796,152:797,72:798,96>!MR770:MT6:ML7\!30000f!(# NEW BOARD2#5000<#X5:Y9:B%103F#D0P#M%0Z#4000d#2000:K11:K22 K99:KW20# K557 KH.5:K33:K44v KU128:KR%16368:KA160:KB136:KC149:KD10:KE99:KF999!AL$"ABCDEFGHI" !770,173:771,48:772,192:773,136:774,208:775,4:776,198:777,7:778,240.*!779,8:780,202:781,208:782,246E PROGRAM."& 40 "HIT ANY KEY TO BEGIN. ";:I$cN ::"ENTER TODAY'S DATE. (MM/DD/YY) ";SD$oX :"CM"{b D$(4)l N%(9,20)q ML%(9,20)v M%(4,1) MI%(4,1) MN%(20),HS(1,10),SN$(1,10),SD$(1,10) S16336 KI16384  K0":e "PLEASE MAKE SURE THERE IS A DISK IN THE DRIVE, AND THAT IT IS NOT WRITE- PROTECTED." :"DO NOT EXIT THE PROGRAM BY HITTING 'RESET' OR 'CTRL-C', AS THE HIGH SCORES" ! "WOULD NOT BE SAVED. EXIT ONLY IN THE WAYS PROVIDED BY THI$ :"THE TOP 10 HIGH SCORES FOR THE CURRENT RUN ARE KEPT, ALONG WITH A NAME OF UP TO 16 CHARACTERS."::"IN ADDITION, AN ALL-TIME TOP 10 IS KEPT" "ON DISK. IF THERE IS NO HIGH-SCORE FILEON THE DISK, ONE WILL BE CREATED BY THE PROGRAM.:"THE NEGATIVE NUMBERS ARE CHASING YOU, BUT AFTER YOU LAND ON A '50' YOU CAN EAT THEM FOR A WHILE.":"YOU FIGURE OUT THE REST OF THE RULES YOURSELF! I DON'T HAVE TIME TO WASTE EXPLAINING THEM TO YOU.":"HIT ANY KEY TO CONTINUE. ";: DYING TO SEE WHAT THE ANSWER IS, SO I WON'T KEEP YOU TOO LONG.YOU MOVE THE CURSOR BACK AND FORTH""WITH THE ARROWS. TO SWITCH FROM GOING BACK AND FORTH TO GOING UP AND DOWN, HIT THE SPACE BAR. HIT IT AGAIN TO GO BACK TO BACK AND FORTH."j0,5,0v2 3,500,1,0,0,1,6,27,32,27,3,500,2,1,27,27,6,0,0,1,3,6,0,-1,0,1,6,0,0,1,6,6,0,1,0,7,6,0,0,-1,2,6,0,-1,0,6,62 0,-1,0,1,6,0,0,-1,9,6,0,1,0,7,6,0,0,1,9,6,0,-1,0,6,62 5,160, I'M TRAPPED!!!,3,500,5,160,WHAT DO I DO NOW?!?,3,800E3 1,0,3,7,15,37,38,8,15,36,39,9,15,36,38,10 Z1 1,0,0,4,15,8,8,1,15,5,8,2,15,4,9,3,15,5,6,41 5,120,WHAT A PRETTY SUNSET!!! 1 3,1000,5,255, ,8,31 3,1000,1,0,0,2,15,25,34,24,15,25,34,37,1,0,1,2,15,24,37,25,15,24,37,342 2,1,32,27,0,0,-1,13,15,11,29,13,13,9,12,13,13,9,28d0 1,1,6,13,13,11,13,13,10,13,14,10,13,27,11,13,27,10,13,26,100 1,0,0,8,8,0,16,18,8,0,15,17,8,0,11,16,8,0,11,15,8,0,8,14,8,0,8,13,8,0,5,12,8,0,2,11&1 1,0,0,8,15,32,33,3,15,31,35,4,15,30,36,5,15,30,34,6,15,33,33,27,13,1,13,27,12,1,14,26,11,1,15,25,10@/ 1,0,0,1,1,17,23,9/ 1,0,0,7,13,18,22,5,13,17,23,6,13,14,26,7,13,14,18,8,13,22,26,8,13,12,16,9,13,24,28,9/ 1,0,0,1,13,19,21,8!0 1,0,1,8,13,18,15,9,13,18,15,31,13,18,13,10,13,18,13,30,13,15,11,11,,6.l 5,200, WHAT IS GOING ON HERE?,3,2000,5,200, WHAT THE HECK HAPPENED TO THE OLYMPIC SWIMMING POOL?,3,3000,5,255, ,3,3.s 8,2(/v 1,0,0,13,1,11,19,18,1,21,29,18,1,11,19,17,1,21,29,17,1,11,19,16,1,21,29,16,1,12,19,15,1,21,28,15,1,12,28,14,1,1,0,-1,1,20,6,0,1,0,20,6,2,1,39,39,6,0,-1,-1,19,6,0,0,1,19,6,2,1,0 ,39,6,0,1,-1,19,6,0,-1,0,19,6-X 2,7,0,0,0 ,0,0,0 ,0,0,0 ,0,0,0 ,0,0,0 ,0,0,0 ,0,0,0,8.b 1,0,0,1,1,6 ,0,1,0,4,6,0,0,1,8,6,0,1,0,8,6,0,0,1,2,6,0,1,0,6,6,0,0,1,10,6,0,1,0,2,6,0,0,-1,6,5,20,20,9,20,20,1,20,20,7@,? 5,255, THIS IS VERY STRANGE,D 1,0,0,5,3,5,25,10,7,15,20,33,11,23,37,4,12,2,10,31,5,20,35,19,1,0,1,5,9,3,17,4,4,15,23,37,14,34,37,20,1,10,23,11,6,1,5,16,I 6,8_-N 8,2,1,0,0,6,0,1,1,20,6,0,0,-1,20,6,2,1,39,0,66,36,1,6,22,1,6,35,1,6,23,1,6,34,1,6,24,1,6,33,1,6,25,1,6,32,1,6,26,1,6,31,1,6,27,1,6,30,1,6,28,1,6,29,1+0 2,20,5,5,3,5,35,9,35,35,6,35,5,11,10,10,12,10,30,2,30,30,5,30,10,7,15,15,8,15,25,14,25,25,6,25,15,10,20,20,4,20,20,9,20,20,8,20,20,13,: 20,204,17,6,20,17,6,14,16,6,20,16,6,14,15,6,20,15,6,14,14,6,20,14,6,14,13,6,20,13,6,14,12,6,20,12,6,14,11,6,20, 11,6,14,10,6,20,10,6,15,10,6,19,10,6,16,10,6,18,10,6,17,10h+ 1,1,26,6,20,9,6,20,8,6,20,7,6,20,6,6,20,5,6,20,4,6,20,3,6,20,2,6,20,1,6,37,1,6,21,1,,6,1,26,6,1,25,6,1,24,6,1,23,6,1,22,6,1,21,6,1,20) 1,1,19,6,1,20,6,19,20,6,2,20,6,18,20,6,3,20,6,17,20,6,4,20,6,16,20,6,5,20,6,15,20,6,6,20,6,14,20,6,7,20,6,13,20,6,8,20,6,12,20,6,9,20,6,11,20,6,10,20* 1,1,25,6,14,19,6,20,19,6,14,18,6,20,18,6,13 DISK"H,~" DISK IS NOT WRITE-PROTECTED OR COPY-PROTECTED"f,"OR ANY OTHER PROBLEMS.",:"HIT ANY KEY TO TRY AGAIN. ";:I$::33000D$(0,A):A+ D$"CLOSE"?+216,0:::(4)"RUN KICK.IT.OFF"K+L ONERRT+Q789c+SD$"CLOSE"k+V:+`"DISK ERROR #"(222)""+j:"CHECK TO SEE IF: ",t" THERE IS A DISK IN THE DRIVE":" THE DRIVE DOOR IS CLOSED":" THE DISK IS A DOS 3.}*}I$:I$"P"ė:"CM":200*}I$"Q"33000B*}I$"H"32000S*}"";:32140^*耲 EXIT*퀗::"SAVING HI SCORES TO DISK."*򀥫33100**D$"OPEN CALC-MAN.HI.SCORES":D$"WRITE CALC-MAN.HI.SCORES" +A110:HS(0,A):(34)SN$(0,A):(34)SIT ANY KEY FOR ALLTIME LIST. ";:I$7)M}5:1:958::b)P}"ALL-TIME HIGH SCORES FOR THIS DISK:"h)U}t)Z}A110)_}HS(0,A)0ĺ:32120)d}" ";A;5);HS(0,A);15);SN$(0,A);32);SD$(0,A))x}A)}})}"P=PLAY Q=QUIT H=RE-DISPLAY HI SCORES ";*LC-MAN VERSION 1.3 - BY DAN TOBIAS "4( }4:1:958h(}:" ":n(}(}"HIGH SCORES FOR CURRENT RUN:"((}(2}A110(7}HS(1,A)0ĺ:32070(<}" ";A;5);HS(1,A);15);SN$(1,A);32);SD$(1,A)(F}A#)K}:"H";:SCHS(0,1)ĺSC,'2{SCHS(0,1)ĺHS(0,1)]'4{B10HS(A,B)SC:SN$(A,B)SN$:SD$(A,B)SD$:k'>{C9B1'H{HS(A,C1)HS(A,C):SN$(A,C1)SN$(A,C):SD$(A,C1)SD$(A,C)'R{C:HS(A,B)SC:SN$(A,B)SN$:SD$(A,B)SD$:'} DISPLAY HI SCORES$(}:2:1:"CASNAP110210B8'SNAP2105001BB'SNAP310590CBL'SNAP410820UBV'SNAP510940gBX'SNAP611120yBZ'SNAP911170B\'SNAP1011260Bt' VARIABLES:B~' J1,B'8B'X1382B'Y0XB'XY,Y:XY,39Y:39XY,39Y:39XY,YB'YC',28,1,24,27, 1,24,26,1,23,25,1,23,24,1,22,23,1,22,22,3,1000A. 1,0,1,9,1,6,15,8,1,6,15,13,1,6,15,17,1,6,15,19,1,20,29,15,1,20,29,21,1,20,29,25,1,20,29,27,1,22,27,31A8 3,3000,8,10A' STRAIGHT PROGRAMINGA' 11170A'SNAPA$'SNAP810100 B.'10,6R@ 5,120,THIS IS DEFINATELY TOO STRANGE FOR ME.. GOOD BYE NOW.....,3,1000\@ 8,9@5,255, ,1,0,0,10,1,5,11,6,1,13,17,11,1,19,23,6,1,19,22,11,1,19,23,15,1,15,19,20,1,15,18,25,1,15,19,29,1,27,29,20,1,27,29,29,3,1000 ;A$ 1,1, 8,1,30,21,1,30,7,-2,0,10,1,1,7,0,2,1,1,1,7,2,0,10,1,1,7,0,2,1,1,1,7,-2,0,10,1,1,1,1,7,1,4,31,1,4,33,1,4,35,1,10,31,1,12,31,1,10,33,1,12,33? 3,1500,7,-1,0,1,6,1,7,0,-1,5,6,1,0,1,0,14,6@ 0,0,1,2,6,0,1,0,2,6,0,0,-1,20,6,0, 1,0,6,6,0,0,1,6,6,0,-1,0,8,6,0,0,1,,7,6,0,1,1,1,7,2,0,8,1,1,7,0,2,1,1,1> 7,-2,0,8,1,1,7,-6,0,1,1,1,7,-2,0,2,1,1,7,0,2,1,1,1,7,2,0,2,1,1,7,6,0,1,1,1,7,2,0,2,1,1,7,0,2,1,1,1> 7,-2,0,2,1,1,7,0,2,1,1,1,7,2,0,4,1,1,7,0,2,1,1,1,7,-2,0,10,1,1, 7,0,2,1,1,1,7,2,0,10,1,1|? 7,0,2,1,1,1,15,15,7,-1,0,2,15,15,7,0,-1,4,15,15,7,-1,0,4,15,15,7,0,-1,4,15,15,7,-1,0,2,15,15,7,0,1,4,15,15=2,1,4,3,1,1,1,1,15,7,31,7,2,0,5,1,15,7,2,0,9,1,1,7,0,2,1,1,1,7,-2,0,14,1,1,7,0,2,1,1,1,7,2,0,14,1,1,7,0,2,1,1,1,7,-2,0,14,1,1$> 7,0,2,1,1,1,7,2,0,3,1,1,0,-1,34,15,15,7,-1,0,2,15,15,7,0,1,22,15,15< 7,-1,0,4,15,15,7,0,1,6,15,15,7,-1,0,2,15,15,7,0,-1,14,15,15,7,1,0,2,15,15,7,0,1,6,15,15,7,1,0,2,15,15,7,0,-1,8,15,15,7,-1,0,10,15,15,7,0,1,2,15,15_= 7,1,0,4,15,15,7,0,1,14,15,15,7,-1,0,12,15,15,7,0,1,8,0,36,15,15,7,0,1,38,15,15,7,-1,0,10,15,15,7,0,-1,4,15,15,7,-1,0,10,15,15,7,0,1,2,15,15,7,1,0,8,15,15,7,0,1,2,15,15,7,-1,0,10,15,15,7,0,-1,6,15,15,< 7,1,0,14,15,15,7,0,1,4,15,15,7,1,0,2,15,15,7,0,-1,10,15,15,7,1,0,2,15,15,7,0,1,10,15,15,7,1,0,2,15,15,7,7,1,0,2,15,15,7,0,1,2,15,15,7,-1,0,2,15,15,7,0,1,22,15,15,7,1,0,10,15,15,7,0,-1,2,15,15: 7,-1,0,8,15,15,7,0,-1,18,15,15,7,1,0,12,15,15,7,0,-1,8,15,15,7,-1,0,2,15,15,7,0,1,6,15,15,7,-1,0,8,15,15,7,0,-1,4,15,15,7,-1,0,2,15,15,7,0,-1,12,15,15; 7,11,13,32,1,0,0,1,1,9,12,339z1,1, 4,0,9,7,0,12,7,0,8,11,0,13,11,1,0,0,1,0,9,12,12,1,1,4,0,28,7,0,31,7,0,27,11,0,32,11,1,0,0,1,0,28,31,12,1,1,4,0,9,28,0,12,28,0,8,32,0,13,32,1,0,0,1,0,9,12,339 8,5,6X: 8,6,2,1,0,0,15,7,0,1, 5,15,0,7,0,1,10,15,15,12,1,1,4,0,28,7,0,31,7,0,27,11,0,32,11,1,0,0,1,0,28,31,12,1,1,4,0,9,28,0,12,28,0,8,32,0,13,32,1,0,0,1,0,9,12,339p 1,1, 4,2,9,7,2,12,7,1,8,11,1,13,11,1,0,0,1,1,9,12,12,1,1,4,2,28,7,2,31,7,1,27,11,1,32,11,1,0,0,1,1,28,31,12,1,1,4,2,9,28,2,12,28,1,8,32,2,24,37,33,2,24,37,37,2,24,37,397\ 1,1, 4,2,9,7,2,12,7,1,8,11,1,13,11,1,0,0,1,1,9,12,12,1,1,4,2,28,7,2,31,7,1,27,11,1,32,11,1,0,0,1,1,28,31,12,1,1,4,2,9,28,2,12,28,1,8,32,1,13,32,1,0,0,1,1,9,12,33p8f1,1, 4,0,9,7,0,12,7,0,8,11,0,13,11,1,0,0,1,0,9,12,1,0,39,17,1,0,39,24,1,0,2,26,1,0,2,31,1,0,2,33,1,0,39,376H 1,0,0,10,9,0,39,1,9,0,5,7,9,0,5,9,9,0,5,11,9,0,39,17,9,0,39,20,9,0,5,29,9,0,5,32,9,0,5,34,9,0,39,39 7R 1,0,0,10,2,24,37,18,2,24,37,22,2,24,37,23,2,24,37,25,2,24,37,27,2,24,37,28,2,24,37,31,,0,25,34,24,0,25,34,37,1,0,1,2,0,24,37,25,0,24,37,34e5* 0,0,1,1,6,0,-1,0,16,6,3,550,0,0,-1,16,654 0,-1,0,11,6,0,0,-1,15,6,0,1,0,11,6,0,1,1,8,6,0,0,1,7,6,0,1,1,5,6,0,-1,0,8,696> 0,0,-1,4,6,0,-1,0,13,6,1,0,1,10,1,0,39,0,1,0,2,7,1,0,2,11,1,0,2,13,6,0,1,0,4,6,0,0,1,6,6,2,1,30,25,6,0,0,1,7,64  0,1,0,3,6,2,1,7,11,6,0,1,0,7,6,2,1,26,11,6,0,1,0,7,6,2,1,7,32,6,0,1,0,7,6,2,1,26,32,6,0,1,0,6,64 5,150,WHAT A STRANGE PHENOMENA!,3, 1500,5,150, WHAT DOES IT ALL MEAN????,3,150045  5,255, ,1,0,0,20,6,15,6,15,3,15,6,15,16,15,25,34,3,15,25,34,16,15,6,15,24,15,6,15,373 1,0,1,6,15,16,3,6,15,16,3,15,15,16,3,25,15,16,3,34,15,37,24,6,15,37,24,15,4 5,255, ,3,500,0,-1,0,1,6,2,1,14,34,6,0,-1,0,4,6,0,0,-1,9,6,2,1,10,15,6,0,0,-1,6,6,0,1,0,4,6,2,1,26,9w***>>>>>>***C*P*U*U*U*U *Ҫտߪ*8@L8 @L``g *>>>>>>>>*>>>>*>>>>>>>> *wU>>>>U*U*U*U*=>>>>>>>>>Ԫտߪ>>>>>`>``<``@@"""*"*"*""""""<w*>>>>U*?>*>>>>*֪ժ>>>*w_*>>U*U*U**>>>>߮>*>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>c*>.U*U*U**>>>>*ժժժ>>*8 L@8 @8@  LL  @   <|@|< wg*U*U*U*U**>>>>ժժժժ>*hp<`|`h<>`>||``|wm>^*U*U*U*U*>>>>ժժժժ>>wwU*U*U*1ժժժժ @<||><||w_2 U*U*U*1222ժժժժ2_M222222w222222]2@*U*U*U*U2Ҫտߪ2`@|`<`|@@_2222wMT*U*U*U*Ԫտߪ8 @8 @@``""6&"6:""""" o2@22ժ2wa2 U*U*U*2ժժժժ2]ժժ*U*U*2 U*U*U*ժժՊ2@pp|||`p<@`@|||||  @    @ ժժ*U*U*U*2T*U*U*Uժժժ28@@8  8  @@ wkP*U*U*U*U2ժժժժ ssU*U*U*%ժժժժpp s] " U*U*U*" " "" ժժժժ "]] " " " " " "s " " "  " " "] "@*U*U*U*U " Ҫկת "]" " ""s]T*U*U*U*Ԫտߪ @ @@@@" "  """_ " " "Ղ "s} " U*U*U* " ժժժժ "] "U*U*U* " "ժժՂ " U* p@ p `s_ "U*U*U*U* " ժժժժ " @@ D  8@@sg P*U*U*U*U" ժժժժ"wwU*U*U*ժժժժpp ժժU*U*U T*U*U*Uժժժccw>c@*U*U*U*Uܪծժתc>>wcT*U*U*U*UԪտߪx@ @@" "AwA(U*U*U*ժժժժcT*U*U ժժՂ(U* p@ p `wAU*U*U*U*ժժժժ@@\dxxp@@woP*U*U*U*U ժժժժ          Ov I X1=X COORD+Ov K2 I Y1=Y COORDBOv I D= DISTANCEVOv I C= COLORhOv 5> SP=SPEEDOv P=TEXT (PRINTED)Ov 6> (NO VARIABLES!)Ov 7> X1=X DIR & VELOv Y1=Y DIR & VELOv D=DISTANCEOv C=COLOR (WORM)Pw N*v B=1> K=NO OF PLOTS0N4v I C=COLORFN>vK TIMES I X PLOT\NHv I Y PLOTuNRv 2> K=NO. OF POINTSN\v I X1= X COORD.Nfv K I Y1= Y COORD.Npv I C= COLORNzv 3> X1=DELAYNv 4> K1=NO. OF REPEATSNv K2=N0. OF MOVES=0> K=NO. LINES(Mu I C=COLORDMu K I X1=START X^Mu TIMES I X2=END XyMu I Y=Y COORDMu D=1> K=NO. LINESMv I C=COLORM v K I X1=START YMv TIMES I X2=END YM v I Y=X COORDu 6=RESET X08Lu 7=LOMEM-MOTION WITH BACKGROUNDTLu 8=REGULAR PROGRAMMINGnLu 0> X1=DIR & VEL (X)Lu Y1=DIR & VEL (Y)Lu D=DISTANCELu C=COLORLu 1>B 0=DOT PLOT 1=LINE PLOTLu B=0> D 0=HORZ 1=VIRTMu D,39XSK+XK+11174 K+NPK+:::"PROGRAM BY LARRY HEWITT 1980":qK0u START DOCUMENTATION, STARTK:u WITH MAPKDu MAPKNu 0=MOTION-LOW DATAKXu 1=STATICKbu 2=MOTION-HIGH DATAKlu 3=DELAYKvu 4=REPEATERKu 5=PRINT TEXT L0,39X2:2:0,39X2J>+X,Y&JC+03JH+X1525@JR+10,30XGJ\+XNJf+NTJp+[Ju+0gJz+X039sJ+0,39XzJ+XJ+NJ+0J+R0:S0J+RR1J+R511250J+R3R4S1J+X1392J+R1R311220J+0,39XSJ+11230K+0 HEWITT" I*:"COPYRIGHT 1980"1I*X13000:X:I*255@I*GI*NYI* PSYCHODELIAgI*X0142nI*X|I*Y0382I*0,39YI*Y,XI*X1152I+XI +Y0382I+0,39YI +Y,XI%+Y15I*+X0364J4+1:0,39X:2:0,39X:1:H&*XH0*0,390H:*N!HD*:*HI*1302HN*10OHX*"LARRY HEWITT PRESENTS:UHb*mHl*"SWIMMING AND FUN:Hv*"A CHEMICAL ODYSSEY H{*X13000:XH*H*10I*"PRODUCED, WRITTEN, CONCEIVED, PROGRAMMEDDIRECTED, AND ANY THING ELSE BY:"::"LARRYG)XG)0,3919:0,3919'G)X0188G)X1125:X1|G)20X,21X19X:20X,21X21X:20X,18X21X:20X,18X18XG)XG*0,390G *0G*20,20:20,19:19,19G*X018G*20X,21X19X:20X,21X21X:20X,18X21X:20X,18X18XF)XF)X020F)20X,19X4:19X4,20X:21X4,20X:19X,19X4:19X,21X4:21X4,19X:19X4,19X:20X,21X4F)XF)X020F)20X,19X9:19X9,20X:21X9,20X:19X,19X9:19X,21X9:21X9,19X:19X9,19X:20X,21X9,2020 ET)NE^) START!Ec)15-Eh)X020Er)20X,20:19X,20:20,20X:20,19X:20X,20X:20X,19X:19X,20X:19X,19XE|)XE)X020F)20X,19X2:19X2,20X:21X2,20X:19X,19X2:19X,21X2:21X2,19X:19X2,19X:20X,21X2392Dx(12:0,39X&D(1:0,3940X-D(X4D(0@D(X039LD(0,39XSD(XaD(X1392qD(15:0,39XxD(XD(X1392D(0:0,39XD(XD(ND)2D )X018D)0,39XD)XD)12D")X1939D,)0,39XD6)XD@)6EJ)15X C'X020C'((1)151)AC'X,20:39X,20:20,X:20,39XHC'XOC'N]C'X1392dC'8pC'0,39XwC(2C (0,39XC(XC(X1392C((13:0,3940XC2(9:0,39XC<(XCF(X3912CP(11:0,39XCZ(4:0,39XCd(XDn(X10: <: A) F"RUN KICK.IT.OFF" I"RUN KICK.IT.OFF" ACE BAR."::"HIT SPACE BAR TO SEE COVER."{ $20 %I$:I$" "37 (:16297,0:16302,0:16304,0 2I$:I$" "50 <: A F"RUN KICK.IT.OFF" + CALC-MAN.COVER :P6:"ONE PICTURE IS WORTH A THOUSAND WORDS."15:"YEAH, BUT I COULD DISPLAY A THOUSAND" :"WORDS WHILE YOU ARE LOADING ONE PICTURE""(4)"BLOAD CALC-MAN.PIC"(:16297,0:16302,0:16304,0 2I1600 ĠҠҠŠŬ֭ҠŠήԠƮŭŠҬŠȠҠŠҠӠӠӠΠҠ̬ŠĠŠӠϠӮŠӬĠԠӠ͠ΠӠΠĠŠȬǠׯŠӮŠȠҠׯĮŭ͠ōǠӠîĠͳĮԠӬĠĮЮ٠ĠîҠҠŠŠŠŮŠҠӮРȠĠӮŠԠȠԠҮҠŠԠƮήӠЮӮРΩĠĠӱԠҠΠˠȠӠΠήŠӠΠӠΠŠӮԠӬӬΠĠΠӠΠ̭ĠŠȮԠӠׯϠ˭ŠōˠӠ̠Π®ӬĠĠӬàɠŠŠŠӠȠɧ̠ĠҮӠҠŠŠϠĮ٠נŠԠӠӠԠŬàŠөŠԠΠԢŠ٠ŮԠӠͮɠРǠϠԠΠϠԠɠΠ٠ԠŠӯӮԠǠȠĠϠӠŠԠ΢ǠŮΠŠԠŠҠРƠĠŮՠȢŠ٠ĠԠɠŮŠƠӺӠϠŠŠźՠΠ٠Š٭ӠƠŠԠ٠ǠŠүŠҠҮɠҠɮҮĠŠҠӮԠԠ̠ˠנΠנŠҠԠŢ̮ҠٮԠԠˠ̠ŠӠŠҠϠҠӮΠĠŠӠΠЮԠԠ̠͠ҠҠӠҠϮĠӮŠРҠŮŠŠԠϠŠԮΠԠΠŠҠŠŬĢƮԠԠΠ˩̠ԠӠ٠̠ŮΠƠŠӠŮҠΠŠүŮĠŠĠƠРƠҠҠŮΠŠΠŠРĠΠŠŠԠҠǮΠҠΠҠƮҠƠՠҬӠΠŠŠɢȠŠҠĠŮנէ̠ĠϠԠ٠ԠŠȠҠ̠ŠŠƬƠĠƠȠӬԠƠҠح̠РҠ٠ҠĠƠĠРԠՠũĠӠӠԠՠźҠŻӬΠТӬӬìĠӬҠȮՠϠĠҠΠǭƍŠĠƠĠ BA=BACKG COLORfPw 8> ONE VARIABLE ON WHERE TO START THE STRAIGHT PROGRAMMING!!!(SEE 10000-10100)lPQŠׯĠŮŠҠҠϠԠŮŠԮĠ˭ήһҠҮ̠ҠŠΠϠԠέƠǠȮΠŠŻԠŠҠΠРƠ̮һҨԠΩ̭ǠҮĠҠͬԠĠҠϠŠήҠŠҠήӠ٠ȠԠΠҮŠ̭ԠŠȠϠ٠Ġ̠ӮĠŠҠҩŠήŭŠԻĠӬ٬٬ԠˠҠҠΠҠΠҠ̠ŠӻӬĻĻ̧ĶӠ٠ׯӬĠάЧĠŠЮԳӠ٠ЮЮҠîҠ͢îΠȠĠűЮȠΠӠŠΠϠӮΠέŠō®ǠΠԠЩîҠîȮŨҩԠΠŠӮŠРׯĠΠĠ٠ĠӯԠҠȮӠĠŠӬ̭ĠĠӠĠ̭ٮؠȠŮȠӠԠΠƮРԠȠׯԠŠҠήŠŠŠǠŻĠϠŮ̠ŠӠԠîŠîӠîŠӠӠ٠ŠӱЮĠΠĠЮĠӠϠŠŬĠ٢Π͠ΠϠŮŠΠ٠ؠΠԧĮӍîŠĠΠ͍͠Ԯԍ֍͍Ӯҍčȍ΍č΍Ӡč΍Үԍč΍Į̮­č΍ӠŠӠԠ٠ԍč΍ϠŠȠӮč΍ŠƠŠŠƠٍč΍ŠƠˠȠŠӮč΍٠ŠĠĠĠ٠̠ƍč΍Ҡčȍ΍č΍ԠԠč΍ԠӠΠŠԠҍč΍ŠƠˮč΍ȠȠ٠ƠҠč΍Ӯč΍ŠĠԠˠӠˮč΍ҠŠƠˠӠĮč΍ҠӠ٠Ԡ٠Ԡύč΍ЬŠˠΠҠŬҍčȍ č΍ŠˠŠƠˠӠԍč΍ŠŠŠϠ̠Ԯč΍ԠӠΠƠӍč΍ԠŠΠĠ٠ҍ΍ˍč΍Π؍č΍Ԡҍč΍׍č΍ӠՍҍč΍ŠӠӠύč΍̮č΍֠ՠˍҍčȍŠ͠ĠӠƠŬčč΍ΠǠǠϠҠҍč΍ͮ͠č΍ԠŠĠŠŠȍč΍ӠՠϠԠΠ̠ōč΍Įԍč΍ӠŠˮč΍ӠՍč΍ˠŠ̍ҍčȍˠŠ̠č΍ӠӠč΍ŠΠƠƮč΍ӠՠΠԠנŠӠ͍č΍ҠΠƠՠ٠Ԡȍč΍ĭŠŠΠԩč΍ǠϠŬŠč΍Ӎč΍Ӎč΍ӠՍč΍ŠԍҍčȍŠӠԠ΍č΍ŠՠŠǠ׮ҍčȍ΍č΍Ԡč΍Ԡԍč΍ŠŠԠҠǠӠōč΍ՠ̠ԠϠ٠Ҡōč΍Ơˮč΍ҠӠƠˠŠΠč΍ϠĠŮč΍ŠԠˠŠ̍č΍ōҍčȍ č΍ŠŠƠӠŠӠϠ׍č΍ՠԠˠӠŮǠčȍΠՠč΍č΍ԍč΍ӠӍč΍                            ŠŬΠҠ ĠҮנՠŠ٠ϠԠŠϠӮĠŠȭŠ٠ŠȠĠȠӮŠҠĠԠǠҠΠŠŠƠŠȭŠĠҠŭҠΠŠҠԠŠŠŮŠҠĠԠԠȠŠȠŬǠΠϠŠҠΠȠӮРŠȭŠŠΠϠԠŠȠŠӠנЮĠŠȭŠϠԠҠ ĠҠŠȠǠŠԠՠŠԠŮҠ ĠŢԠŠŠŠԠȠŠȭŠ٠ǠԢȠŠȠŬ̠٠ΠϠŠҠΠӮӠӠԠӠƠՠŠǠϠŠԠΠƬԠ٠ԠƠٮΠ٠ήĠΠŠΠҠĠȢŠ͠ĠЮĠԠӠŠӠŠȮŠŠ͠ӠԠ̠ŠŠȠŮȭŠǍȭŠǠӠŠҠǠΠŠΠƠӠΠĠΠȠӮҠϠҬĠӠĠϠĠٮŮӠǮԠǠŠĠƠĩĠıΠΠӠ̩ŠŠӠΠРǠȠĠŠȠήҠĠˠōҠ̠ӬŠǠŠ٠ϠӠҠȠΠҮĠŠҠĠРŠήԠ̠ȠӠŠΠΠĠҭĮŠԠȠҠ͠ĠԠٮΠҠӠǠȠҠԠϠҠ͠Ơήˠ̠ҭ٠ԠԠ̠ŠĬΠҠȠŠӮΠ͠ƠŠӠΠŠϠЮŠĠŠȠԠРҠҠ͠Ԡ٠ŠҬˬӬĠԮĠ̠ȮԠŮҠȠźԠ٠ȠǠΠҠ͠ԮĠӠҮ ORIGINAL":0 "VERSION BY ANOTHER NAME."::\ "THAT WAY YOU CAN START OVER IF YOU":p "MESS UP.":: 12:"GOOD LUCK!" 1000 (4);"RUN NESTED.MENU" 23:12::"HIT RETURN";::" ";:R$:(4):::."::4 P"THE SLASH KEY PUTS YOU INTO THE SELF":N Z"CHANGING MODE."::X d1000 n"AT FIRST IT IS HARD TO UNDERSTAND WHAT": x"THE PROGRAM IS ASKING FOR.":: "STAY WITH IT. THIS IS A NICE TOOL.":: "BEFORE EXPERIMENTING SAVE AN ABOUT.NESTED.MENU# ::P"DAN STARTED WITH DALE'S PROGRAM AND":k"MADE IT BETTER."::("NESTED.MENU IS A PROGRAM THAT CAN":2"CHANGE ITSELF."::<"IT CAN CREATE AN EXEC FILE AND THEN": F"EXEC THE FILE BACK ON ITSELF