*† FI$(130),FT$(130),BL(130):—650,255O —53280,0:—53281,0:™Ç(8)Ç(142)"“"Š™" š  š’  š’ VERSION 1.1 ";™" š  š’  "; #™" š   š’  š’   ’ š  š’ ";V -™" š  š’  š’   š’  ’  š’   š’  š’   š’ ";§ 7™" š  š’  š’  š’  ’  š’  š’  š’  š’ ";ò A™" š  š’  š’  ’ š  š’  š’  š’ ";< K™"  š’  š’  ’ š  š’  š’  š’  ";‡ U™" š  š’  š’  ’ š  š’  š’  š’ ";Ò _™" š  š’  š’   š’  š’  š’  š’ "; i™"— š ¤š ";> s™"Ÿ —’ THE ELEM—ENTARY INTERFACE FOR THE C-64š ";q }™"š  ";¤ ‡™"— BY PAUL MC ALEERš ";Ö ‘™"š "; ¥™"š ";: ¯™"š ";m ¹™"š Ÿ "; »60000: POKE IN ML ROUTINE» Ù"Ÿ  INSERT DISK -- PRESS ANY KEY! ’Î È¡A$:‹A$²""§200ê Ò—53280,1:—53281,1:™"“";ó ×502. Ü™"Ÿ ͯ¯¯¯¯¯¯¯¯¯¯¯¯¯¯ÎŸ’  Ÿ’ ";n æ™"Ÿ ªš E L E M V1.1 ´Ÿ’  Ÿ’  Ÿ’ ";« ð™"Ÿ η··············Í’  Ÿ’  Ÿ’ ";å ú™"Ÿ  Ÿ’  Ÿ’ ";#™"Ÿ USE CRSR UP/DOWN’Ÿ  Ÿ’  Ÿ’ ";_™"Ÿ TO SELECT OPTIONŸ  Ÿ’  Ÿ’ ";™"Ÿ THEN PRESS RETURN’Ÿ  Ÿ’  Ÿ’ ";Ú"™"Ÿ  ’ Ÿ  Ÿ’  Ÿ’ ";,™"Ÿ   Ÿ’  Ÿ’ ";Q6™"Ÿ  Ÿ  Ÿ’  Ÿ’ ";@™"Ÿ  Ÿ  Ÿ’  Ÿ’ ";ÉJ™"Ÿ 1. RUN A PROGRAMŸ  Ÿ’  Ÿ’ ";T™"Ÿ 2. READ TEXT FILEŸ  Ÿ’  Ÿ’ ";A^™"Ÿ 3. FORMAT A DISKŸ  Ÿ’  Ÿ’ ";}h™"Ÿ 4. VALIDATE DISKŸ  Ÿ’  Ÿ’ ";¹r™"Ÿ 5. SEND COMMANDŸ  Ÿ’  Ÿ’ ";õ|™"Ÿ 6. BOOT A DISKŸ  Ÿ’  Ÿ’ ";1†™"Ÿ 7. READ DISK Ÿ  Ÿ’  Ÿ’ ";m™"Ÿ 8. QUIT TO BASICŸ  Ÿ’  Ÿ’ ";§š™"Ÿ  Ÿ’  Ÿ’ ";ᤙ"Ÿ  Ÿ’  Ÿ’ ";®™"Ÿ  Ÿ’  Ÿ’ ";U¸™"Ÿ  Ÿ’  Ÿ’ ";‹Â™"Ÿ  ^ AND = SCROLL DIR Ÿ’ ";•Ì‰ 600«ô **** SETUP ****Äö518:NF²(EL«MP)­32«1êø ** EXTRACT NAMES FROM MEMORY **úA$²"":I²MPª32:X²1¤NF:I²I¤Iª31:A$²A$ªÇ(Â(I)):‚ZüFI$(X)²Ê(Ä(Æ(Ê(A$,2,1))¬256ªÆ(Ê(A$,1,1))),2):A$²Ê(A$,2)—þFI$(X)²FI$(X)ª" "ªÊ(A$,1,29«Ã(FI$(X))):A$²"":™""FI$(X)¿™",,,";äŸ3,3:„3,BL(X),FI$(X),FT$(X): 3:‚I²NFª2¤100:FI$(I)²"":FT$(I)²"":BL(I)²0:‚:ŽJ 15:Ÿ15,8,15,"I0:":530:˜15,"I0:":„15,A$,A$,B$,C$Z‹A$³±"OK"§€m ‹ND$³±OD$§534Š  ** FIND END OF LOAD **¥EL²Â(175)¬256ªÂ(174):ŽÁ*** GET DISK NAME **** ˜15,"M-R";Ç(144);Ç(7);Ç(20):ND$²"":I²1¤20:¡#15,A$:ND$²ND$ªA$:‚:A$²"":Ž1 ** BLOAD DIRECTORY INTO MP **xMP²49152:FI$²"$*":LE²0:T²0:HI²µ(MP­256):LO²MP«(HI¬256):I²1¤Ã(FI$)Ç—678ªI,Æ(Ê(FI$,I,1)):‚:LE²I«1:—780,LE:—781,167:—782,2:ž65469:—780,2:—781,8ù—782,0:ž65466:—780,0:—781,LO:—782,HI:ž65493:Ž(—214,LN:ž58732:™"’"P$(OP):LN²LNª1:OP²OPª1I—214,LN:ž58732:™""P$(OP):Žx —214,LN:ž58732:™"’"P$(OP):LN²LN«1:OP²OP«1™"—214,LN:ž58732:™""P$(OP):ŽÈ$—214,LN:ž58732:™"’"P$(OP):LN²LNª2:OP²OPª1é&—214,LN:ž58732:™""P$(OP):Ž(—214,LN:ž58732:™"’"P$(OP):OP²8:LN²184*—214,LN:ž58732:™""P$(OP):Ž_,—214,LN:ž58732:™"’"P$(OP):OP²1:LN²11:€.—214,LN:ž58732:™""P$(OP):Ž¯0—214,LN:ž58732:™"’"P$(OP):LN²LN«2:OP²OP«1Ð2—214,LN:ž58732:™""P$(OP):ŽþD™"":J²TP ¤ BM:™¦21)" "F™"‘"¦21)FI$(J):‚:™"":Ž,G ** INPUT **;HC2²C:S$²""\I—211,C2:—214,R:ž58732:™" ’"oJ¡A$:‹A$²""§586§K‹Æ(A$)²20°Æ(A$)²32°Æ(A$)²13°Æ(A$)±192¯Æ(A$)³219§589ÃL‹Æ(A$)³33°Æ(A$)±128§586ÞM‹A$³±Ç(13)¯C2²RTª1§592ðN‹A$²Ç(13)§596O‹A$²Ç(20)¯C2²C§586"P‹A$³±Ç(20)¯C2²RTª1§586\Q‹A$²Ç(20)§S$²È(S$,Ã(S$)«1):—211,C2:—214,R:ž58732:™" "wR‹A$²Ç(20)§C2²C2«1:‰585«S—211,C2:—214,R:ž58732:™A$:S$²S$ªA$:C2²C2ª1:‰585ÛT—211,C2:—214,R:ž58732:™" ":S$²È(S$,Ã(S$)):ŽåU‰ 586XI²217¤242:—I,Â(I)°128:‚Z™""¦19)""ND$M\P$(1)²"1. RUN A PROGRAM":P$(2)²"2. READ TEXT FILE"ƒ^P$(3)²"3. FORMAT A DISK":P$(4)²"4. VALIDATE DISK"µ`P$(5)²"5. SEND COMMAND":P$(6)²"6. BOOT A DISKæbP$(7)²"7. READ DISK":P$(8)²"8. QUIT TO BASICõdTP²1:BM²20f™"":J²TP ¤ BM:™¦21)FI$(J):‚'hLN²11:OP²1Gj—214,LN:ž58732:™""P$(OP)Zl¡M$:‹M$²""§620un‹M$²"‘"¯OP²1§552:‰620p‹M$²""¯OP²8§556:‰620¦t‹M$²""§540:‰620¼x‹M$²"‘"§544:‰620Ñz‹M$²"^"¯TP²1§620û|‹M$²"="¯ BM²NF ° M$²"=" ¯ BM±NF § 620!~‹M$²"="§TP²TPª1:BM²BMª1:580:‰620G€‹M$²"^"§TP²TP«1:BM²BM«1:580:‰620Y‚‹M$²Ç(13)§650c„‰ 620—Š‘ OP ‰ 700,800,900,1000,1100,1400,1200,1300,620¸¼—214,20:ž58732:™"WHICH ONE?"ô¾C²0:R²21:RT²15:583:FR$²S$:‹FR$²""§™"‘‘ ":‰618&À 15:Ÿ15,8,15,"R0:"ªFR$ª"="ªFR$ª"":„15,ER%: 157‹ER%³±63§220dÄ™"“LOAD"Ç(34)FR$Ç(34)",8":™"RUN‰Æ—631,13:—632,13:—633,13:—198,2:€« —214,20:ž58732:™"WHICH FILE?"ê"C²0:R²21:RT²15:583:SF$²S$:‹SF$²""§™"‘‘ ":‰618$ 15:Ÿ15,8,15,"R0:"ªSF$ª"="ªSF$ª"":„15,ER%: 15-&‹ER%³±63§220=(™Ç(14):‰812r*™"“ ÅÌÅÍ ÆILE ÒEADER ":Ž,Ÿ3,8,3,SF$Š.810•0ž52480©1‹ST²0§850:‰814É2‹ST³±0§850:™Ç(142): 3:‰220â4‹Â(214)²23§850:‰814ì6‰ 816R—214,23:ž58732:™" ÓÐÁÃÅ - ÍORE Á - ÁBORT "3T¡FR$:‹FR$²""§852BV‹FR$²" "§Ž_X‹FR$²"A"§™Ç(142): 3:‰220iZ‰ 852x„™""£†™¦5)" "®ˆT²1¤7ߊ™¦5)" ’  ’":‚ ‹™¦5)" ": Ž—214,9:ž58732:™¦7)"THIS OPTION WILL LET YOUX ™¦7)"FORMAT A DISK. ENTERx ’™¦7)"A NAME FOR THE DISK...™ ”C²7:R²12:RT²Cª15:583:NN$²S$© •‹NN$²""§220À –™¦7)"2 LETTER ID?"á ˜C²20:R²13:RT²Cª1:583:ID$²S$ñ ™‹ID$²""§220!š™""+!œ™¦5)" "6!žT²1¤7g! ™¦5)" ’  ’":‚’!¢™¦5)" "¹!¤—214,9:ž58732:™¦7)"INSERT A BLANK"Ó!¦™¦7)"DISK, AND PRESS"ï!¨™¦7)"SPACE TO FORMAT!!""ª¡Y$:‹Y$³±" "§938."¬ 15:Ÿ15,8,15,"N0:"ªNN$ª","ªID$ª"": 159"­‰ 9000Y"®™¦7)"FINISHED. INSERT THEr"°™¦7)È(ND$,16)"DISK."ƒ"²T²1¤3000:‚T"´‰ 220Á"è—214,5:ž58732:™¦8)" "Ì"êT²1¤3ö"왦8)" ’  ’"ü"î‚"#ð™¦8)" "F#ò™"‘‘‘"¦10)"VALIDATING DISK..."r#ô 15:Ÿ15,8,15,"V0": 15:T²1¤3000:‚T:‰220²#L—214,8:ž58732:™"— "¾#NQ²1¤10ó#P™"‘ ’  ’"ú#R‚Q,$T™"‘ "I$VI²217¤242:—I,Â(I)°128:‚‡$X—214,10:ž58732:™"SEND DOS COMMAND: šTHIS OPTION LETS "³$Z™"TALK DIRECTLY TO THE DRIVE. REFER"ß$\™"TO YOUR DRIVE MANUAL FOR COMMANDS."÷$^C²2:R²14:RT²36:583%_‹S$²""§220.%` 15:Ÿ15,8,15,S$:„15,ER%:„15,ER$: 15E%b‹ER%²00°ER%²0§1124d%c™"ERROR #"ER%" OCCURED"|%d™"PRESS SPACE..."’%f¡I$:‹I$³±" "§1126%h‰ 1100Ñ%°—214,5:ž58732:™¦8)" "Ü%²T²1¤3&´™¦8)" ’  ’" &¶‚2&¸™¦8)" "\&º™"‘‘‘"¦9)"INSERT DISK - HIT SPACE’"p&¼¡Y$:‹Y$²""§1212€&½‹Y$²"A"§220‘&¾‹Y$²" "§1216œ&¿‰ 1212Í&ÀT²1¤130:FI$(T)²"":FT$(T)²"":BL(T)²0:‚T:‰210'—53280,14:—53281,6:™"“"¦10)"šQUIT TO BASIC? Y/N"'¡AS$:‹AS$²""§13024'‹AS$²"Y"°AS$²"Ù"§1350`'‹AS$²"N"°AS$²"Î"§—53280,1:—53281,1:‰220k'‰ 1302”'F™Ç(9)Ç(142):™"“ PM 1991 ’":—650,0:€È'x—214,5:ž58732:™¦8)" "Ó'zT²1¤4ý'|™¦8)" ’  ’"(~‚)(€™¦8)" "T(‚™"‘‘‘‘"¦9)"INSERT DISK - HIT SPACE’"v(ƒ™¦11)"OR PRESS A’ TO ABORT"Š(„¡Y$:‹Y$²""§1412›(…‹Y$²" "§1416«(†‹Y$²"A"§220¶(‡‰ 1412ç(ˆ™"“LOAD"Ç(34)":*"Ç(34)",8,1":™"RUN" )Š—631,13:—632,13:—633,13:—198,2:€)'#B)(#Ÿ15,8,15,"S0:ELEM 64": 15:”"ELEM 64",8:‰942a)`êT²52480¤52505:‡A:—T,A:‚:Ž£)bêƒ 162,3,32,198,255,32,228,255,32,210,255,165,214,201,22,240,4É)dêƒ 165,144,240,240,32,204,255,96,0