' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]L L}BBL]렮 鷎귭෍ᷩ췩緈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,&"_]` L/浍굺L  !"#$%&'()*+,-./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#0EB 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`   vLDcpq` [` ~  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 iõ`  \ 濭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-(D 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䵍䵐`"L ŵ8ŵH ~(`F d ֠z# u`z!#????     Ơ@ŠĠĠǮԠ ϮԠϠ Ϡ ҠϮà Юʠٮʠȸ͠s@`p0  80`@p300p0030\xppฮ|@@`p8p`p|Օ@p`p8`p p pxฮB|p p `?``Օa@: @@8`7 7 S S S S 0p06 p@9 `88 0<710 @# Ff@@~~" 8p`@@@@@@`p0? @@@`p8@s0`@xy?``? 80p``@@@@@``00 x x x8` |  c``ag# #  ??# g``c```g7  LLOLLL  XpxC `0 @!~cffc```@x | Cx q33s3331!`?@xx윀@8yյCp@0800OꚆa`8~ 0`@``յC@@`0 ``Ꚇa F~~8`8`ccffc``agCffCaGqCf`fC`xN<8`@?`@@@ppqx@|뛇p``0 ?`?@յ|?``?px x xꚆaxx x @@յC?`xppꚆ` ! S S pp07 8`: @p9 8>30 @$ FfF@ #  0`@@@@`0? @@`0 a303a `08  0p`@q30p0031 Xp    (0 Zнй`)JJ & & f)` 16299,0I PZ12500:Z:::11:5:"LOADING FLASH SPELL HELICOPTER":V Z30000,0g (4);"RUNF"m  o 1010.230,32:62450:230,64:624506 :Q(4);"BLOAD UNPACKER"jLOC24831:UNPACK768#0,LOC((LOC256)256):1,(LOC256)$230,64((4);"BLOAD LOGO.PAC,A"LOC2UNPACK<4:0,110,1 F16304,0:16297,0:16302,0:   (4);"RUN LOGO" )30000,04 1000e10:7::"LOADING FLASH SPELL HELICOPTER":r"RUNF"x:]ժժժn{*ЂЂԪՂՂՂՂՂՂՂժժժժժժժժժժԪժԪՊЪՂ000@xժԪ ‚ЊЪժժժժԪՀЪՀժժժȂȀԀԂЪՊՊՊժժժժՊժԊjx,ԪՂЪՂՂP ЂԊԊЂ@p0ԪժժՀԀPժՂЪժЂЂՂՀ :d @`pxxp`@ЪЪ @* U U@* ՂՂ((*@*@**(( P     L+--0%-&`-LL-`KLL9gGȱgHIJI8IJIgJȑg`GgHȑg` "  ??" g```c```g6 : ?`@`?p@6 6 S 2aՀ  p333s3330?`C@`?x@!`yp`p 00``@@@@@``p08 p ppp@ |  accca``cf"aՀ `p8꺎C  LLLOLLL \xp ս Հ x~~`p8~C @agfga```@@p | x8p@?`@@`??`@`?`88`8axxx켌@yYa8`8008O@ฮ꺎C @p~8p`@@@@ ꊂx ՟~||p@p@1ƚagfga``cfgfgccg`g@p|HOPS COURSEWARE ":14:"COPYRIGHT 1983" x32,2:33,36:34,2:35,21:18:2330:16368,0:ST(30000):2380:R0:SLOT1:QQ(0):ST1430 IF ST THEN 655 MENU :6:4:"WOULD YOU LIKE TO:";::" ": 7:6:"1) FLASH SPELL PROGRAM" 300),WE$(300),WN(300),DD$(20),T(1):QO$(34):LD0:IT0:Z958c 2:T140:T:1:" ";:23:" ";: <T123:1:T:" ";:40:" ";: F:10:6:"FLASH SPELL HELICOPTER"( P8:20:"BY ":16:"MARK APPEL ":17:"DON ROSS ":4:"MICROCOMPUTER WORKS FIXED UNDEF STMT ERR IN 1890 10/18/84 - LIMIT DICTIONARY LEN FIX OTHER NUMEROUS DEFECTS 10/22/84 - FIX RND BUG LINE#1910 NOTE:IF LINES 11->1910 DISAPPEAR TYPE: CALL 771 16151,0:255 1970= (:WD$(300),WR$(> " FLASH SPELL HELICOPTER WRITTEN BY MARK S APPEL REVISION HISTORY: REVISED BY JON PAUL 9/20/84 - TYPOS IN CREATE DICT. 10/15/84 - CHANGED NAME ROUTINE TO GET- AVOIDS UPPER CASE BUG (#1440-1478) " 10/16/84 -                    JJJJJJJJJJJJJJJJJJJJJJJ MKLLJJJJJJKKKIIIIIIIIIIKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKDJJJJJJJJJJJJJJJJJJJJJJJJJ MMMMMMMMMMKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKMKKKKIKIIIIKUUUUUKKUMKKMKKMKUUKKIJJJJKKKMJJKKKJJJM DIDY COPTER3Y COPTERN ONE MOVE@kJrJ^JJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJNMIIIIIIJJJJMMMMIIIJJKKKKMMMMMMMMMMMMMMM@ UKIIKKKKKIIIKIKKKKIKIKKKIIKUKUMMMKKJJJJKKKKKDKDKD200KDDDDDDDDDD JJJJJJJJJJJJJJJJJJ(((((((((((((((((((((((((((PPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPP%? 48< $(,048"&*.26:>#'+/37;?#'+/37;? $(,048< $(,048"&*.26:>#'+/37;?#'+/37;? $(,048< $(,048"&*.26:>#'+/37;?#'+/37;?(((((N$e+NeN2e9NNNN@@A@AB@ABC@ABCD@ABCDE@ABCDEF $(,0L̐`@L̐ ``<@ }@0 `ȹL; @9L̐@LL) e)J)) 0L  L-. -.`e ȹ  ȱej_ek`  (1) Q ĥ ` ȹ   ( ӥ `ժժժժժժՊժՂԪՀ` ` ` pժЪժժժժժՂЪժՂЪժՂժՂժժժժ@@@`< ժЪЪԫժժժժժԪժՀԪժՀЪժЪժժժժ000xԀԀժՀՀՀՀՀՀՀժժժժժժЪժЪժՊ @ @ @`ժкЪЪЪժժժժժժժժժՊժՂժՀժ<@ժԪԪԪԪժՊժՊժՊժՊժՂժՀժժ```pЪՊԊԊՊ݊ՊՊժժժժժժԪժ0:A$NM$:11:Z:12:7:"IS "QO$;A$;QO$:14:7:"CORRECT (Y/N) ?";::" ":b1920:P$"N"1160tP$"Y"1180WD$(A)A$:10902840:A$C$".DICT":8:Z:8:7:"SAVING, PLEASE WAIT . . .":"OPEN"A$:"WRITE"A$:NW$(NW):NW$:T1NW:WD$(T): # "A":":10:7:QO$;WD$(A);QO$:12:7:"EDIT THIS WORD (Y/N) ?";::" ":aj1920:P$"Y"1160stP$"N"1130}~110012:Z:14:7:"PRESS '*' TO EXIT":12:7:"CHANGE TO: ";:JP$NM$:JP14:1475:A$NM$:NM$JP$:(A$,1)"*"1100KNM$A$:279"E")(P$"S")1060.8(P$"S")İ620:1240QB:6:7::"EDIT DICTIONARY":L8:Z:8:7:"ENTER THE NUMBER OF":10:7:"THE WORD TO EDIT OR":12:7:QO$"0"QO$" TO EXIT (1-"NW") ";:NQ$:A(NQ$):A11240VANWA0:1100J`8:Z:8:7:"WORDDIT":"ADD TO, OR SORT (0 TO QUIT)";:": ";A$:(A$"")1010M(A$"0")970p(A$)0(A$)ND(A$)01010A$DD$((A$)):C$A$::7:8:"LOADING . . . . .":30108:Z:8:7:"EDIT/ADD/SORT (E/A/S) ?";::" ":$1920:P$"A"1250.(P$9302900:RT900/A$C$:SV1:NW0:1250P EDIT/ADD/SORT DICTIONARY :6:7::"EDIT/ADD/SORT DICTIONARY"::8:7:"CORRECT SELECTION (Y/N) ?";::" ":1920:P$"N"140P$"Y"990;:2860:"ENTER THE NUMBER OF THE FILE TO EER THE NAME OF THE NEW DICTIONARY":"('*' TO QUIT): ";:JP$NM$:JP13:1475:A$NM$:NM$JP$n(A$,1)"*"730:7:6::"CREATE A DICTIONARY"::8:7:"IS THE NAME":10:7:QO$;A$;QO$:12:7:"OK (Y/N) ?";::" ":1920:P$"N"880P$"Y"ONARY"::"WANT TO DELETE (0 TO QUIT)";:": ";A$:(A$"")810N4(A$)0730h>(A$)ND(A$)0810zHA$DD$((A$))R3070:RTA$A$".DICT":"DELETE"A$:730\RTRT0:810f730p: CREATE A DICTIONARYzND163140Y2860:"ENT8:"CORRECT SELECTION (Y/N) ?";::" ":?1920:P$"N"140PP$"Y"7508:Z:8:7:"CREATE OR DELETE (C/D) ?";::" ": 1920:P$"C"880P$"D"780 :6:7::"DELETE A DICTIONARY":=*:2860:"ENTER THE NUMBER OF THE DICTI(A2):BNWAXE1B:FAE:WD$(E)WD$(F)FL1:G$WD$(E):WD$(E)WD$(F):WD$(F)G$:720_EqFLFL0:660~A1650771TT:50,T(T):8:33:"*":670 CREATE/DELETE A DICTIONARY ):7:6::"CREATE/DELETE A DICT."::7:8:"WOULD YOU LIKE TO HAVE":7:10:"THE DICTIONARY SORTED":7:12:"ALPHABETICALLY (Y/N) ?";::" ":}X1920:P$"N"140bP$"Y"600l8:Z:7:8:"SORTING, PLEASE WAIT . . (";::"*";::")"v768ANW:FL0:T0:T(1)63:T(0)255 A"PR#1":1002:Q1NW24(Q2)Q2Ė20:560;&1P0WN(Q)"."WD$(Q);c1WN(Q1)0565l2570520:WN(Q1)"."WD$(Q1):1:Q:(13)(4)"PR#0":1002D7:20::"PLEASE PRESS A KEY"::1920::250gN7:6::"LIST DICTIONARY"::7:20:P$"Q"250!P$(13)390P8:Z:8:7:"PRINTING, PLEASE WAIT . . ."Y530q:T0:Q1NW:TT1T9Ė17:3:500(T8)Ė17WN(Q)"."WD$(Q):(T16)(QNW)Ė5:20::"PRESS A KEY FOR NEXT PAGE"::1920:T0:Q:580. . .":3010_T7:8:Z:"WOULD YOU LIKE THE":7:10:"LIST ON THE PRINTER (Y/N) ?";::" ":i^1920hP$"N"SLOT0:470rP$"Y"350|8:Z:7:8:"PRESS "QO$"RETURN"QO$" WHEN PRINTER IS":7:10:"READY OR ";QO$;"Q";QO$;" TO QUIT."19:8:"CORRECT SELECTION (Y/N) ?";::" ":@1920:P$"N"140Q"P$"Y"280[,28606"ENTER THE NUMBER OF THE DICTIONARY"::"TO LIST (0 TO QUIT)";:": ";A$:A$""(A$)ND(A$)0300@((A$)0)250 JA$DD$((A$))::7:8:"LOADING . . 210 P(P$) 24:4:P;I P1380,250,970,730,2060,241,2480,2240 :6:6::"INSTRUCTIONS"::8:6:"CORRECT SELECTION (Y/N) ?";::" ": 1920:P$"N"150:P$"Y"2600:242 LIST DICTIONARY :7:6::"LIST DICTIONARY":*77:8:"2) LIST DICTIONARY"l 7:10:"3) EDIT/ADD/SORT DICTIONARY":7:12:"4) CREATE/DELETE A DICTIONARY" 7:14:"5) RENAME A DICTIONARY":7:16:"6) INSTRUCTIONS" 7:18:"7) UPDATE PASSWORD":7:20:"8) EXIT PROGRAM" 1920:P$"1"P$"8"LEASE PRESS A KEY"::1920+NCė:8:7:"LOADING GAME":10:7:"PLEASE WAIT . . .":768,C10:T1(NM$):T768,((NM$,T,1))::T768,0:103,1:104,96:24576,0:"RUNGAME":,X4:Z:8:7:"WOULD YOU LIKE TO SPELL":10:7:"MORE WORDS (Y/N) ?";::" :20:9:"PLEASE PRESS A KEY":/*1920:1790*6:Z:6:7:"PRINTING, PLEASE WAIT . . .":"PR#1":"MISSPELLED WORDS - "NM$" ":T1M1:T"."WR$(T)::"PR#0":1002:1870*&:Q1M1:Q11ĢQ5*0Q10ĢQ5:17*:Q"."WR$(Q):+D20:2::"P2750:JP49408:((JP5)56(JP7)24)((JP5)72(JP7)72)((JP23)201(JP55)207(JP76)234)1823*6:Z:6:5:NM$", I CAN'T FIND A ":5:"PRINTER CARD IN SLOT #1. ":5:"IF ONE IS THERE, MAKE SURE ":5:"THAT IT IS CONNECTED PROPERLY."::"THE WORDS THAT YOU":7:12:"MISSPELLED (Y/N) ?";::" ":T(1920:P$"N"1870f(P$"Y"1770(6:Z:8:7:"WOULD YOU LIKE THE":7:10:"LIST ON THE SCREEN":7:12:"OR THE PRINTER (S/P) ?";::" ":(1920:P$"S"1830(P$"P"1800o)AVE SPELLED "C1$:8:7:A$" CORRECTLY ON THE":10:7:"FIRST TRY. YOU RECEIVE":12:7:C10" SECONDS OF HELICOPTER":14:7:"(GAME) TIME."'16:7:16368,0::"PLEASE PRESS A KEY"::1920:6:Z:(M10)1870=(8:7:"WOULD YOU LIKE A LIST OF":7:10((1)4)1:R$::11:Z:12:5:"THAT'S CORRECT, "NM$"!":14:5:R$" ANSWER!":T12000::CC1x&WWMM1:WW0:CC1&PWS1710&PW&C1A$"WORD":C1$(C):1740&C0A$"NOTHING":C1$"":1740&A$"WORDS":C1$(C)':6:7:"YOU HP$NM$:JP14:1475:B$NM$:NM$JP$:B$""1630>%hB$"N"1710N%rA$B$1670%|12:Z:12:5:"SORRY, THAT'S WRONG.":14:5:"LET'S TRY AGAIN "NM$".":TMTM100:WW1:WR$(M)A$:T11000::5:16::"PRESS A KEY TO TRY AGAIN"::1920::1600_&:T1OR NEXT WORD"::1920Q$6Y((1)NN)1:A$WE$(WN(Y)):TYNN1:WN(T)WN(T1):Tn$@:10:18((A$)2):A$$JT1TM10:$T:6:5:"SPELL WORD NUMBER "PW" OUT OF "S".":8:5:"THEN PRESS 'RETURN' OR":10:5:"'N' TO QUIT."-%^14:5:"WORD: ";:JWITH":10:7:NM$" (1-"NN")";:S$:S((S$)):S1SNN1540#:6:5::16368,0:"PLEASE PRESS A KEY TO START"::1920:NNNW1:T1NW:WE$(T)WD$(T)::M1::YS1#PW1S:NNNN1:TM60#"YSYS0:1590$,16:Z:16:7:16368,0::"PRESS A KEY FTIONARY. ";::"PLEASE PRESS A KEY";::".":1920:2270"34,2:21:5:"CHOICE (BY NUMBER)";:": ";A$:(A$)0(A$)NDA$""1500"A$DD$((A$))::7:8:"LOADING . . . . .":3010;#2220::6:7:"HOW MANY WORDS WOULD":8:7:"YOU LIKE TO START (P$)(32(P$"a"))):NM$NM$P$:P$;:1476S! " BEGINNING OF STUDENT SECTION g!IS1:2590:IS0!::9:"LIST OF DICTIONARIES"::34,4:JP%2:2860:JP%07"ND1ė:6:"THERE ARE NO DICTIONARIES."::"PLEASE ASK YOUR TEACHER TO MAKE"::"A DICoutine & patch for the name avoids bug when name has no U.C. chars by J. Paul Y NM$""v P$:P$(13)(NM$)0ı P$(8)(NM$)0ĺ(8)(32)(8);:NM$(NM$,1,(NM$)1):1476+!(NM$)JP1476:(P$"A"P$"*")(P$"Z"P$"a")P$"z"1476:P$( ST1m:6:"ENTER YOUR FIRST NAME UP TO TEN LETTERS AND PRESS RETURN.":11:2:"NAME: ";:JP9:1475:6:7:"WOULD YOU LIKE TO READ":8:7:"THE INSTRUCTIONS (Y/N) ?";::" ":1920:P$"N"1500P$"Y"14601490N  " GET rED DICTIONARY":10:7:"(Y/N) ?";::" ":@F1920:P$"N"970RPP$"Y"1350\Z1240yd FLASH SPELL PROGRAM nST2x:6:7::"FLASH SPELL PROGRAM"::8:7:"CORRECT SELECTION (Y/N) ?";::" ":1920:P$"N"140P$"Y"1410NM$:14:Z:14:7:"IS "QO$;A$;QO$:16:7:"CORRECT (Y OR RETURN/N) ?";::" ":g 1920:P$"N"1270(P$(13))(P$"Y")13101290NWNW1:WN(NW)NW:WD$(NW)A$:1270( IF NOT LD THEN 4302SVSV0:1240*<8:Z:8:7:"SAVE UPDAT:"CLOSE"A$:970S:6:7::"ADD TO DICTIONARY"::8:7:"MAXIMUM 300 WORDS."{10:Z:10:7:"PRESS '*' TO QUIT."2820:A$"":12:Z:12:7:"WORD # "NW1:14:7:": ";:JP$NM$:JP14:1475:A$NM$:NM$JP$:(A$,1)"*"1320PNM$A$:2790:A$:1920;Z :4:" IF YOU SPELL THE WORD CORRECTLY":6:"ON THE FIRST TRY, YOU ARE AWARDED":8:"10 SECONDS OF GAME TIME.":10:" OTHERWISE, ONE-HALF SECOND WILL"="ENTER THE NUMBER OF THE DICTIONARY"::"YOU WANT TO RENAME (0 TO QUIT)";:": ";A$:A$""(A$)ND(A$)02100PRESS A KEY"::1920:2000q-ER15Ė7:18:"DISK ERROR"::7:20:"PLEASE PRESS A KEY"::1920:R1ST0140}-R2040-(ER15)(R)(ST)140--:"ERROR "ER" IN LINE "LN:::-R2Ĭ-"DELETE"A$:2060.  RENAME A DICTION":,b1920:P$"N"ė:2270/,lP$"Y"1890K,vT1NW:WN(T)T::1540Z,768:SKIPn,844: GET KEY ,P((45)128):P$(P),771: UNSKIP,,LN(218)(219)256:ER(222)-ER9Ė7:18:"THIS DISK IS FULL !":7:20::"PLEASE 0:RIGHT @M2:350:DOWN4 O PICKUP DIAMOND S QPU200:ALREADY PICKED UP TCX(38048)7(38080):CY(38112):DX(380483)7(380803):DY(381123) UQDXCX:Q13343 V200 WQDYCY:(Q20)200 X21:14::"DIAMOND PICKED UP": IMAGE JS1000< P(16384):P128DC.1:20200:210l 16368,0:P$(P128):(P$" ")İ20200:200 T16:(P$(LK$,T,1))250 :DC.4:20200:210 T260,280,300,320,335,500 200 M10:355:UP M160:410:LEFT ,M32:41T-UP FUNCTIONS) i(4)"BLOAD FSH83.ANM"O j16000:INSTRUC TIONS u k15000:SET-UP SCREEN ON PAGE ONE m START GAME n37073:INIT XDRAW x20400:130:200:RND PLACEMENT OF DIAMOND 0:T1311:T,1T,13:::ERASE DIAMOND FLASH-SPELL HELICOPTER WRITTEN BY MARK S. APPEL FOR MICROCOMPUTER WORKSHOPS V1.0 (C) 1983 " Revised 10/11/84 by Jon Paul corrected typo in line 16050  34057:::7:8:"LOADING . . . . ." 60000d20000:SET-UP MEMORY f20010:SE          16 DICTIONARIES":7:8:"(THE MAX.) IN EXISTENCE.":7:10:"YOU MUST DELETE ANOTHER":7:12:"DICTIONARY TO MAKE ROOM":7:14:"FOR A NEW ONE."FX 7:16::"PLEASE PRESS A KEY"::16368,0:1920:730Fb Q2:7:"LIKE TO KNOW IF YOU":14:7:"ARE SURE (Y/N) ?";::" ":YE 1920:P$"N"RT1:kE P$"Y"3090E& 8:Z:8:7:"DELETING, PLEASE WAIT . . ."E0 T1ND:A$DD$(T)ĂE: T1TND1:DD$(T1)DD$(T11)::NDND1:2970:FD :7:6:"THERE ARE 1NW:WD$(T):WR$(T)"":WN(T)T::D$;"CLOSE"A$:RT0:AT UPDATE CATALOG FILE ^A^ T1ND:A$DD$(T)Ă:2960Ah 8:Z:8:7:A$" ALREADY":10:7:"EXISTS. IF YOU WISH TO":12:7:"USE THAT NAME, I WILL":14:7:"ERASE THE EXISTING FILE ":7:"WITH THAT NAME."Br 18:40 @ DF0:@ NWı|@" 8:Z:8:7:"THE DICTIONARY IS EMPTY.":10:7::"PLEASE PRESS A KEY"::1920:NW0:SV1::1250@+ CATALOG ROUTINE @, ND1ĺ:"NO DICTIONARIES"::@@ :ND9āT1ND:T"."DD$(T):::!AJ T18:T"."DD$(T):::3JP%:"":NU$"":T1(NM$):NU$(NM$,T,1):(NU$)65(NU$)902810N? NI$NI$NU$^? :NM$NI$:@ NW1300DF1:8:Z:8:7:"THE DICTIONARY IS FULL.":10:7:"NO MORE WORDS CAN":12:7:"BE ADDED TO IT.":14:7::"PLEASE PRESS A KEY"::1920:SV1::12 140`> "A GOOD","A GREAT","A FINE","A WONDERFUL","A SPLENDID","A MARVELOUS","A FRESH": 7> 8:Z:7:8:"PRESS "QO$"RETURN"QO$" WHEN PRINTER":7:10:"IS READY OR ";QO$;"Q";QO$;" TO QUIT."> 1920:P$"Q"1760> P$(13)2760> >? NI$BE ABLE TO USE":12:"YOUR ACCUMULATED HELICOPTER GAME":14:"TIME."= 16:5:"PRESS ";::"R";::" TO RE-READ INSTRUCTIONS."::" ";::"RETURN";::" TO DISPLAY DICTIONARIES.":16368,0= 1920= P$"R"ī2590= P$(13)ī2695= STı>"CONTINUE UNTIL THE WORD IS SPELLED":18:"CORRECTLY.":20:5x24:1::"PRESS RETURN FOR GAME OR ESC TO GO BACK";::16368,0>P(16384):P12816121>P1282716090>P1281316121>>?22:1::"PRESS RETURN TO GO ON LY APPEAR ON THE SCREEN. THE GAME WILL CONTINUE UNTIL YOUR TIME HAS EXPIRED."Y>16190g>GB16070I>:"AT THE END OF THE GAME YOU HAVE THE OPTION TO EXIT THE PROGRAM OR TRY ANOTHER SET OF WORDS. IF YOU CHOOSE THE JOYSTICK OPTION, THE DIAMOND ISINTO THE CHUTE, THE SPACEBAR (OR BUTTON 1) MUST BE PRESSED. IF YOU MISS THE CHUTE, THE DIAMOND WILL LIE ON THE GROUND UNTIL AGAIN PICKED UP BY THE HELICOPTER.";N>" IF THE DIAMOND IS SUCCESSFULLY DROPPED INTO THE CHUTE, ANOTHER DIAMOND WILL RANDOMHE HELICOPTER IS POSITIONED CORRECTLY AND THE SPACEBAR IS PRESSED, ";::QO$"DIAMOND PICKED UP"QO$;::" WILL BE PRINTED JUST ABOVE THE SCORE. THE HELICOPTER MUST THEN BE POSITIONED OVER THE CHUTE.">16190>GB16060>:"TO DROP THE DIAMOND K (RIGHT) M (DOWN)"3>16190A>GB16040>:"WHEN THE HELICOPTER IS IN A POSITION SUCH THAT THE FEET OF THE HELICOPTER ARE ALMOST TOUCHING THE DIAMOND, YOU MUST PRESS THE SPACEBAR TO PICK IT UP (OR BUTTON 0).";>" WHEN TTS PLUS THE TIME REMAINING ON THE SCREEN. YOU ALSO HAVE THE OPTION TO USE THE KEYBOARD OR JOYSTICK."r>16195(>:"IF YOU DECIDE TO USE THE KEYBOARD, YOU WILL MOVE THE HELICOPTER BY USING THE FOLLOWING KEYS: (UP) I (LEFT) J RUCTIONS>:"THE HELICOPTER GAME IS A GRAPHIC SIMULATION WHERE YOU PILOT A HELICOPTER, PICK UP A DIAMOND THAT HAS BEEN RANDOMLY PLACED ON THE SCREEN, AND DROP IT IN A CHUTE.";g>" EACH TIME YOU DROP THE DIAMOND INTO THE CHUTE, YOU RECEIVE 10 POIN<::1:24:"BUTTON 0:PICKUP";:24:20:"BUTTON 1:DROP";B:{:18:22:"SCORE: ";SC;:6:22:"TIME: ";(RT);" ";:>:8:7:"DO YOU NEED INSTRUCTIONS (Y/N) ?";::" "::16368,0>P(16384):P12816010>P$(P128):P$"N"ı>INST450:1:T1591351:0,T279,T::2:1,134279,134:1,159279,159:0:T132146:139,158T,134::2:0,1340,0278,0278,134::14900:JSė:1:22:" I J K M ";::"SPACEBAR";::": PICKUP ";::"D";::": DROP DIAMOND";:15100:30:22:NM$:16384):P128149111@:P$(P128):P$"N"14900DA:P$"Y"14911JB:C::7:21:"YOU PICKED KEYBOARD,":7:23:"ARE YOU SURE (Y/N) ?";::" ":D:P(16384):P12814916E:P$(P128):P$"N"14900F:P$"Y"14916G:d::16301,0:62CK OR KEYBOARD (J/K) ?";::" ";:?9:P(16384):P12814905Y::16368,0:P$(P128){;:P$"J"JS1:23:958:14910<:P$"K"14905=:JS0:23:958:14915>::7:21:"YOU PICKED JOYSTICK,":7:23:"ARE YOU SURE (Y/N) ?";::" ":?:P(54:PU0:T0:21:14:" ":200H JOYSTICK ROUTINES pP(16287):P127T5:250:PICKUPP(16286):P127T6:250:DROPX(0):Y(1):TJX(X)JY(Y)T250DC.5:20200:1000'"4::16368,0:7:24:"JOYSTI8272TQ2)(38273TQ2)256:P,2:TDY1202:AN:G(DX1386)550[(DX1406)550rT1201302:AN:SCSC10(RT):15100:0:T132146:139,158T,134::2:DC.5:21:14:" ":20400:130-&OL0,0:OL1,1:OL2,2:OL3,2U0)415C TQ(3814434):P(38272TQ2)(38272TQ2)256:P,Ma AN:T0:DC.5:20200:200x  DROP DIAMOND (PU0)200:NOT PICKED UP YET OL0,254:OL1,254:OL2,254:DY(381123):DX(380483)7(380803)3TQ(3814434):P(3 YOL3,3:ACTIVATE DIAMOND, ZPU1:200< ] DOWN T ^CY(38112):PU353e _CY110200n `410 aCY100200 b410: UP cCY(38112) dCY3410 e200 T02:TQ(38144T4):P(38272TQ2)(38273TQ2)256:P,M::(PčRKSHOPS V1.0 (C) 1983 N2TQ2)(38273TQ2)256:P,M3!OTT1T2S:AN:a!OREACTIVATE COPTER AND DEACTIVATE DIAMOND!OOL0,0:OL1,1:OL2,2:OL3,254!OT0:M0:!`" FLASH-SPELL HELICOPTER WRITTEN BY MARK S. APPEL FOR MICROCOMPUTER WOCXDXT1DX:T2CX:S1:M160:204154 OCXDX20420o OTQ(3814434):P(38272TQ2)(38273TQ2)256:P,M OTT1T2S:AN: OCYDYT1CY:T2DY:S1:M2:20425 OCYDYT1DY:T2CY:S1:M10:20425 OCYDY20430!OTQ(3814434):P(3827IAMOND -ODY((1)59)1:(DY20)20400MODX((1)119)1:120*2=240`O(DX20)20401yO DEACTIVATE COPTEROOL0,254:OL1,254:OL2,254OCX0:CY0:(380483),CX:(380803),CX:(381123),CYOCXDXT1CX:T2DX:S1:M32:20415# O84):P128202528O16368,0:P$(P128):P$"N"20280K!OP$"Y"20252"O30000,1::7:10:"LOADING . . .":38400:103,1:104,8:2048,0:"RUNF":.O8O:7:10::"PRESS ANY KEY TO RE-BOOT":9OP(16384):P12820281=O6: O NEW D8\N!NDLDLDC:DL020202'N@NRTRT1:RT020250[N15100:DL3:: TIEO15100:23:958::8:24:"YOUR TIME HAS RUN OUT";::E15000::::7:6:"WOULD YOU LIKE TO SPELL MORE WORDS (Y/N) ?";::" "::16368,0OP(163L38144:CT38368:DR37284:AN36864:JS0:LK$"IJKM D":RT(768):T110:P(T768):P0NM$NM$(P):*NJY(Y)(Y80)1(Y160)4/NJX(X)(X80)2(X160)34NCL(Z)(38368Z)>NJB(Z)(16287)127HNKB(Z)(((16384)127)(16384))12΍Ǎٍٍԍ͍čӍōԍōōԍččҍ̍ԍ̍ōӍ̍ōٍˍԍӍčٍٍԍ͍čӍōԍōōԍččҍ̍ԍ̍ōӍ̍ōٍˍԍӍčٍōԍǍύٍ̍ōȍҍ̍ōӍԍōōҍōӍ͍Ǎō̍Ӎ͍ҍӍҍȍōӍӍō !ٍ̍ōȍҍ̍ōӍԍōōҍōӍ͍Ǎō̍Ӎ͍ҍӍҍȍōӍӍōҍٍ̍ōȍҍ̍ōӍԍōōҍōӍ͍Ǎō̍Ӎ͍ҍӍҍȍōӍӍōҍ