' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]LF L}BBL] X  ` 鷎귭෍ᷩ췩緈JJJJx Lȿ L8ᷭ緍췩 緍i 8 `巬 췌`x (`(8`I`B` ``>J>J>VU)?`8'x0|&HhHh VY)'&Y)xꪽ)' `Hh`V0^*^*>&` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8  '  & x)*++`FG8`0($ p,&"ųųೳŪŪųųij  !"#$%&'()*+,-./0123456789:;<=>?   1 '" *"( (9"1 ( ,.(0# 2  /#0/#0 *?'#07#00/0/'#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 ü ü݌ ռ ռ ռA ļD ļ? ļAEDE?HJ>h Լ ռ ռ ռ`HJ>݌h Hh݌`葠葠ȔЖȔЖȠHIHHHHhHH݌hHhHh݌H6 VDP (ED Z $0x8x D- ܸDD# H8`?E Vk *f???0xE Hh D#-EEE8` D ܸx D - ܸx8`-0ݩ?ʥD EEE`   LDcpq` [` ~  LӜu`".Q`pNФbptťܥm2<(-Py0\|e<6e<g< JJJJj귍hI  aUL@ kU8  L  Q^R(jQ0l^l\  wUuW ԧ H h@ [_ /QSIRb_L`LLLL`ª`LQLYLeLXLeLee ўQH\(h0L& Ꝥ$`( R \ZLl8 ўR HH\`\Z[YS6`LxQɿu3'RͲʎRʎ]]]ɍuL͟ɍ}RLRɍg^H8 ^hZLɍR LͲɊRR% QLܤͲ Z@ -^ ş\[Z QY\[Z8`l6Lş_Ȍb_Ͳ] )Y h( ֭ͲLɍ [LLĦ__ ^ 9 LҦ3 9 a   0LjLY u< (_9 ˭ɠuɠK_9 ?LˆʎõĵL õ ĵµ aµ`` L̦µ_bJLuLz`  ȟ QlXJ̥KlV  ȟ QlV eօ3L e3L &RL &QL d L4 Ne)n `@-eff L f`L . tQLѤ LҦL` OPu d L Ne)noon 8ɍ` ^f\õL ^NR  RΩLҦ)\Z ʽ LHv 3h`0h8` [L NС õ`A@` ŵL^Lõ`  \ 濭0 \  ȟ Q ^\lZl^?cqH şch`fhjõĵ@OAP`u@`@&`QR`E Ls  @DAE@u`8` %@ @A@`@`@A`Mµ ) LЦ`8@AWc@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@ch8&ȑ@Hȑ@Ah@LHȑ@ȑ@ htphso`hMhL`9V8U897T6S67`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- ( 0 տ@跻~!Wo*9~~~~ɬƬ~_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J QL_Ls贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL H hBL BH [ h`Lo õ ڬL B ڬ LʬH hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / / ED B / / ]ƴS0Jȴ ȴ)  紅D贅E B ƴ  / 0L Ν `HD٤DEEhiHLGh ` ŵBѵ-` ѵB-` ܫ XI볩쳢8 DH E𳈈췍Ȍ X0 · JLǵBȵC`,յp` 䯩 R-յյ`յ0` K R-յյ`ɵʵӵԵ` 4 K ( ѵҵLBȱBL8` DBHBH : ַ޵BȭߵBhhӵԵ RBܵmڵ޵ȱBݵm۵ߵ` 䯩LR˵̵ֵ׵`êĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭귭ⵍ㵍跬ª 뷰` Lf ݵܵߵ޵ ^`8ܵ i B8` 4L ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵Bֵ  ַ յյ`굎뵎쵬 뵎쵌``õĵBCõĵ`µµ`L õBĵCصص Qƴ0"Bƴ 󮜳` 0۰ϬBƴ8`i#`ЗLw!0>ﵭ` m ﳐ 7i볍 8 ЉLw`H h ݲL~ `浍국䵍뵩嵠Jm赍嵊mjnnn浈ۭm浍浭m䵍䵩m嵍`"L ŵ8ŵH ~(`  d ֠z# u`TING UP AN ADVEN-TURE."ECOMPIS-MENTIS' IS":"CALLED 'GARBAGE COLLECTION'.": 20@ " THE 'CREATE-A-VENTURE.MENU' PROGRAM IS AN ENTRY POINT TO THE OTHER TWO PRO- GRAMS, 'CREATOR', AND 'ADVENTURE'." "IT HAS SOME OTHER INFORMATION WHICH MAY BE OF USE TO YOU IN SETAYS, YOU MAY, AS YOU RUN THEM, FIND THE APPLE APPEARING TO GO OFF"; "INTO NEVER-NEVER LAND. WHAT IS HAPPEN- ING AT THOSE TIMES IS THAT THE BASIC OPERATING SYSTEM IS PROBABLE CLEANING OUT ANY UN-USED DATA STRINGS." 2 "THIS TIME OF 'NON-΍ҍ̍ҍ΍Ǎōˍōҍ T TO APPEASE HIM/HER BY" "PRESENTING A GIFT OF FIVE ITEMS THAT YOUHAVE PICKED UP AS YOU GO MOVE THROUGH THE SERIES OF LOCATIONS SET UP." 20 D " BECAUSE OF THE NATURE OF THE WAY":"THSES PROGRAMS HANDLE DATA, I.E. BY":"USING DATA ARRE BETWEEN 25 AND 100 LOCATIONS. YOU CAN THEN DESCRIBE EACH LOCATION, AND THEEXITS FROM EACH. TO TOP IT ALL OFF, YOUCAN DESCRIBE THE MAIN CHARACTER OF EACH" "OF YOUR ADVENTURES. THE GOAL IN ANY OF YOUR ADVENTURES IS NOT TO DESTROY YOUR OPPONENT, BU 100623:"PRESS TO CONTINUE ";:Z$FZ$(13)ıYZ$(13)ī20iZ$(13)ıocwd:n" CREATE-A-VENTURE IS A SERIES OF PRO- GRAMS WHICH ALLOW YOU TO 'CREATE' YOUR OWN ADVENTURES. TO BEGIN WITH, YOU CAN" x"HAV   ?:D4 "THEREFORE ... " :N4 %COMMANDS ARE VALID IN "#93 TITLET93 ", TYPE AT ANY POINT IN THE GAME. "\93 %g93 CHAR93 " NOTICES THAT YOU HAVE ALL 5 GIFTS. "94 CHAR94 " IS REALLY, REALLY HAPPY! "94 ?9&4 CHAR904 " ACCEPTS ALL OF THE GIFTS. "::4 THIS, YOU MUST SEEK OUT AND OBTAIN 5 PARTICULAR OBJECTS WITH WHICH TO BUY "V83 CHARe83 " OFF. "83 " FAILING TO DO THIS MAY MAKE "83 CHAR83 " A TRIFLE ANGRY, AND IT IS YOU WHO MAY BE ELIMINATED. "83 ?93 " IF YOU'RE NOT SURE WHICH KNIFE CUTS THE SACK AND YOU LOSE BOTH OF THEM."`7@3 "YOU LOSE EVERYTHING AND END UP HERE." v7J3 " WELCOME TO "7T3 TITLE7^3 ". "7h3 " YOUR GOAL, SHOULD YOU DECIDE TO ACCEPT IT, IS TO ELIMINATE THE EVIL "7r3 CHAR7|3 ". "K83 " TO DO "3 96,YOU NEED SOMETHING TO CARRY IT IN.,THE PAIL HOLDS THE WATER PERFECTLY.,RUSTY PAIL6,3 ">> YOU DON'T HAVE ENOUGH GIFTS, SO THEY ALL DISAPPEAR.","YOU CAN'T GO THERE RIGHT NOW."2763 "THE HAMMER BREAKS THE VASE, AND THEY BOTH DISAPPEAR.","THE ,THE ROPE IS TIED TO A HEAVY WEIGHT.,THE ROPE IS EASILY CUT.,SHARP KNIFE53 152,THE DOG (DOG?) WON'T LET YOU HAVE IT.,DOG DROPS THE STICK & GRABS THE STEAK.,RAW STEAK53 72,YOU NEED SOMETHING TO CARRY IT IN.,THE STONE FITS IN THE SACK.,BURLAP SACKX6CLAW HAMMERf42 166,YOU NEED SOMETHING TO PUT IT IN.,THE PAPER FITS IN THE ENVELOPE.,MANILA ENVELOPE42 223,THIS PEN WON'T WRITE.,NOW THE PEN WORKS FINE.,INK REFILL42 154,THE RING IS LOCKED IN A JEWEL CASE.,THE JEWEL CASE IS NOW OPEN.,KEYH53 722 104,THE COIN IS LOCKED IN A SAFE.,THE SAFE IS UNLOCKED AND OPENS EASILY.,SAFE COMBINATION32 168,YOU NEED SOMETHING TO PUT IT IN.,THE FLOWERS LOOK GREAT IN THE VASE.,VASE 42 104,THE NAIL IS STUCK IN A PIECE OF WOOD.,THE HAMMER PULLS OUT THE NAIL.,S AN ERROR #";ERR;" IN LINE ";LINE;".":"THIS PROGRAM HAS ENDED.":216,0:p2:/:"PRESS TO CONTINUE ";y2D/AN$2N/AN$RTN$ī121002X/216,02b/7682l/DISK3ī80002v/DISK4Ĺ778,255:D$;"RUN";MPROG$;".MENU"2/1100022 DATA \3ĺ"THERE IS AN INPUT/OUTPUT ERROR. CHECK TO BE SURE DISK IS IN DRIVE PROPERLY ANDDOOR IS CLOSED.":120901/ERR9ĺ"THE DISK IS FULL. NO MORE INFO CAN BE ADDED. PLEASE USE ANOTHER DISK.":120901&/ERR10ĺD$;"UNLOCK";PROG$:12120J20/::"THERE I(0-DISK3ĸRR(Z)(NL%(1))1:9000.0-E0. ERROR ROUTINE T0.ERR(222)o0.LINE(218)(219)2560.:6:BELL$;0.ERR4ĺ"YOUR DISK IS WRITE PROTECTED.":120900/ERR6ĺPROG$:"IS NOT FOUND ON THIS PARTICULAR DISK.":12090j1/ERR8$(NL%),LN$(NL%),N%(NL%),S%(NL%),U%(NL%),W%(NL%) TO RECALL GAME. ";-B,AN$-L,AN$RTN$ī11330-V,-`,V:1:"NOW ";::" LOADING ":.j," ";PRO+D$;"DELETE";PROG$),+D$;"OPEN";PROG$?,+D$;"WRITE";PROG$I,+ROOMR,+NUM_,+OBJ%(0)k,+OBJECTw,+I110,+BLOCK%(I),+OBJ%(I),+UNBLOCK%(I),+I,+11660,,DISK2PROG$"^"MPROG$".GAME":11300-,DISK3PROG$"^"MPROG$1270!+ +PROG$"^"MPROG$".GAME"=+*+:"SAVE GAME TO DISK:"d+4+:5:"1. PLACE DISK IN DRIVE #1."+>+:5:"2. PRESS TO SAVE GAME. ";+H+AN$+R+AN$RTN$ī11080+\++f+V:1:"NOW";::" SAVING ":+p+" ";PROG$+z+D$;"OPEN";PROG$,*(V:H1:" "* (V*(I#*(5*((12:14:MSG$B*2(CYCLE15d*<(CHECK0CHECK1:9500:10100l*F(23x*P(CYCLE1*Z(I112*d(*n(9500*x(I*("THE END"*(** DISK ROUTINES ***+12000* +V10++DISK11040,11270,11270,1$'CHECK0).'0)8'4!)B'30707)L'TIME1500:TIME@)V'255F)`'L)j'Z)t'X40:Y22e)~'I08r)'HI1X)'24Y:H:" ")'H)'XX1)'V25YY)'V:H1:" ")'V)'YY1)'HXI11)'V1:H:" ")'H)'VY24Y1I)II10:SAME1($II0($SAME1SAME0:91507("$IJ(,$OBJ%(0)RR(0)P(6$g(% SOUND ROUTINE w(%II1CYCLE(&%SOUND(NOISE)(NOISE)(NOISE)(0%II(:%(' WIN ROUTINE ('DUN1OBJ%(0)ROOMİ8000:"NOTHING HAPPENS!":(': )1&'#OBJ%(I)OBJ%(II)III1:SAME1.'#IIG'#SAME1SAME0:9070N'#IZ'#I110q'#UNBLOCK%(I)RR(0)'#I1ī9210'#II1I1'#UNBLOCK%(I)UNBLOCK%(II)III1:SAME1'#II'#SAME1SAME0:9150'#II110($UNBLOCK%(I)OBJ%(ILOCK%(9)RR(0):OBJECTOBJECT2Q&z!NUM3ROOMRR(0)ROOMRR(0):SC%(4)1:9000W&!t&'# OBJECTS IN RND LOCS ~&(#DUN0&2#NUM0&<#OBJECT0&F#SAME0&P#I110&Z#BLOCK%(I)1&d#OBJ%(I)0ī9130&n#OBJ%(I)RR(0)&x#I1ī9130'#II1I8550(%H!NUM4ROOMOLDR:SC%(1)1:85409%R!NUM5DUN1_%\!MCMC1:MC4MC0:OBJ%(0)RR(0)%f!UNBLOCK%(2)0UNBLOCK%(3)0SC%(2)1:UNBLOCK%(2)RR(0):UNBLOCK%(3)RR(0):OBJECTOBJECT2&p!UNBLOCK%(7)0UNBLOCK%(9)0SC%(3)1:UNBLOCK%(7)RR(0):UNB ";UNBLOCK%(II);" HERE." $IIN$OBJ%(0)ROOMĺMCHAR$;" IS LURKING HERE."Z$II04$SC%(II)1SC%(II)0:BELL$;SC$(II)$II$MOVE1MOVE0:9000$$3! SPECIAL CONDITIONS $4!OBJ%(0)ROOMī8550%>!NUM3SC%(0)1:MOVE1:MC0:UTINE #@#J8500(#T1:11:868C#^:" ";LN$(ROOM);" ":X#h18:LD$(ROOM):e#rII110#|II10OBJ%(II)ROOMĺ"THERE IS SOME ";OBJ$(II);" HERE.":8080#OBJ%(II)ROOMĺ"THERE IS A ";OBJ$(II);" HERE."$UNBLOCK%(II)ROOMĺ"THERE IS A" "LOCATION:""8000" 7"K 'LOOK' ROUTINE A"L8000f"VNOUN$""ĺ"LOOK AT WHAT?":7560r"`I110"jNOUN$OBJ$(I)OBJ%(I)ROOMBLOCK%(I)1ĺBLOCK$(I):I10:I:7560"tI"~"THERE ISN'T ANYTHING SPECIAL TO SEE.""#? PRINT ROXXX1:" *";XX;". ";OBJ$(I)P!UNBLOCK%(I)0XXXX1:2);XX;". ";UNBLOCK$(I)W!I!17:"(*) OBJECT NEEDED TO APPEASE":4);MCHAR$;"."!22:1:958!"PRESS TO RETURN TO GAME ";!AN$!AN$RTN$ī7140!!1:1:868NUE GAME "; AN$) AN$RTN$ī6830/ ? 1:1:868P "LOCATION:"Z 8000` } W 'INVENTORY' ROUTINE X b1:1:868 l"INVENTORY:" v4 "YOU NOW HAVE IN YOUR POSSESSION:"  XX0 I110!OBJ%(I)0XJUST THE DIRECTION ITSELF."1h:"FOR EXAMPLE:"Sr:3);"1) COMMAND: GO NORTH"o|3);"2) COMMAND: GO N"3);"3) COMMAND: N":"ANY ONE OF THOSE WILL ALLOW YOU TO GO INTHE DIRECTION OF NORTH."22:1:958 "PRESS TO CONTIBJECT NAME"33,40:32,0-22:1:958Q""PRESS TO CONTINUE ";Z,AN$o6AN$RTN$ī6700u@|J5T"TO MOVE IN A DIRECTION, THE COMMAND MAY BE 'GO' WITH AN APPROPRIATE DIRECTION"^"(IE: N,W,S,E,U OR D), OR ... YOU MAY USEIN POSSESSION)";2"LEAVE";8);""P"LOOK";9);"OBJECT NAME":"Q";::"UIT";9);"... (ENDS ADVENTURE)""RECALL";7);"... (LOADS SAVED GAME)""SAVE";9);"... (SAVE GAME)""TAKE";9);"" "USE";10);"OB$"U")(NOUN$,1)"U")U%(ROOM)0ROOMU%(ROOM):6100((NOUN$""VERB$"D")(NOUN$,1)"D")D%(ROOM)0ROOMD%(ROOM):61008000BELL$;"* YOU CAN'T GO IN THAT DIRECTION.":61108000c 'HELP' ROUTINE dn1:1:N%(ROOM):6100X((NOUN$""VERB$"W")(NOUN$,1)"W")W%(ROOM)0ROOMW%(ROOM):6100((NOUN$""VERB$"S")(NOUN$,1)"S")S%(ROOM)0ROOMS%(ROOM):6100((NOUN$""VERB$"E")(NOUN$,1)"E")E%(ROOM)0ROOME%(ROOM):61006((NOUN$""VERUNBLOCK%(J)0İ8000:BELL$;"THERE IS NOTHING HERE TO USE THAT ON.":J10:J:5590bCHECKCHECK1iJCHECK10İ8000:BELL$;"* YOU DON'T HAVE THAT!"o DIRECTION pOLDRROOMz((NOUN$""VERB$"N")(NOUN$,1)"N")N%(ROOM)0ROOM |CHECK0J110]NOUN$OBJ$(J)İ8000:BELL$;"* YOU CAN'T USE THAT!":J10:J:5590(NOUN$,3)(UNBLOCK$(J),3)(NOUN$,4)(UNBLOCK$(J),4)ī5560UNBLOCK%(J)0OBJ%(J)ROOMBLOCK%(J)0:8000:"OKAY ...":RESULT$(J):J10:J:5590PLOCK%(J)ROOMUNBLOCK%(J)0:8000:OBJECTOBJECT1:J10:J:5140YUNBLOCK%(J)0ī51108000:BELL$;"* YOU ALREADY HAVE THAT!":J10:J:5140CHECKCHECK1J CHECK10İ8000:BELL$;"* I DON'T SEE THAT HERE."{ 'USE' ROUTINE (J)ROOMUNBLOCK%(J)0BLOCK%(J)0OBJ%(J)0:8000:OBJECTOBJECT1:NUMNUM1:J10:J:5140OBJ%(J)ROOMBLOCK%(J)0İ8000:BELL$;BLOCK$(J):J10:J:5140OBJ%(J)0ī5100(NOUN$,3)(UNBLOCK$(J),3)(NOUN$,4)(UNBLOCK$(J),4)ī5110?UNBTINE 8000]BELL$;"* I'M AFRAID YOU'RE GOING TO HAVE TO FIND THAT FOR YOURSELF."ci 'GET' ROUTINE CHECK0OBJECT6İ8000:BELL$;"* YOU CAN'T CARRY ANYTHING ELSE.":5140J110NOUN$OBJ$(J)ī5070ZOBJ%BJECT1:NUMNUM1:4050((NOUN$,3)(UNBLOCK$(J),3)(NOUN$,4)(UNBLOCK$(J),4))UNBLOCK%(J)0UNBLOCK%(J)ROOM:OBJECTOBJECT1:BLOCK%(J)1:4050CHECKCHECK1J8000CHECK10ĺBELL$;"* YOU DON'T HAVE THAT!" 'FIND' ROU3500(V$,1)"Q"ī3800@V$"RECALL"DISK2:11000:3500FP8000BELL$;"* YOU CAN'T ";(V$,16);" SOMETHING."3500 'DROP' ROUTINE CHECK0J110NOUN$OBJ$(J)OBJ%(J)0OBJ%(J)ROOM:BLOCK%(J)1:OBJECTO00LV$"GIVE"İ10000:35007VV$"GO"İ6000:3500Z`V$"SAVE"DISK1:11000:3500tjV$"USE"İ5500:3500tV$"D"V$"E"V$"N"V$"S"V$"U"V$"W"İ6000:3500~V$"HELP"İ6500:3500(V$,3)"INV"İ7000:3500V$"LOOK"İ7500:N$)  I II0III1 VERB$(AN$,1,II1)OII(AN$)NOUN$"":3620eNOUN$(AN$,II1)(NOUN$,1)" "NOUN$(NOUN$,2):3610$V$VERB$.V$"DROP"V$"LEAVE"İ4000:35008V$"FIND"İ4500:3500BV$"GET"V$"TAKE"İ5000:35 AN$RTN$ī3270- 22:1:"LOCATION:"3 J 1:1:"LOCATION:"U ROOM1_ 8000e | INPUT ROUTINE  22:1:958:"COMMAND: ";AN$ AN$""İ8000:3500 II0 I1(AN$) SPACE$(AN$,I,1) SPACE$" "III:I(AN$XS$IN$: BS0(D XS$(IN$,40BS)AN (XS$)(IN$)ī3070YX (XS$,1)" "ī3190eb BSBS1ol 3140~v (XS$,39) XS(IN$)(XS$) XS0ī3070 IN$(IN$,XS) 3130 DUNī3340 22 "PRESS TO START "; AN$ME1200:TIMEP * INTRODUCTION 0 < I140K 2:I:"-"[ 22:I:"-"b Is 34,2:35,19z 4 IN$ IN$"CHAR"IN$MCHAR$ IN$"TITLE"IN$TITLE$ IN$"?"ĺXS$:XS$""::3070& IN$"%"ĺXS$:XS$"":3240 0 I MOVE TITLE/NAME  AA$A$/ H21(AA$)2; I140I A$" "A$P IW Vg (A$,1,40)q 9500  TIME110:TIME  (A$,H,(AA$))AA$āTIME1500:TIME ( A$(A$,2)(A$,1) 2 (A$,41,(AA$))AA$ĢV:" ":2630 < 2550F TI 778,0:--MENU TITLE PRINTS% 4  TITLE : B V5N I140_ V2:I:"="p V2:I:"="w I CYCLE1 A$TITLE$ 2500 *A$"BY: "AUTHER$ 42500 >CYCLE4 H23 RI1V1 \ f9500 pI z 0 $MPROG$"CREATE-A-VENTURE": .MSG$"YOU WIN (YAY!)"K 8NOISE16336Z BRTN$(13)f LI110z VD1,D2$,D3$,D4$ `I767,D1 jBLOCK$(I)D2$ tRESULT$(I)D3$ ~UNBLOCK$(I)D4$ I I04 D2$ SC%(I)0 SC$(I)D2$ I4);"ANY OTHER KEY TO END. ";& AN$V AN$RTN$Ĺ778,255:D$;"RUN";MPROG$;".MENU"^ ": ,"END OF ADVENTURE PROGRAM FOR":MPROG$ 622 @  INITIALIZATION SC%(4),SC$(4) BELL$(7) D$(13)(4) DUN0 MC0 MOVED ADVENTURE DATA# 3000:--INTRO6 3500:--INPUT< c 6:"DO YOU WISH TO QUIT (Y/N)? ";l AN$ AN$"N"İ8000:160 AN$"Y"ī190 1:1:868 22:958 6:28:"YES" 9:2);"TAP TO RETURN TO MAIN MENU," "2-- ADVENTURE SUBPROGRAM0-- GARY CAGEJ-- 5416 E. VERDE LN.e-- PHOENIX, AZ 85018-- IN'CIDER, AUG.'83c MAIN PROGRAM d:n1000:--INITxDISK4:11000:--LOAD TITLE DATA2000:--TITLE DISK3:11000:--LOA                       4,15,2,13,16,3,11,8,5,10D15,10,8,1,6,3,13,12,9,16,2,7,4,5,11,14p3,13,12,6,16,2,7,9,5,11,14,4,10,8,1,15-- J.J.TAYLOR-- 14 WOODWAY CLOSE-- TEIGNMOUTH, DEVON-- ENGLANDC23,154,72,152,72,9633:COIN,FLOWER,NAIL,PAPER,PENT3:RING,ROPE,STICK,STONE,WATER Tb27::"THERE IS AN ERROR #";ERR;" IN LINE ";LINE;".":"THIS PROGRAM HAS ENDED.":216,0:776,0:y2 7TIME12000:TIME27216,0277682(714000227DISK1ė:1202<7TSTRUENUEFALSETSFALSE:2302F72402: DATA 3: 104,168,104,166,2CHECK TO BE SURE DISK IS IN DRIVE PROPERLY ANDDOOR IS CLOSED.":1409016ERR9ĺ"THE DISK IS FULL. NO MORE INFO CAN BE ADDED. PLEASE USE ANOTHER DISK.":1409016ERR10ĺ"THE FILE WAS LOCKED. IT HAS NOW BEEN UNLOCKED.":D$;"UNLOCK";PROG$:1409006 ERROR ROUTINES '06ERR(222)B06LINE(218)(219)256S06:6:BELL$;06ERR4ĺ"YOUR DISK IS WRITE PROTECTED.":1409006ERR6ĺ"THAT PROGRAM IS NOT FOUND ON THIS":"PARTICULAR DISK.":14090F16ERR8ĺ"THERE IS AN INPUT/OUTPUT ERROR. /"/2 EXITS=0 ERROR ROUTINE 3/220:1:958/2BELL$;"*** YOU HAVE ENTERED ALL ZEROS.";13);"THEREFORE, NO EXITS ARE POSSIBLE."/24);"PLEASE TRY AGAIN, WITH AT LEAST";9);"ONE EXIT."/2TIME12000:TIME/220:1:958/2ZEROTRUE03N(A$)MAXī11070$.+20:1:958R. +BELL$;"SORRY- THE VALUE MUST BE BETWEEN"o.+7);MIN;" AND ";MAX;"."{. +RANGE1.*+TIME11500:TIME.4+20:1:958.>+.. FORMAT EXIT #'S ..(A$)0ī12040..VV:HH:868..0..A$(0)/+-#(A$)2AN$BS$A$(A$,(A$)2):9110F-#AN$BS$A$"":VV:HHy-#(AN$)LNGTHA$(A$,LNGTH):VV:HRIGHT:868-#9020-#-' READ KEYBOARD -'KEY(16384)-'KEY128ī10000-$'16368,0-.'-* CHECK # RANGE .*(A$)MI"",2#LNGTHHRIGHTHH,<#AN$l,F#CSTRUEAN$(19)AN$(13):TSTRUE:CK1:PROG$"^"MPROG$".DATA":8160,P#AN$(21)AN$(34)AN$(44)AN$(58)ī9020,Z#AN$;,d#AN$RTN$A$""ĢVV:HH:9020,n#AN$RTN$ĢVV:HH:868:A$:9130,x#A$A$AN$K1:D$;"CLOSE":PROG$"^";MPROG$".DATA":85708+!NL%F+!II1NL%\+!LN$(II):LD$(II)+"N%(II):W%(II):S%(II):E%(II):U%(II):D%(II)+"II+"II110+$"OBJ%(II):OBJ$(II)+."II+8"D$;"CLOSE"+B"+'# GET ANSWERS ROUTINE ,(#A$N$*f!AN$RTN$ī8570%*p!:::120+*z!F*!1:868:HEAD$:L40$;~*!8:1:"NOW ";::"LOADING";::PROG$;" FROM DISK."*!D$;"VERIFY";PROG$*!D$;"OPEN";PROG$*!D$;"READ";PROG$*!CK1ī8680*!TITLE$*!AUTHER$*!MCHAR$/+!CK0COBJ%(II):OBJ$(II)) II+) D$;"CLOSE"5) 8770Q)3! 2. DISK=1 (RECALL) w)4!"TO RECALL OLD ";MPROG$;" DATA:")>!::6:"1. PLACE CORRECT DISK IN DRIVE #1")H!:6:"2. PRESS TO RECALL")R!:6:"3. ANY OTHER KEY TO RETURN: ";*\!Az#?????     ҠРàŠŠ տ٠ŭŮՠҠ-Š4ŭŮϠ Ҡ )"XXX" " XX AAAAAAAA PPPPPPPPP PPPPPPPPP LL EEEEEEEEEE XX LL IIIIIIIIII NN NN CCCCCCCC XX" " XX AA AA PP PP PP PP LL EE XX LL II NNNN dD$(13)(4):I$(9)5nD$;"PR#1":I$;"132N"Zx(27);(56):(29):(27);(65)" XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX " " XXX";61)"XX XXX";48      (4);"CATALOG" ^CAX17002h"CAR # ";CA;" IS A ";CARTYPE$Lr:"DRIVER: ";DRIVER$j|:"QUALIFIED AT ";SPEED$:"STARTED IN POSITION # ";I:1720I:"CAR # ";X;" IS NOT ENTERED":"TAB TO CONTINUE ";GO$:1230E$,SPEED$I;") CAR# ";NCA;" ";DRIVER$;" ";CARTYPE$;" ";SPEED$hII1:J:::II1:Ip: INDIVIDUAL CARS :2000""DRIVER FOR WHAT CAR# ";X,:6I1M@CAJCA01710TDRIVER$,CARTYPE$,SPEED$A4ī1300#PA1560,1410,1420,100QxA1A4ĺ"BETWEEN 1 AND 4, PLEASE":1350k820:1440:850:12301440::"TAB TO CONTINUE ";GO$:1230: START FIELD DISPLAY :I1M:J13CA:CA01530 DRIVER$,CARTYPF CARS + 120000 12)"STARTING LINE-UP"L:"WOULD YOU LIKE...."x:"1 - THE DRIVER OF A PARTICULAR CAR"(:"2 - PRINTOUT OF THE STARTING LINE-UP"2:"3 - DISPLAY STARTING LINE-UP"<:"4 - RETURN TO MAIN MENU"F:A KA1ENTER SECONDS PER LAP ";SEC/SP2.53600SECOSP((1000(SP.005)))1000w:SEC;" SECONDS EQUALS ";SP;" MPH":"ANOTHER CALCULATION (Y/N)";A$A$"Y"1150100: CAR & DRIVER DATA :: M34:-- SET M TO NR. ON> FOR PRINTOUT ";GO$820G"CARS OUT OF RACE ON LAP # ";Y;" "TM1N1t"(";34M;") ";T(M);" ";:z$.850:1008:B LAP SPEED L:V-- FOR 2.5 MILES/LAP`2000j8t"LAP SPEED CALCULATIOR"~:"2000$"CARS OUT OF THE RACE: "L:"ENTER LAP # FOR THIS REPORT ";YTN1:"ENTER CAR #'S - ENTER (0) WHEN DONE""POSITION ";(34N);:XT(N)XX01000NN1950:"LIST COMPLETE FOR LAP # ";Y:"TAP D$;"PR#1"HRD$;"PR#0"\f:p CARS OUT z:l:"6 - END PROGRAM"2v:"WHICH NUMBER ";YaY1Y6ĺ:"BETWEEN 1 AND 6, PLEASE":630lY1ı{Y2İ2000Y31230Y4İ2000:870Y51080Y6390: TEXT COMMENTS :"LAP NUMBER FOR THIS NOTE: ";LA :  MENU  :3 &4:10:"SELECT FROM:"; 0:h :"1 - ENTER LAP RUNDOWN AND RACE SPEEDS" D:"2 - ENTER TEXT COMMENTS" N:"3 - CAR & DRIVER INFORMATION" X:"4 - ENTER CARS OUT OF THE RACE"b:"5 - CONVERT SEXCONDS/LAP TO MPH"RECORD YEAR ";YR RSNOOS= RS((100(RS.0005)))100:C  NSOSĺ"NEW RECORD OF ";NS;" BETTERS OLD RECORD OF ";OS;" SET IN ";YR;" BY ";RS;" MPH" NSOSĺ"RACE SPEED OF ";NS;" IS BELOW RECORD OF ";OS;" SET IN ";YR;" BY ";RS;" MPH" N1 J"(";M;") ";T(M);" ";:% Te ^A$"Y"ĺ"(SPEED INFORMATION NOT AVAILABLE AT THIS ENTRY)"n h490w r850 |100  :  SPEED INFO : :"ENTER NEW RACE AVERAGE ";NS :"ENTER OLD RACE AVERAGE ";OS :"PREVIOUS 200" "DONE FOR ";N1;" ITEMS"f :"DO YOU HAVE AVERAGE SPEEDS TO RECORD IN THIS RUNDOWN ";:A$w A$"Y"İ400 :"TAP FOR PRINTOUT ";GO$:820 : " PROGRAM PROCESSING ,: 6:"*** POSITIONS FOR LAP # ";L;" "; @M1************* F ! d:::2 nT(33),N(33)J x520:-- GO TO MENUP :g CAR POSITIONS m :w 2000 "RUNDOWN FOR LAP # ";:L N1 :"ENTER CAR # - ENTER 0 WHEN DONE" "POSITION ";N;:X T(N)X X0240 NN1:-- IN'CIDER, MAY,'830-- EARL JOHNSONK-- 2781 JUANIPERO WAYe-- MEDFORD, OR 97501 *********************** *** INDY *** ** LAP CHART PROGRAM *(* BY EARL JOHNSON *2* MEDFORD, OREGON * <*********      NN CC CC XX" "XX AA AA PP PP PP PP LL EE XX XX LL II NN NN NN CC XX"' "XX AAAAAAAAAA PPPPPPPPP PPPPPPPPP LL EEEEEEEE XX XX LL -- 3 COMMAS SEPARATE THE 4 FIELDS/LINEt-- STARTING LINEUPS ARE IN MOST NEWSPAPERS A DAY OR TWO BEFORE THE RACE-- CHECK YOUR DATA ENTRIES BY LISTING ALL CARS TO YOUR CRT-- THE PROGRAM ALLOWS 33 DATA ENTRIES PLUS A "DATA 0" STATEMENT (LINE :-- CLEAR SCREEN:(:6:.X:Db DATA PROGRAM Jl:v-- DATA ENTRIES MUST BE ENTERED IN PROPER SYNTAX AND IN QUALIFYING ORDER-- USE FORM OF CAR#,DRIVER,CAR OWNER & TYPE, QUAL SPEED'-- THERE IS NO COMMA FOLLOWING 'DATA' II NN NN NN CC XX" "XX AA AA PP PP LL EE XX XX LL II NN NN NN CC XX"8 "" XX AA AA PP PP LL EE XX8000)" DATA ENTRIES FOLLOW (:O 1,RICK MEARS,PENSKE-FORD,207.004w 4,KEVIN COGAN,PENSKE-FORD,204.08214,A.J. FOYT,MARCH-COSWORTH,203.33240,M. ANDRETTI,WILDCAT-COSWORTH,203.17220,G. JOHNCOCK,WILDCAT-COSWORTH,201.884@ LL II NN NNNN CC CC XX" ," XX AA AA PP PP LLLLLLLLLL EEEEEEEEEE XX LLLLLLLLLL IIIIIIIIII NN NN CCCCCCCC XX" 6" XXX";61)"XXX XX";48)"XXX"j @" XXXXXXXXXXXXXX0 XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX"y J(31):: TA$"THE APPLE CLUB OF LINCOLN, NEBRASKA" ^AA20((A$)2) hAA1);A$ r::|A$"INVITES YOU TO ATTEND A CLUB MEETING MPROG$;" MENU:"/ I1(MPROG$)5:"=";:I7 TPF I1ITEMSd LEFT(ARROW$):MENU$(I)k I}  21:MENU$(I)  MENU$(I1)  VERT:LEFT:ARROW$; & :MENU$(1): 0 KEY(16384):KEY128ī3120 : 16368,0 D KEY141ī3210:-- RDTA I,DTA I *  TITLE X (MPROG$)(NAME$)WIDTH(MPROG$):2020k WIDTH(NAME$)z I1WIDTH 3:I:"*" 8:I:"*" I 5:1:MPROG$ NAME$ TIME11500 *TIME 4 MENU 6000  NU$(I)DTA$ BI LMIN25; VMPROG$"CREATE-A-VENTURE"R `NAME$"BY G. CAGE"a jRTN$(13) tSPACE$" ":-- 4 SPACES ~TP5:-- TOP MARGIN OF MENU VERT5:-- STARTING VERT LINE # OF MENU. SAME AS TP. VLESS1VERT1 I768777 .MENU PROGRAM"5 778,0:-- ALLOWS TITLE SUB TO RUN? 22:W  INITIALIZATION i ARROW$"--> "x BELL$(7) D$(13)(4) ITEMS4:-- # ITEMS IN MENU MENU$(ITEMS2) LEFT1:-- LEFT MENU MARGIN $I1ITEMS2 .DTA$ 8ME-- CREATE-A-VENTURE,-- GARY CAGEF-- 5416 E. VERDE LN.a-- PHOENIX, AZ 85018{-- IN'CIDER, AUG.'83c MAIN PROGRAM d:n1000:-- INITx(778)0İ2000:-- TITLE3000:-- MENU "... END OF ";;MPROG$;"          "AA20((A$)2)$AA1);A$H(27);(66):(27);(54):::VA$"DATE"yA$;:X132(A$):(223);:X:::A$"TIME"A$;:X132(A$):(223);:X:::A$"LOCATION"A$;:X132(A$):(223);:X:: MENU$(NUM);" PROGRAM."2 D$;"RUN";MENU$(NUM)S 4000:3010:-- INSTRUCTIONSY o INSTRUCTIONS u14:"INSTRUCTIONS"14:"------------"34,25:" THIS PROGRAM ALLOWS YOU TO DESIGN YOUROWN ADVENTURES. BY SELECTI$;"IS THIS THE CHOICE YOU WANT (Y/N)? ";1 AN$ AN$"N"ĢVERT:LEFT:ARROW$;::MENU$(VERTVLESS1)::21:958:MENU$(I):MENU$(I1):3120 AN$"Y"ī3240 NUMVERTVLESS1 :4 NUM3300,3300,3330,3340 "NOW ";::" LOADING ":TN IS PRESSED! N KEY160ī3120L X VERT:LEFT:SPACE$;MENU$(VERTVLESS1)u b VERTVERT1:VERTTPITEMS1VERTTP l VERT:LEFT:ARROW$; v :MENU$(VERTVLESS1): 3120 VERT:LEFT:ARROW$; :MENU$(VERTVLESS1):( 21:1:958:BELL)(219)256:4:BELL$;"GAME), YOU MAY HAVE A":"DIFFICULT TIME IN WINNING.">|5000H34,0TVERTTPZx TO CONTINUE 22:9"PRESS TO CONTINUE ";AN$AN$RTN$ī5020o ERROR ROUTINE pERR(222) zLINE(218LL BE TO APPEASE THE MAINCHARACTER YOU DESIGNATED. TO DO THIS, YOU MUST BE IN POSSESSION OF ALL 5 OF THE OBJECTS YOU CHOSE IN THE 'CREATOR' PROGRAM."4r:" BECAUSE A CERTAIN AMOUNT OF RANDOMNESSHAS BEEN INTRODUCED (EVEN THOUGH YOU DESIGNED THE A MINIMUM OF":MIN;" LOCATIONS."*650000@7J5T" ONCE YOUR 'CREATOR' DATA IS STORED ON DISK, YOU MAY SELECT THE ";::"ADVENTURE":^"OPTION FROM THE MAIN MENU, WHICH WILL UTILIZE YOUR DATA FOR THE ACTUAL GAME."h:" THE OBJECT WIRIIODICALLY, ESPECIALLY IF YOU HAVE A LOT OF DATA TO ENTER."":" ALL THIS IS FINALLY SAVED TO DISK WITHA MAXIMUM 4 SECTORS USED FOR EVERY":"5 LOCATION (THAT'S APPROXIMATELY 1K)." ,"TO KEEP THE ACTUAL ADVENTURE INTERESTINGYOU WILL HAVE TO DESIGN CH OF THOSE. WHAT YOU SAY IS ENTIRELY UP TO YOU. YOU CAN'T USE COMMAS, COLONS OR QUOTES, HOWEVER."r5000x5<" THERE IS A OPTION THAT ALLOWSYOU TO TEMPORARILY SAVE TO DISK ALL YOURINFORMATION, WHICH IS A GOOD IDEA TO DO PE;::" OPTION FROM THE MAIN MENU, YOU"]"CAN TAILOR AN ADVENTURE TO SUIT YOUR TASTES.":" YOU WILL NEED TO PLAN OR MAP OUT YOUR ADVENTURE, DETERMINING THE NUMBER OF LOCATIONS, VARIOUS EXITS TO OTHER"h"LOCATIONS, AND DESCRIPTIONS OF EARAM." D$;"RUN";MENU$(NUM)? 4000:3010:-- INSTRUCTIONSE [ INSTRUCTIONS ay14:"INSTRUCTIONS"14:"------------"34,25&" THIS PROGRAM ALLOWS YOU TO DESIGN YOUROWN ADVENTURES. BY SELECTING THE"::"CREATOR"E YOU WANT (Y/N)? "; AN$} AN$"N"ĢVERT:LEFT:ARROW$;::MENU$(VERTVLESS1)::21:958:MENU$(I):MENU$(I1):3120 AN$"Y"ī3240 NUMVERTVLESS1 :4 NUM3300,3300,3330,3340 "NOW ";::" LOADING ": MENU$(NUM);" PROGKEY160ī31209 X VERT:LEFT:SPACE$;MENU$(VERTVLESS1)b b VERTVERT1:VERTTPITEMS1VERTTP{ l VERT:LEFT:ARROW$; v :MENU$(VERTVLESS1): 3120 VERT:LEFT:ARROW$ :MENU$(VERTVLESS1): 21:1:958:BELL$;"IS THIS THE CHOIC I1(MPROG$)5:"=";:I% TP4 I1ITEMSR LEFT(ARROW$):MENU$(I)Y Ik  21:MENU$(I){  MENU$(I1)  VERT:LEFT:ARROW$ & :MENU$(1): 0 KEY(16384):KEY128ī3120 : 16368,0 D KEY141ī3210:-- RTN IS PRESSED N I   TITLE F (MPROG$)(NAME$)WIDTH(MPROG$):2020Y WIDTH(NAME$)h I1WIDTHw 3:I:"*" 8:I:"*" I 5:I:MPROG$ NAME$ TIME11500 *TIME 4 MENU 6000 MPROG$;" MENU:" LMIN25) VMPROG$"CREATE-A-VENTURE"@ `NAME$"BY G. CAGE"O jRTN$(13)n tSPACE$" ":-- 4 SPACES ~TP5:-- TOP MARGIN OF MENU VERT5:-- STARTING VERT LINE # OF MENU. SAME AS TP. VLESS1VERT1 I768777 DTA I,DTA .MENU PROGRAM"5 778,0:-- ALLOWS TITLE SUB TO RUN? 22:W  INITIALIZATION i ARROW$"--> "x BELL$(7) D$(13)(4) ITEMS4:-- # ITEMS IN MENU MENU$(ITEMS2) LEFT1:-- LEFT MENU MARGIN $I1ITEMS2 .DTA$ BID:X132:(223);:X':::?X132:(223);:XK:::UXCR10fbX1CR::XxA$"435-1507"32(A$));A$A$"421-2825"32(A$));A$A$"489-7213" 32(A$));A$I$;"40N":D$;"PR#0"ĤҤҤԢԠӠŠŠϠŢؤĤΠؤĤŠؤ԰ĤŠؤ00 768130AW DATA FOR MACHINE LANG ERROR ROUTINE zX" ADVENTURE "," CREATOR "," INSTRUCTIONS "," QUIT "b"TAP SPACE BAR TO SCAN MENU."l" TAP TO CONFIRM CHOICE."v104,168,104,166,223,154,72,152,72,96ERROR #";ERR;" OCCURED AT LINE ";LINE;"."6);"PLEASE CONSULT THE 1978 APPLESOFT";7);"MANUAL (PG. 136) FOR FURTHER IN-";8);"FORMATION."216,0:778,0:--SEE LINE #7010:18:"* END *":22:TIME12500:TIMEVERTTP216,0:60(222) zLINE(218)(219)2561:4:BELL$;ERR6ĺ"THAT PROGRAM IS NOT ON THIS DISK. PLEASEINSERT THE CORRECT ONE AND TRY AGAIN.":6090ERR8ĺ"THERE IS A PROBLEM WITH THE DISK. PLEASEMAKE SURE IT IS INSERTED CORRECTLY.":6090)"NOTE: YOU DESIGNED THE GAME), YOU MAY HAVE A":"DIFFICULT TIME IN WINNING."R|5000\34,0hVERTTPn TO CONTINUE 22:9"PRESS TO CONTINUE ";AN$AN$RTN$ī5020o ERROR ROUTINE pERR:" THE OBJECT WILL BE TO APPEASE THE MAINCHARACTER YOU DESIGNATED. TO DO THIS, YOU MUST BE IN POSSESSION OF ALL 5 OF THE OBJECTS YOU CHOSE IN THE 'CREATOR' PROGRAM."Hr:" BECAUSE A CERTAIN AMOUNT OF RANDOMNESSHAS BEEN INTRODUCED (EVEN THOUGH WILL HAVE TO DESIGN A MINIMUM OF":MIN;" LOCATIONS.">65000D@KJ5T" ONCE YOUR 'CREATOR' DATA IS STORED ON DISK, YOU MAY SELECT THE ";::"ADVENTURE":^"OPTION FROM THE MAIN MENU, WHICH WILL UTILIZE YOUR DATA FOR THE ACTUAL GAME."hA GOOD IDEA TO DO PERIIODICALLY, ESPECIALLY IF YOU HAVE A LOT OF DATA TO ENTER."":" ALL THIS IS FINALLY SAVED TO DISK WITHA MAXIMUM 4 SECTORS USED FOR EVERY":"5 LOCATION (THAT'S APPROXIMATELY 1K)."4,"TO KEEP THE ACTUAL ADVENTURE INTERESTINGYOU D DESCRIPTIONS OF EACH OF THOSE. WHAT YOU SAY IS ENTIRELY UP TO YOU. YOU CAN'T USE COMMAS, COLONS OR QUOTES, HOWEVER."50005P" THERE IS A OPTION THAT ALLOWSYOU TO TEMPORARILY SAVE TO DISK ALL YOURINFORMATION, WHICH IS NG THE"::"CREATOR";::" OPTION FROM THE MAIN MENU, YOU"q"CAN TAILOR AN ADVENTURE TO SUIT YOUR TASTES.":" YOU WILL NEED TO PLAN OR MAP OUT YOUR ADVENTURE, DETERMINING THE NUMBER OF LOCATIONS, VARIOUS EXITS TO OTHER"|"LOCATIONS, ANT"THIS IS DAY ";J;". HOW MANY ADVERTISING":"SIGNS DO YOU WISH TO MAKE";`A5A51oA521060~A5110101040"(EACH SIGN WILL COST YOU ";A;" CENTS,":"BUT THEY ARE ONLY GOOD FOR ONE DAY)"1060d"IT IS A GOOD IDEA T(A$,1)A$"Y"690&A$"N"915>"YES OR NO PLEASE"G890WC$"Y"950"WOULD YOU LIKE TO TRY MAKING SOME SIGNS TO ADVERTISE YOUR BUSINESS";C$C$(C$,1)C$"N"840C$"Y"950"YES OR NO PLEASE"930HEIR FRIENDS AND NOT TO SPEND ANY MONEY FOR ADVERTISING."EHA(J)0OR1070\\JD870jaA50920sb970f" DO YOU WANT TO HAVE A SALE AND LOWER YOUR PRICE FOR THIS LAST DAY IN ORDER TOSELL OUT THE ";N;" PLANTS YOU HAVE LEFT.":A$A$TO CHARGE FOR EACH TOMATO PLANT")P1/M - CALCULATE NUMBER SOLD[P1P770nN1P2N9P12w780N1(PP1)P.8N9N9 JD970J1D J1860*:4"YOUR CLASS DECIDES TO ADVERTISE ON THE FIRST DAY BY TELLING TZERS, AND OTHER":"EXPENSES EQUAL ";C5;" CENTS PER PLANT."uE1E100:E1$(E1):E$"$"(E1$,(E1$)2)"."(E1$,2)"THIS MEANS THAT YOU HAVE EXPENSES BEFOREYOU START SELLING YOUR ";N;" PLANTS OF ";E$!"WHAT PRICE (IN CENTS) ARE YOU GOING TRY THAT PROGRAM FIRST."#01610):/DjN"WHAT NAME DO YOU WISH TO GIVE TO YOUR PLANT STORE"rXN$xbl"YOU HAVE ";N;" TOMATO PLANTS TO SELL AND":D;" DAYS OF SELLING TIME.":v"YOUR FIXED EXPENSES FOR SEEDS,":"CONTAINERS, FERTILI!"ARE YOU READY TO START";*2552A$AA$(A$,1)QA$"Y"580a A$"N"530~ "YES OR NO PLEASE":510"PERHAPS YOU SHOULD ASK YOUR TEACHER FOR HELP. IF YOU HAVE NOT RUN THE PROGRAM 'SELLAPPLES', YOU MAY WANT TO GO BACK AND ON THE FIRST DAY, YOU SET""YOUR SELLING PRICE AND ON EACH OF THE NEXT DAYS, YOU DECIDE HOW MANY NEW":"ADVERTISING SIGNS YOU WISH TO MAKE.""YOUR GOAL IS TO SELL ALL OF YOUR PLANTS,BUT STILL RAISE AS MUCH MONEY AS YOU CANFOR YOUR CLASS." WILL CALL 'TOMATOESVILLE'.""YOUR CLASS HAS PLANTED AND RAISED ";N:"TOMATO PLANTS AS A SCIENCE PROJECT, AND NOW YOU ARE GOING TO START A BUSINESS""TO SELL THE PLANTS AND RAISE MONEY FOR YOUR CLASS. YOU HAVE ";D;" DAYS TO SELL":"YOUR PLANTS.) ^A$"N"580! _A$"Y"358* `3403 f100 h"THIS IS A COMPUTER SIMULATION OF A":"BUSINESS TO SELL TOMATO PLANTS. THE MAIN PURPOSE IS TO LET YOU FIND THE BESTWAY TO ADVERTISE YOUR PRODUCT.""IMAGINE YOU ARE IN THE SCHOOL IN A TOWN WEASE THE EFFECTS OF FIRST SIGNS] "C21: - INCREASE TO INCREASE THE TOP LIMIT OF NUMBER SOLDl ,ENC5.01~ 6B$"YES"620 ;: @10);"THE TOMATO PLANT STORE" E J"DO YOU NEED AN INTRODUCTION TO"::15);"SELLPLANTS" TA$ YA$(A$,1 NUMBER OF DAYS TO SELL PLANTSN C53: - COST FOR RAISING EACH TOMATO PLANT~ A25: - THE PRICE OF EACH ADVERTISING SIGN P9 N9125: - THE NUMBER WITH NO ADVERTISING AT THE $BEST PRICE$ S0 I0 J0 C.15: - INCREASE TO INCRENG ON A BUSINESS.I FOR A COMPLETE EXPLANATION, BACKGROUND MATERIALS, AND SUGGESTIONS FOR USING THESE PROGRAMS, OBTAIN THE RESOURCE MATERIALS "SELL" FROM MECC. INITIALIZING VARIABLES N1000: - NUMBER OF PLANTS TO SELL D5: - A 4 PROGRAM "SELL" SERIES FOR ELEMENTARYa n STUDENTS DEVELOPED BY BOB JAMISON, ALEXANDRIA, MN x FOR MECC UNDER THE MECC UNIVAC MINI-GRANT PROGRAM. THE MAIN PRUPOSE OF THIS PROGRAM IS TO HAVE STUDENTS INVESTIGATE THE EFFECTS OF ADVERTISI3 PROGRAM NAME---> SELLP VERSION 10/13/77k ALTERNATE NAMES UNIVAC: SELLPLANTS AUTHOR: BOB JAMISON( CDC CYBER 70/73-26 BASIC 3.12 DOCUMENTATION AVAILABLE FROM MECC UNDER NAME: SELL) d PROGRAM 2 OF      )!5);"PLANTS SOLD";25);N2$'[E1$(E1):E1$"$"(E1$,(E1$)2)"."(E1$,2)5)"SIGN EXPENSES";30(E1$))J1000ER 70/73-26 BASIC 3.12 DOCUMENTATION AVAILABLE FROM MECC UNDER NAME: SELL) d PROGRAM 2 OF ";J;" FINANCIAL REPORT FOR "420(N$)2);N$:BP2P1.01uP2$(P2):P2$"$"(P2$,(P2$)2)"."(P2$,2)5);"PRICE";25);P2$A$(J)(A(J)):A$(J)(" "A$(J),3)5);"ADVERTISING SIGNS";25);A$(J)N2$(N2):N2$(" "N2$,3O TRY A DIFFERENT NUMBER OF SIGNS EACH DAY, SO YOU CAN FIND THE BEST NUMBER OF SIGNS TO MAKE."n$A(J).N2(N1N1(1(A(J)C)C2))8N2N1100BN2NLI1N2P1.01VE1A(J)A.01`III1jEEE1tPIE~NNN2"DAY-- MAGIC SQUARE DANCE/-- J.J.TAYLORH-- CALL -A.P.P.L.E.Y-- SEP. '83 -- MAGIC SQUARE DANCE BY J TAYLOR CALL -A.P.P.L.E.X(16),Y(16),A(16)COUNT0(I116:X(I):2I116:Y(I): <  !!"AN$"R"ĺ"RETURN":D$;"RUN";MPROG$;".MENU"e AN$"O"NUEFALSE:DISK1:8000:2090:--DISK ROUTINEAN$"N"NUETRUE:2090 2040*42:L40$;>34,2H TITLE/AUTHOR QUERY   CSFALSE:1:868:HEAD$ H12:HHH:HRIX),S%(MAX),U%(MAX),W%(MAX) 27  NEW/OLD SETUP w 6:"DO YOU WISH TO CHANGE AN ";::"OLD";::" ADVENTURE," "CREATE A ";::"NEW";::" ADVENTURE, OR" :"RETURN";::" TO THE MAIN MENU PROGRAM?" 10:15:"(O/N/R): "; AN$+G$"CREATE-A-VENTURE"9 HEAD$MPROG$" CREATOR PROGRAM"H RTN$(13)T I110^ DTA$o OBJ$(I)DTA$v I TRUE1 TSFALSE ZEROFALSE 778,255:-- >0 KEEPS TITLE OF MENU FROM PRINTING (D%(MAX),E%(MAX),LD$(MAX),LN$(MAX),N%(MAS$"CTRL : SAVE CURRENT DATA TO DISK"; 8D$(13)(4)F BDISK1R LFALSE0q VL160$"":L40$"":SPACE$""~ `I1160 jL160$L160$(95) tSPACE$SPACE$" " ~I L20$(L160$,20) I140 L40$L40$"-" I MAX100 MPRO "... OR ANY OTHER KEY TO END PROGRAM: ";5 AN${ "AN$RTN$Ĺ776,0:::"END OF CREATOR PROGRAM FOR":MPROG$:22: ,D$;"RUN";MPROG$  INITIALIZATION 14000 I768777 DTA I,DTA I BELL$(7) $BS$(8)) .CFALSEī230$ 3500:--# LOCATIONS8 NUEFALSEī230O 4000:--LOCATIONSc NUEFALSEī230v 5000:--EXITS NUEFALSEī230 6000:--OBJECTS 7000:--CHANGES? 8000:--DISK ROUTINE :"TAP TO RETURN TO MENU.",V+-- CREATOR SUBPROGRAM.-- GARY CAGEH-- 5416 E. VERDE LN.c-- PHOENIX, AZ 85018}-- IN'CIDER, AUG.'83c MAIN PROGRAM d:n1000:--INITx2000:--NEW/OLD SET UPNUEFALSEī2303000:--TITLE/AUTHOR NUE            !!! ! ! ! ! """ " " " " "     3):(255); (26):(255);5 A$(A(I)):A(A$)S A2Ė(HT14):A(I);:240l A1Ė(HT15):A(I);x HTHT3 I4I8I12HT1::  :::" IN A 4X4 CELL MAGIC SQUARE THE SUM OF" :" ANY SIDE, HORIZONTAL, VERTICAL OR " "I116:A(I)::- SQUARES DATA( FHT10 P:D Z(1):(11):650| d(11):(255);:"MAGIC SQUARE NO.";COUNT1;:(255) n(11):650 x(4):(12) S192 (S4):(14) 640 (6) I116:: SQUARE TO TEXT SCREEN (HT1HANGE"#`6);"'*' FOR NO CHANGE".j10000\tKEY195ĢVV:H:(L160$,((MAX))):3590p~KEY170ī3690|I122I LOCATION QUERY CSTRUE:1:868:CS$CHANGE0H12:V7:NV4:NH4L1:MIN1:MAXNL(L160$,((MAX)))% NUETRUEī3590A VV:H:868:NL%:3630ZRANGE0:VV:H:9000e11000RANGE1NL%MIN:3580$NL%(A$).20:1:958:"CHANGES (Y/N)? ";8AN$BAN$"N"ī3720LAN$"Y"ī3640V20:1:"PRESS 'C' FOR C3170 3250 I122  ' I- H # LOCATIONS QUERY N k CSFALSE:1:868:HEAD$~ MIN25:MAX100 H19:HHH:HRIGHTH((MAX)):V6 V:"THE NUMBER OF LOCATIONS TO BE USED FOR" TITLE$;"?" VVV5:VV:16:"-> "; 6);"'*' FOR NO CHANGES": 10000:--READ KEYBOARDM KEY170ī3310 KEY193VVV3:VV:H:L20$:VV:H:9000:AUTHER$A$:3170 KEY195VVV6:VV:H:L20$:VV:H:9000:MCHAR$A$:3170 KEY212VVV:V:H:L20$:V:H:9000:TITLE$A$:: VVV3:VV:H:9000&D AUTHER$A$>N VVV6:VV:H:9000LX MCHAR$A$qb 20:1:958:"CHANGES (Y/N)? ";zl AN$v AN$"N"ī3310 AN$"Y"ī3180 20:1:958:"PRESS 'T' FOR TITLE" 6);"'A' FOR AUTHOR" 6);"'C' FOR CHARACTER"GHTH(L20$):V8+ V:"TITLE:";5);L20$H V3:"AUTHOR:";4);L20$m V5:"MAIN":"CHARACTER: ";L20$ NUETRUEī3110 V:H:TITLE$ V3:H:AUTHER$ V6:H:MCHAR$ 3170& VVV:V:H:9000:--GET ANSWER ROUTINE0 TITLE$A$:" WILL TOTAL 34."L ,(9):(24)::" ANY KEY TO CONTINUE ";:` 6(24):(31):Q$ @(1):(21):" PLOT ALL PLOT EVEN PLOT ODD" J" -NUMBERS------NUMBERS------NUMBERS-" T:3 ^10,4090,4090,12010,12010,40 h100,40NV:H:868:I/JCHANGE0ĴCHANGE4200,4230ATV:H5:L20$T^V5:1:L160$hVVV:HHH5:HRIGHTHH(L20$):VV:HH:CHANGE0ĺL20$:VV:HHr9000|LN$(I)A$:CHANGE0ī4290VVV5:HH1:HRIGHTHH(L160$):VV:HH:CHANGE0ĺL160$:VV:%STARTL:FINISHNL%.NV:"LOCATION #"NV:"LOCATION NAME: ";L20$gV3:"DESCRIPTION:"wV5:L160$NUETRUEī4150NV:H:868:LV:H5:868:LN$(L)"V5:1:SPACE$:V5:1:LD$(L),43206ISTARTFINISH@180,40180,120100,120100,40H r190,40270,40270,120190,120190,40~ |I116:X(I),Y(I):X(I)90,Y(I):X(I)180,Y(I): I116:- PLOT ALL A(I)1ēX(I),Y(I):420  L216 J116 A(J)LēX(J),Y(J) J:L I116:0:1:958'v"WHICH LOCATION #? ";A$A11000:RANGE1ī4460ML(A$)W4110cI122ipIv EXITS QUERY CSTRUE:1:868:CS$MIN0:MAXNL%LINE$(L160$,((MAX)))H8:HHH:HRIGHTH(LINE$) VER"$6);"'N' FOR LOCATION NAME"C6);"'D' FOR DESCRIPTION"a&6);"'*' FOR NO CHANGES"l010000:KEY170ī4510DKEY196KEY206STARTL:FINISHLNKEY196CHANGE2:4150XKEY206CHANGE1:4150bKEY163ī4400 lRANGE0:2HH 9000LD$(I)A$>VV:HH:SPACE$:VV:HH:LD$(I)RCHANGE0ī4290ZLIgCHANGE0uFRIE(0)|I20:1:958:"CHANGES (Y/N)? ";AN$AN$"N"ī4510AN$"Y"ī433020:1:958:"PRESS '#' FOR LOCATION NUMB$bCOUNTCOUNT1"lCOUNT8Ā*v60CI113:(255);::^I119:(255);:::d20,40,60,80,20,40,60,80,20,40,60,80,20,40,60,80,50,50,50,50,70,70,70,70,90,90,90,90,110,110,110,110: X,Y COORDINATES FOR HI-RES<10,11,8,5,6,7,12- PLOT EVEN* A(I)2ēX(I)90,Y(I):4900 > L4162J J116e A(J)LēX(J)90,Y(J)o J:L I116:- PLOT ODD A(I)1ēX(I)180,Y(I):560 & 0L3162 :J116 DA(J)LēX(J)180,Y(J) NJ:LX(24):(30):QSTARTL:FINISHL:MIN0:52100 KEY163ī5560A 20:1:958S MIN1:RANGE0p "WHICH LOCATION #? ";A$ 11000:RANGE1ī5600 L(A$) 5160 I122 & 0I : o OBJECT QUERY p z1:868:HEAD$!N11:N21:V0 ^LIhI5r20:1:958:"CHANGES (Y/N)? ";>|AN$QAN$"N"ī5660eAN$"Y"ī550020:1:958:"PRESS '#' FOR LOCATION NUMBER"6);"'E' TO CHANGE EXITS"6);"'*' FOR NO CHANGES"10000KEY170ī5660 KEY19700:RANGE1(A$)IĢVV:H:LINE$:5390>"12000:U%(I)(A$)^,RANGE0:VVV5:VV:H:9000611000:RANGE1(A$)IĢVV:H:LINE$:5420@12000:D%(I)(A$)JN%(I)0W%(I)0S%(I)0E%(I)0U%(I)0D%(I)0İ13000TZEROTRUEZEROFALSE:523(I)(A$))RANGE0:VVV2:VV:H:9000Y11000:RANGE1(A$)IĢVV:H:LINE$:5330p12000:S%(I)(A$)RANGE0:VVV3:VV:H:900011000:RANGE1(A$)IĢVV:H:LINE$:536012000:E%(I)(A$)RANGE0:VVV4:VV:H:9000'110" ";LN$(I);" ":nII05*xVII:H5LINE$=II[RANGE0:VVV:VV:H:900011000:RANGE1(A$)IĢVV:H:LINE$:527012000:N%(I)(A$)RANGE0:VVV1:VV:H:900011000:RANGE1(A$)IĢVV:H:LINE$:5300 12000:W%P :""DOWN :"(NUETRUEī5210V(NV:NH:868:L;" ";::" ";LN$(L);" ":}2V:H:868:N%(L):H:868:W%(L)<H:868:S%(L):H:868:E%(L)FH:868:U%(L):H:868:D%(L)P5490ZISTARTFINISHdNV:NH:868:I;" ";::12:NV9:NH11(L1:STARTL:FINISHNL%V8:"EXITS (TYPE LOCATION # THAT EACH":" LEADS TO, OR TYPE '0' TO INDICATE THAT THERE IS NO EXIT IN THAT DIRECTION):"NV:"LOCATION #"V:"NORTH:""WEST :""SOUTH:""EAST :" "U,9,15,14,1,4,3,2,13,16: DATA FOR SELECTION OF MAGIC SQUARESh16,3,2,13,5,10,11,8,9,6,7,12,4,15,14,17,12,1,14,2,13,8,11,16,3,10,5,9,6,15,41,8,13,12,14,11,2,7,4,5,16,9,15,10,3,616,2,3,13,5,11,10,8,9,7,6,12,4,14,15,17,12,9,6,14,1,(D$;"WRITE";PROG$&( CK1ī82502( TITLE$?( AUTHER$K(& MCHAR$(0 CK0CK1:D$;"CLOSE":PROG$"^"MPROG$".DATA":8140(: NL%(D II1NL%(N LN$(II):LD$(II)(X N%(II):W%(II):S%(II):E%(II):U%(II):D%(II)(b II(l II110)v DRIVE #1"0':6:"2. PRESS TO SAVE"Z':6:"3. ANY OTHER KEY TO RETURN: ";c'AN$w'AN$RTN$ī8140':230''8:1:"NOW ";::" SAVING ";::PROG$;" TO DISK."'D$;"OPEN";PROG$'D$;"DELETE";PROG$(D$;"OPEN";PROG$-OBJECTS&\DISK0&f0&> DISK ROUTINES J&? 1. DISK=0 (SAVE) h&@PROG$"^"MPROG$".TITLE"q&JCK0w&T&^1:868:HEAD$&hL40$;&r4&|DISK1ī8500:--READ&"TO SAVE ";MPROG$:" DATA TO DISK:" '::6:"1. INSERT DISK INTOJUST THE SAME." %33,40:32,0(%20;%"NUMBER -> ";D%AN$R%AN(AN$)g% AN1AN6ī7160s%AN6ġ% AN7210,7220,7230,7240,7250,7260%*140:--TITLE/AUTHOR%4160:--# LOCATIONS%>180:--LOCATIONS%H200: --EXITS&R220: -E TO CORRECT ANY SECTION:"+$33,36:32,42$6I$"1. TITLE/AUTHOR"i$:"2. NUMBER OF LOCATIONS"$:"3. DESCRIPTIONS OF LOCATIONS"$:"4. EXITS OF LOCATIONS"$:"5. OBJECTS"%:"6. NO, I DON'T NEED TO CORRECT";9);"A THING. THANKS ~I1102#OBJ%(I)0ĺN2;". ";OBJ$(I):N2N219#ID#20:1\#"CHANGES (Y/N)? ";e#AN$x#AN$"Y"ī6000#AN$"N"ī6320#I122##I##W CHANGES? #X#b1:868:HEAD$#lNUEFALSE#v4$"WOULD YOU LIK):1":AN$;".":3"OBJ%((AN$)64)0ī6220D"$20:1:958v".BELL$;"SORRY, YOU HAVE ALREADY CHOSEN THAT.""8TIME11500:TIME"B6110"LOBJ%((AN$)64)0"VN1N11:N15ī6110"`"j:"THESE ARE THE OBJECTS YOU CHOSE:""t6 #8 !I110!OBJ%(I)1#!Ip!V4:"CHOOSE 5 OF THE FOLLOWING THAT YOU WISH TO APPEAR IN ";TITLE$;":"w!V!I110!(64I);". ";OBJ$(I)!I!20:1:958!"LETTER -> ";!AN$!AN$"A"AN$"J"ī6130"(AN$)(65V