200,208,205,96  ---------------------------2 ** MAX OF 33 CHRS IN LENGTH **T ---------------------------w I124:X15:IN$(I,X):::o PROGRAM #1p "HIS IS HOY!'S ACHINE ANGUAGE "q "ENTRY PROGRAM FOR OUR ADVENTUROU " "! " ",! PROGRAM #9T! "YNTAX ATROL IS A UTILITY THAT"}! "CHECKS THE SPELLING OF ALL KEY "! "WORDS BEING TYPED WHEN TYPING IN"! "PROGRAMS. T IS NOT A CHECKSUMICK "' "AND PLUG IT INTO THE #2 PORT. "( PROGRAM #17*("OUR A TRAINED TELEPORT SPECIALIST"R("MONITORING PERSONEL ARRIVALS ON "z("VINTAGE ERA SPACECRAFT. EQUIRES"("KEEN JUDGMENT WITH SNAP DECISIONS"("  OMMODARE. HIS IS ANOTHER " "VERSION OF ENTERING A DATE AND "F "FINDING THE CORRESPONDING DAY OF"o "THE WEEK. " " " PROGRAM #6 " OMMODARE. ITH $10 COWS,$3 " "FILES FOR STORING AND RECOVERING"%"NUMERICAL DATA FOR THE PURPOSE OF";%"ACCUMULATING INFO. AND PROCESSING "_%"IT AT OUR CONVENIENCE. "q% PROGRAM #14%"HIS PROGRAM READS THE DATA THAT"%"PROGRAM #13 WRITES TO THE DISK."% AM AND"+:"MAKE MULTIPLE LINES INDIVIDUAL " ,;"LINES. ".,<" "@,A PROGRAM #22h,B"HIS IS THE BOOT PROGRAM TO LOAD",C"THE OMAL OPERATING SYSTEM. ",D"  S"r "READERS WHO LIKE TO TYPE IN THE"(s "PROGRAMS FROM OUR MAGAZINE."2t " "Cy PROGRAM #2mz "HIS IS HOY!'S HECKSUM PROGRAM."{ "SE IT FOR MISTAKE PROOF TYPING"| "OF HOY! MAGAZINE BASIC PROGRAMS."} "  "! "BUT RATHER A SPELL CHECKER. "" PROGRAM #10." "NOTHER VERSION OF EPEATED "W" "OMPRESSION OMMODARES. """ """ """  "( PROGRAM #18 )"IRST PERSON SPACE GAME PERSPECTIVE"2)"SET IN THE YEAR 4025 ON THE FAR "[)"REACHES OF THE ILKY AY SPIRAL. ")" ")" ")# PROGRAM #19 "SHEEP AND 50 CENT PIGS, HOW MANY" "HEAD OF LIVESTOCK (INCLUDING 1 OF"G "EACH) CAN BE BOUGHT FOR EXACTLY"k "$100.00 "| PROGRAM #7 " OMMODARE. NPUT A STRING OF" "CHARACTERS AND COMPRESS ANY " "" "&" "2&" "D& PROGRAM #15k&"HIS PROGRAM FOR THE -128 WILL"&"DRAW PART OF A HEADLINE-SIZE "&"MESSAGE ON YOUR SCREEN. EXT MONTH"& ",E" "-F" "-K PROGRAM #23>-L"HIS UTILTIY WILL INCREASE THE"g-M"-64'S LINE EDITOR FROM 80 CHAR- "-N"ACTERS TO 160 CHARACTERS. "-O" "- "~ " " PROGRAM #3A "HIS IS HOY!'S HECKSUM PROGRAM"i "FOR THE -128 COMPUTER. SE IT " "FOR MISTAKE-PROOF MAGAZINE BASIC" "PROGRAM ENTRY. " "  "" PROGRAM #11 #"HIS PROGRAM SHOWS THE USE OF SEQ."1#"FILES FOR STORING AND RECOVERING"Z#"NUMERICAL DATA FOR THE PURPOSE OF"#"ACCUMULATING INFO. AND PROCESSING "#"IT AT OUR CONVENIENCE. "# PROGRAM #12#"HIS PR)$"T'S UP TO YOU TO RESCUE THE SCI-"*%"ENTIST ON THE PLANETS OF THE ESHAN"9*&"SYSTEM. OU MUST THEN GET AWAY AND"a*'"TRAVEL THROUGH SPACE TO THE NEXT"*("PLANET. "*- PROGRAM #20*."HIS PROGRAM WILL TEST THE BMULTIPLE CHARACTERS INTO SINGLE "  "ONES. OR EXAMPLE,'TTTEESSSTT' "A  "BECOMES 'TEST'. "R  PROGRAM #8z  "NOTHER VERSION OF EPEATED "  "OMPRESSION OMMODARES. "  " " "WE'LL ADD A SPRITE THAT WILL COM-"'"PLETE AND ANIMATE THE DISPLAY. " ' PROGRAM #16J'" WELL WRITTEN BOWLING SIMULATION."s'"HE PROGRAM KEEPS SCORE FOR UP TO"'"4 PLAYERS. NSTEAD OF LIFTING THAT"' "16 LB. BALL, LIFT YOUR JOYST"P" "-U PROGRAM #24.V"OU HAVE BEEN SELECTED TO TRY AND"8.W"SAVE THE TEMPLE FROM DESTRUCTION"a.X"USING YOUR KNOWLEDGE OF EXPLOSIVE".Y"DEVICES. IME IS OF THE ESSENCE...".Z"OU HAVE LESS THAN 8 MINUTES." " PROGRAM #4 " OMMODARE. HIS PROGRAM ALLOWS"< "THE USER TO INPUT A DATE. HE "e "COMPUTER THEN EVALUATES THE DATE" "AND GIVES THE CORRESPONDING DAY OF" "THE WEEK. " PROGRAM #5 " OGRAM READS THE DATA THAT" $"PROGRAM #11 WRITES TO THE DISK."2$" "[$" "$" "$ PROGRAM #13$"HIS PROGRAM SHOWS THE USE OF SEQ."$ASIC "*/"RAM IN BANKS ZERO AND ONE WHICH "+0"COMPRISE THE 122365 ASIC BYTES"6+1"FREE MESSAGE ON POWERUP. "\+2" "n+7 PROGRAM #21+8"HIS IS AN UTILITY THAT WILL"+9"SEARCH THROUGH A BASIC PROGR  28,49,33,135,28,49(  25,30,28,49,31,165B  33,135,37,162,28,49]  37,165,33,135,31,165v & 25,30,22,96,18,209 0 4,2,2,3,1,4,4,2,2,8 : 4,2,2,2,2,2,2,2,2,2,2,2,2,2,2 D 8,97,16,195,8,97,16,195,8,97,16,195 N 8,97,16,195,8,97, <:4000*P P$(25),IN$(25,5):5000Sd53280,2:53281,0:(14):2500:5900\x800yH1:G0:L8:LC55590:P8I819:GG1:(L$,I)14)""P$(G):F(P$(H)):I0F:LCI,7::1000(L$,P)10)PT$AN$:AN$""206 AN$((L$,18)4)" PROGRAM SUCCESSFULLY. SE THE"TT(L$,19)4)" PRESCRIBED METHOD WHICH IS..."^(L$,20)4)" OAD ''ROGNAME'' "h(L$,21)4)" [RESS ANY EY] "r(L$,22)4)" $"":PT$"=>":828S(L$,8)1)""I914:(L$,I)1)" ""(L$,15)1)" [/=ANCEL * PC=UN ROGRAM] ",(L$,1 "4 f(L$,4)10)""U p10)" "v z10)""|  S54272:S23,0:S24,15 S6,0:S5,12:S1,70:S3,40 S4,0:S4,65:D1100::S4,0: (L$,P)10)" P." P$(4)"ATE ITTY" P$(5)"ATE ITTY 2"8 P$(6)"ARM IGURES 2"O P$(7)"EP. OMP."h P$(8)"EP. OMP. 2" P$(9)"NTX ATROL OOT" P$(10)"EP. OMP. 4"( P$(11)"ATAWRITER 128"2 P$(12)"ATAREADER 128"7 P$(13)"ATA 16,195,8,97,16,1952 X 8,97,16,195,8,97,16,195,8,97,16,195\ b 8,97,16,195,8,97,16,195,8,97,16,195 l 8,97,16,195,8,97,16,195,8,97,16,195 v 8,97,16,195  5,152,11,48,5,152,11,48,5,152,11,48  5,152,11,48  6,71,12,143,6,71,12,143,6 17)1250 AN$(145)1300/ AN$(13)2000O AN$(32)G243000:140{ AN$(32)3000:H13:LC55590:P8:150 204 "";:53280,0:53281,6 "OADING...";(34);P$(H)(34);"" "LOAD";(34);P$(H);(34);",8" "/|(L$,23)3)" ":1000EAN$:AN$""1670S882:225t ************************** **** WINDOW ROUTINE **** **************************828(L$,5)11)"" (6)1)""M1(L$,23)3)" ":1000t6I15:(L$,8I)3)""IN$(H,I):@AN$:AN$""4160JAN$(13)882:204TH3H11H12H15H20882:1550^AN$(32)882: ":I0F:LCI,14:" HH1:HGHH126 PP1:P19P8V LCLC40:LC56030LC55590_ 204 (L$,P)10)" ":I0F:LCI,14: HH1:HG11HH12 PP1:P8P19 #LCLC40:LC55590LC56030 (204 828(L$,13WRITER 64" < P$(14)"ATAREADER 64"$F P$(15)"PRITE1.O">P P$(16)"ENPINS OOT"VZ P$(17)"ELEPORTER"qd P$(18)"UARDIAN OOT"n P$(19)"AEDALUSISCOOT" P$(20)"128 AM HECK" P$(21)"ELUXE IST49152" P$(22)"OMAL 64 OOT",71,12,143( 6,71,12,143,6,71,12,143,6,71,12,143R 6,71,12,143,6,71,12,143,6,71,12,143| 6,71,12,143,6,71,12,143,6,71,12,143:"NOT ZERO PAGE OR ROM!":B0:415"?ERROR IN SAVE":415"?ERROR IN LOAD":415::"END OF ML ARE "RUN": ""0  631,13: 632,13: 198,2:m "":(L$,2)2)"" *(L$,3)2)" " 4I116:2)" ݞ ": >(L$,20)2)" L$,6)11)"EE NSTRUCTIONS"2(L$,7)11)"UN ROGRAM "X(L$,8)11)"ANCEL INDOW "~ (L$,9)11)""PO55507:X0 I116:POI,1::1000*AN$:AN$""20904AN$(17)2200:POPO40:XX1:PO55230h4160 I828935:A:I,A::' 160,0,185,0,4,153,0,192K 185,0,216,153,240,195,185,250o 4,153,250,192,185,250,216,153 234,196,185,244,5,153,244,193 185,244,217,153,228,197,185,238 6,153,238,194,185,238,218,153)4)""P"(L$,14)4)" HIS IS A 128 ROGRAM.T MAY ",(L$,15)4)" NOT BE LOADED IN THE 64 MODE."6(L$,16)4)" OU MUST SWITCH TO THE 128 "@(L$,17)4)" MODE IN ORDER TO LOAD THIS " J P$(23)"ONG INES" P$(24)"ETONATION OOT" O CL819:(L$,CL)14)" ":h (L$,P)10)" ":657,128: DISABLE SHIFT/COM KEY POKE775,200:REM DISABLE LISTING POKE808,234:REM DISABLE STOP/RESTOREL 222,198,200,208,205,96,160,0  185,0,192,153,0,4,185,240D 195,153,0,216,185,250,192,153h 250,4,185,234,196,153,250,216 185,244,193,153,244,5,185,228 197,153,244,217,185,238,194,153  238,6,185,222,198,153,238,218 "V C(L$,21)2)"" H(L$,22)1)"" R(L$,23)1)" RSR=ELECT PC=ORE /қ=XECUTE " \(L$,24)1)"587PO55507>X2X0HAN$(13)2140#R20807\X0882:4100EaX22160mbH3H11H12H15H20882:1550oX1882:230p882:225I116:POI,5:: P$(1)"LANKSPEED" P$(2)"64 UG EP" P$(3)"128 UG E d53280,12:53281,11Mi" FLANKSPEED ";~n" MISTAKEPROOF ML ENTRY PROGRAM "s" CREATED BY G. F. WHEAT "x" COPR. 1984, ION INTERNATIONAL INC. "}A5427254296:A,0:/ A":54276,17:54276,16:015,8,15:15,A,A$:15:A$:I GET FOUR DIGIT HEXX:B$;:T$p(T$)4380:430A14:A$(T$,A,1):450:T(A)16380:430:B(T(1)4096)(T(2)256)(T(3)16)T(4):A$"@"A$"G"T(A)(A$)5t          (Z) O SET A BLOCK TO ZERO, PRESS Z, AND ANSWER Y TO THE QUESTION. HIS WILL ZERO ALL BYTES EXCEPT FOR THE FIRST TWO. .   A$(135)" ":620) A$(136)" ":635O A$"@"A$"G"T(B)(A$)55:295u A$"/"A$":"T(B)(A$)48:295 "415:250 'A$""; ,205 1A0320 6A1:B1330 ;220 @B0(20);(20);:AA1 EAA1 J(20);::670(B07:AC(ADB):505:ADBENADSR:410:1955" ";:BC:ADAD8ZB$:B$(136)195o495:": ";:650><||?  `0|0000`@`0|     0`?01 0` 0p0000c0>  54272,4:54273,48:54277,0:54278,249:54296,15H A680699:B:A,B:s 169,251,166,253,164,254,32,216,255,96 169,0,166,251,164,252,32,213,255,96 B$"STARTING ADDRESS IN HEX":430:ADB:SRB 480:B0150 251,T(4)T(3)16:252,T(5:A$"/"A$":"T(A)(A$)48:$T(A)16:7 ADRESS CHECKFADEN385YBSRBEN390B256(B40960B49152)B53247395 ADDRESS TO HEXACAD:A4096:520A256:520A16:520A1:520T(AC Z198,0'dI0I1:"DDLOGO",8,14i53280,2Gn55,0:56,92:Ux53265,59d53272,120|56576,(56576)25425055,0:56,16053265,2753272,2156576,(56576)1"";:53280,6:53281,0:(14); "OADING 220 O LAST LINE' T" ":TAD((AD256)256)M YB0A1:TTA%(B):T255TT255S ^k cA%(A)T375:195 hB0A1:ADB,A%(B): m:"YOU ARE FINISHED!":535 r BELL AND ERROR MESSAGES w:"LINE ENTERED INCORRECTLY"::415|:276,17:54283,17& " 54272,00: 54273,33> ,54279,59:54280,33_ 6 X1 25: HI(X),LO(X): Xz @ X1 25: DU(X): X J X1 64: H3(X),L3(X): X T 54296,15 ^B1: X1 25 hAN$:AN$(13)460 r 54272,LO(X): 54273,HI(X) |TT8}}||D$6TT8}|||DD$J. (T) O ENTER TYPING MODE, PRESS T. NCE YOU ARE IN TYPING MODE, EACH KEY TYPED WILL BE ENTERED IN THE BYTE UNDER THE CURSOR, AND THE CURSOR WILL MOVE TO THE ON THE LEFT) AND PRESS U. HE BLOCK WILL BE LOADED AND THE FIRST HALF WILL APPEAR ON THE SCREEN. (P) O MOVE TO THE BLOCK LOADED PREVIOUS TO THE ONE ON THE SCREEN, PRESS P. . (X) O EXIT, PRESS X.  ɘ,L4Lé#$ +cЩ܍č`ɠ`ɯ`ϰ`א`ĩ+ LC+cLzԩ Ƣ  Э Ѝ O APPEARS ABOVE. HE POSITION NUMBER RANGES FROM 0 TO 255. SE THE CURSOR KEYS TO MOVE THE CURSORS. HEY WRAP: WHEN THEY GO OVER THE TOP EDGE THEY APPEAR ON THE BOTTOM ROW; WHEN THEY GO OVER THE RIGHT EDGE, THEY APPEAR IN THE LEFT COLUMN; ETC. RESS THE SKED IF YOU ARE SURE. RESS Y TO SAVE THE BLOCK. (V OR W) O SAVE A BLOCK TO A DIFFERENT TRACK/SECTOR, PRESS W AND ENTER DECIMAL NUMBERS, OR PRESS V AND ENTER HEX NUMBERS. RESS <> AFTER EACH NUMBER. , W, OR V CAN BE USED TO ) 3Х μ& ԩξ`!ԽɍԽɍԽʍmLI   b Ԣ   L=`ꭹ kLĭ>ʍʍ' % NEXT BYTE. HE CURSOR KEYS CANNOT BE USED IN THE TYPING MODE. O EXIT TYPING MODE, PRESS <>. (Z) O SET A BLOCK TO ZERO, PRESS Z, AND ANSWER Y TO THE QUESTION. HIS WILL ZERO ALL BYTES EXCEPT FOR THE FIRST TWO. .  NY TIME THE DISK DIRECTORY IS EDITED, UPDATE THE (LOCK VAILABILITY AP). YPE: PASS "V0" HEN, TO CHECK THE DISK DIRECTORY TYPE: CAT HIS PROGRAM IS ON ODAY ISK #13. URTHER EFERENCE: NSIDE OMMODORE OS BY . MMERS AND . EUFE!ЍԢL%LĩЭ!Ѝ Ѝ  ƍԢ.˝ 8˝ )Z˝ ŝ  LzN˝ XˍYˍB˝ KEY TO RETURN THE CURSORS TO THE UPPER LEFT-HAND CORNER. (H) O CHANGE FROM THE FIRST HALF-BLOCK TO THE SECOND HALF, PRESS H. O SWITCH BACK, PRESS H AGAIN. O CHANGE A BYTE BY ENTERING A HEX NUMBER, MOVE THMOVE A BLOCK FROM ONE DISK TO ANOTHER. F YOU PRESSED W OR V BY MISTAKE, GIVE A FALSE TRACK OR SECTOR NUMBER SUCH AS 99. (J) O MOVE TO THE NEXT BLOCK IN THE FILE, PRESS J. HE FIRST TWO BYTES OF A BLOCK GIVE THE TRACK/SECTOR& '( )* #$ L c­ `Lzd( cL­E L` AԍԠ ƌԈ`)ܥ)Н8ѝ9eɝ9P (K OR L) O LOAD A BLOCK USING DECIMAL TRACK AND SECTOR NUMBERS, PRESS L (LOWER-CASE ). O LOAD USING HEX, PRESS K. RESS <> AFTER EACH NUMBER. F YOU PRESSED L OR K BY MISTAKE, GIVE A FALSE TRACK OR SECTOR NUMBER SUCH AS 9LD IX ISK RRORS, ODAY #11, PAGE 16 IRECTORY DITOR, ODAY #8, PAGE 55 ISK DITOR, ODAY #7, PAGE 56 ISK DITOR, ODAY #5, PAGE 45 ISK IRECTORY ANIPULATOR, ODAY #3, PAGE 6 O PRACTICE BY MAKING A COPY OF DI 8˝gg )  LƢZ˝f LzƝ mLƭ9LUƩ09LUƩ܍čĩLFũ` 00000!!;PjZD  E CURSOR TO THE BYTE AND TYPE THE HEX NUMBER. F YOU TYPE THE FIRST DIGIT INCORRECTLY, PRESS AN ILLEGAL CHARACTER SUCH AS X TO KEEP THE BYTE UNCHANGED. O ENTER A HEX NUMBER YOU MUST TYPE BOTH DIGITS. XAMPLE: TYPE 0D FOR A CARRIAGE RETURN.  OF THE NEXT BLOCK IN THE FILE. (^) O MOVE TO THE NEXT BLOCK ON THE TRACK, PRESS THE KEY. (U) F A TRACK/SECTOR APPEARS AS A PAIR OF HEX NUMBERS ON THE SCREEN, MOVE THE CURSOR TO THE TRACK (THE ONEɝ8(  )iТƝ/ƝƝ0ǝ1ȝ2˝ЅЅjč獹 >ʍýʍíO'E TRACK/SECTOR OF THE FIRST BLOCK OF THE FILE. F THEY ARE 11 00 IN HEX, (11 HEX IS 17 DECIMAL) THE FIRST BLOCK OF THE FILE IS IN 17-0. F YOU MOVE THE DISK'EDITOR CURSOR OVER THE 11, YOU WILL SEE DEC=17 NEAR THE TOP OF THE SCREEN. F YOU PRESS U, THE ED OF THE FIRST BLOCK OF THE PROGRAM IS LISTED IN THE DISK DIRECTORY. HE TRACK/SECTOR ADDRESS OF THE SECOND BLOCK (THE LINK ADDRESS) IS GIVEN IN THE FIRST TWO BYTES OF THE FIRST BLOCK. HE FIRST TWO BYTES OF THE SECOND BLOCK (THE LAST BLOCK OF THE PROGRAMSAFE YET! HE SHOWS THE CORRESPONDING BLOCKS AS NOT HAVING BEEN USED. O CORRECT THE , AND MAKE THE FILE(S) SAFE, VALIDATE YOUR DISK BY TYPING: PASS"V0" 0r ;|h2,j;nG ;o*;/;B} p"{" _ ARTING AT ROW 3 COLUMN 6 OF EACH ENTRY) ARE ONLY USED FOR RELATIVE FILES. HEN THERE ARE FOUR BYTES WHICH ARE NOT USED AND TWO BYTES WHICH ARE USED BY THE INFAMOUS SAVE AND REPLACE. HE LAST TWO BYTES IN THE ENTRY, IN COLUMNS SEVEN AND EIGHT OF THE FOUR NTO DISK'EDITOR, FIND THE ENTRY WITHIN THE BLOCK (PRESS H TO SEE THE SECOND HALF-BLOCK IF NECESSARY), AND THEN CHANGE THE BYTE IN THE THIRD COLUMN OF THE FIRST ROW OF THE ENTRY TO 129 ($81) FOR A SEQ (SEQUENTIAL) FILE, OR 130 ($82) FOR A PRG (PROGRAM) FI BY HYRNE ACON ISK'EDITOR CAN BE USED WITH A 1541 OR DISK DRIVE TO EDIT ANY SECTOR OF ANY TRACK ON A FORMATTED DISK. ISK'EDITOR CAN BE USED TO UNSCRATCH FILES, TO RECOVER FROM AN ACCIDENTAL SHORT NEW (PASS"N0:NAME" WITHOUT I ITOR WILL JUMP TO 17-0 (THE TRACK/SECTOR UNDER THE CURSOR). HE SIXTEEN BYTES BEGINNING IN COLUMN SIX OF THE FIRST ROW OF THE ENTRY AND ENDING IN COLUMN FIVE OF THE THIRD ROW OF THE ENTRY GIVE THE FILENAME PADDED ON THE RIGHT WITH SHIFTED-SPACES ($A0).  ) ARE USED TO INDICATE HOW MUCH OF THAT BLOCK IS USED FOR STORING THE PROGRAM. . N DISK'EDITOR, A SCRATCHED FILE WILL HAVE 128 OR 0 ($80 OR $00) IN THE THIRD COLUMN OF THE FIRST ROW OF ITS ENTRY, AND IN A TRACK/SECTOR PRINT'DIRECTORYIVIDED INTO 8 COLUMNS AND 16 ROWS. HE DATA FOR THE FIRST HALF-SECTOR (HALF-BLOCK) APPEARS BELOW IN TWO FORMS. ACH BYTE IS GIVEN IN HEX ON THE LEFT AND A CHARACTER ON THE RIGHT. HE BYTE 65 (IN DECIMAL) WOULD APPEAR AS 41 (IN HEX) ON THE LEFT AND A ON TH ROW, ARE THE NUMBER OF BLOCKS WHICH THE FILE USES. HE NUMBER IS GIVEN IN LO/HI FORMAT (LO+HI*256). INCE 12 IN HEX IS 1*16+2=18, 18 BLOCKS WOULD APPEAR IN DISK'EDITOR AS 12 00, WITH THE 12 IN COLUMN SEVEN AND THE 00 IN COLUMN EIGHT. NY FILE LENGTH LLE. O ENTER HEX 81, PRESS 8 AND THEN 1. O ENTER DECIMAL 129, PRESS N, ENTER 129, AND THEN PRESS . OR EXAMPLE, TO UNSCRATCH THE SECOND ENTRY IN THE DIRECTORY, MOVE YOUR CURSOR DOWN TO THE FIFTH ROW IN THE FIRST HALF-BLOCK OF 18-1, AND THEN OVED), OR TO DO ANY OTHER DISK EDITING FUNCTION. EFORE USING DISK'EDITOR, MAKE A BACKUP COPY OF THE DISK. F ANYTHING ON TRACK 18 IS CHANGED, VALIDATE THE DISK AFTERWARDS: YPE: PASS"V0" OU WILL BE ASKED TO ENHE LOOKS FOR THE FIRST SHIFTED SPACE AND PUTS THE FINAL QUOTE THERE. HE REST OF THE NAME IS ALSO PRINTED WHEN THE DIRECTORY IS READ. T IS POSSIBLE TO HAVE A NAME SAY: "NAME",8: OR "NAME"SYS 49152. N DISK'EDITOR, SHIFTED SPACES ARE INDICATED BY A0 PRINTOUT, OR DIRECTORY'PROBE PRINTOUT, A SCRATCHED FILE WILL HAVE --- OR (0) IN THE COLUMN. IRECTORY'PROBE WILL ALSO INDICATE IF THE FILE IS THE WRONG LENGTH; THAT IS, IF THE ACTUAL CHAIN LENGTH DOES NOT MATCH THE LENGTH ON THE DIRECTORY BECAUSE THTHE RIGHT. ANY BYTES, 0 FOR EXAMPLE, ARE NOT USED TO REPRESENT LETTERS OR NUMBERS, AND ARE REPRESENTED ON THE RIGHT BY . (PERIOD). HE BYTE 160 (SHIFT-SPACE) IS USED TO FILL OUT ALL DISK DIRECTORY FILENAMES TO SIXTEEN BYTES. T IS REPRESENTED ON THE LEFESS THAN 256 BLOCKS WILL HAVE 00 IN THE EIGHTH COLUMN. HEN THE CURSOR IS ON THE 12, YOU CAN READ THE DECIMAL FILE LENGTH AS DEC=18 NEAR THE TOP OF THE DISK'EDITOR DISPLAY. . AY YOUR PROGRAM IS TWO BLOCKS LONG. HE TRACK/SECTORR TO THE THIRD COLUMN. HANGE THE BYTE TO 81 OR 82 (IN HEX). HEN SAVE THE BLOCK BACK TO THE DISK BY PRESSING S. . FTER MAKING THE CHANGES, LOOK AT THE DIRECTORY LISTING BY TYPING CAT. HE ENTRIES HAVE BEEN RESTORED, BUT THEY ARE NOT TER THE DECIMAL TRACK AND SECTOR NUMBERS. HAT BLOCK WILL BE LOADED FROM THE DISK. FTER A SECTOR HAS BEEN LOADED FROM THE DISK, THE DECIMAL TRACK AND SECTOR NUMBERS AND FIRST HALF APPEAR NEAR THE TOP OF THE SCREEN. HE 128 BYTES OF THE HALF-BLOCK ARE D ON THE LEFT AND + ON THE RIGHT. O TYPE IN A FILENAME, MOVE THE CURSOR TO COLUMN SIX OF THE FIRST ROW OF THE ENTRY, PRESS T, TYPE THE NAME, PAD IT WITH SHIFTED-SPACES, UNLOCK THE SHIFT-LOCK KEY IF NECESSARY, AND PRESS . HE NEXT THREE BYTES (STE FILE HAS BEEN OVERWRITTEN. O UNSCRATCH A FILE, FIRST LOCATE THE DISK DIRECTORY BLOCK WHICH HAS THE FILE ENTRY (THIS IS CLEARLY LABELED IN THE PRINTOUT FROM DIRECTORY'PROBE OR CAN BE FOUND BY READING DIRECTORY NAMES FROM DISK'EDITOR). OAD THE BLOCK IT BY A0 AND ON THE RIGHT BY +. . (I) HENEVER A HALF-BLOCK IS DISPLAYED ON THE DATA SCREEN, YOU CAN SEE THE INFO (HELP) SCREEN BY PRESSING I. HE INFO SCREEN LISTS ALL THE DISK'EDITOR COMMANDS. RESS ANY KEY TO RETURN TO THE DATA  INPUT "": LINE$ UNTIL LEN(LINE$)>0 LASTCHAR:=LEN(LINE$) COMMAND$:=LINE$(LASTCHAR:LASTCHAR) IF LASTCHAR>1 THEN LINE$:=LINE$(1:LASTCHAR-1) ELSE LINE$:="" ENDIF ENDPROC GET'LINE'FROM'USER // PROC ADD'LINE'TO'FILE OPEN FILE 8,"DA' 0.14 BY HYRNE ACON HE NEW ' PRINTS THE DISK DIRECTORY WITH OR WITHOUT THE SCRATCHED FILES AND THE BEGINNING TRACK AND SECTORS. HE BLOCKS FREE ARE READ FROM THE ; SO THAT THE "BLOCKS FREE" NUMBER MATCHES THAT GIVEN BY : BY HYRNE ACON ', MAY BE USED TO RECOVER A FILE WHICH HAS BEEN ACCIDENTALLY SCRATCHED (DELETED). ON'T SAVE ANYTHING ON THE DISK UNTIL THE ERROR HAS BEEN CORRECTED. IRST MAKE A BACKUP DISK, USING A WHOL MOST ANY EDITOR OR TO DO THE JOB! COULD HAVE ADDED THOSE FEATURES, BUT DECIDED TO KEEP IT SIMPLE AS A PROGRAMMING EXAMPLE. ONSIDER THESE EXTENSIONS AS AN "EXERCISE FOR THE READER." URTHER EFERENCE: LECTRONIC HONE, ODAY #10, PAGE 45 NEW MACHINE LANGUAGE PROCEDURE IS USED IN ' WHICH READS A FILE THIRTY-TWO BYTES AT A TIME, AND INDICATES THE END-OF-FILE BY GIVING THE NUMBER OF BYTES USED IN THE FINAL THIRTY-TWO BYTES. NY TYPE OF FILE CAN BE READ BY CHANGING THE OPEN FIL 18 SECTOR 0) INTO DISK'EDITOR, YOU CAN JUMP TO 18-1 BY PRESSING J. RESSING J REPEATEDLY WILL JUMP YOU THROUGH THE WHOLE DIRECTORY FILE. O GO TO THE SECOND HALF OF A BLOCK, PRESS H. . ACH DIRECTORY BLOCK IS DIVIDED INTO EIGHT EQUA T.FFDB",APPEND PRINT FILE 8: LINE$ CLOSE FILE 8 ENDPROC ADD'LINE'TO'FILE // PROC DISPLAY'MATCHES OPEN FILE 8,"DAT.FFDB",READ REPEAT INPUT FILE 8: TEXT$ IF LINE$ IN TEXT$ THEN PRINT CHR$(18),TEXT$,"." ENDIF UNTIL EOF(8) C CAT. CRATCHED FILES ARE INDICATED BY --- OR 0 IN THE -COLUMN. F THE SUM OF THE FILE LENGTHS AND THE BLOCKS FREE IS NOT 664, THE MESSAGE PASS"V" MAY FREE XX BLOCKS IS PRINTED ON THE SCREEN. F A FILE TYPE NUMBER IS NON-STANDARD, IT IS PRINTED IN PAE DISK COPIER SUCH AS FOUR MINUTE BACKUP. UT THE ORIGINAL DISK IN A SAFE PLACE, AND WORK ON THE BACKUP. . HERE ARE 256 BYTES IN ANY DISK BLOCK. OR EACH BLOCK OF A FILE EXCEPT THE LAST BLOCK, THE FIRST TWO BYTES ARE USED FOR ATA ASE ANAGER, ODAY #8, PAGE 25 AILING IST AKER, ODAY #7, PAGE 69 ATA ASE ANAGER IN 0.14, ODAY #6, PAGE 47 ISTRIBUTION OF A ISK IBRARY IST, ODAY #6, PAGE 50 K< T}$ ^ pA{ hh ,,8G7"E 7 STATEMENT WHICH IS IN . SSUE THE COMMANDS: NEW AUTO OW, TYPE IN THE PROGRAM. IT KEY TWICE IN A ROW TO STOP THE MODE. EE THE FREE BOOKLET FOR MORE INFO. ** OW TO ERASE LINES IN A PROGRAM IND THE LINE NUMBER OL ENTRIES: FOUR ENTRIES IN EACH HALF BLOCK. HERE ARE 32 BYTES IN EACH ENTRY. N DISK'EDITOR, EACH ENTRY IS EXACTLY EIGHT COLUMNS WIDE, AND FOUR ROWS LONG. ACH ENTRY IS USED TO STORE THE INFORMATION ABOUT ONE DISK FILE. N DISK'EDITOR, WE NUMBER THE EILOSE FILE 8 ENDPROC DISPLAY'MATCHES HILE NING, THE ACCEPTS COMMANDS AS LINES OF UP TO 80 (0.14) OR 120 (2.0) CHARACTERS. HE CHARACTER SPECIFIES THE COMMAND ITSELF, WHILE THE REST OF THE LINE FORMS THE "DATA". HUS, COMMANDS RESEMBLE RENTHESES IN THE -COLUMN. TRACK/SECTOR LISTING OF ' CAN BE USED WITH ' TO UNSCRATCH FILES WHICH HAVEN'T BEEN OVERWRITTEN: THE ARTICLE ISK IRECTORIES : NSCRATCHING ILES. ' LISTING INDICATES WHICH FILES ARTHE LINK ADDRESS OF THE NEXT BLOCK IN THE FILE. HE FIRST BYTE IS THE TRACK AND THE SECOND BYTE IS THE SECTOR OF THE NEXT BLOCK IN THE FILE. N THE LAST BLOCK OF A FILE, THE FIRST TWO BYTES ARE 00 NN, WHERE NN IS THE POSITION OF THE LAST BYTE IN THE FILETE IN THE THIRD COLUMN OF THE FIRST ROW OF ANY DIRECTORY ENTRY INDICATES THE FILE TYPE OF THE ENTRY: 0 DELETED ($00) 128 DELETED ($80) 129 UENTIAL ($81) 130 ORAM ($82) 131 E ($83) 132 ATIVE ($84) DDING 64 ($40) TO THE FILE TYPE NUMBER GIVES A PROTECTED FILE NUMBER. PROTECTED FILE CANNOT BE SCRATCHED. BSERVE THAT $82+$40=$C2 IN HEX; HENCE $C2 IS THE TYPE NUMBER FOR A PROTECTED PROGRAM FILE. HE BYTES IN COLUMNS FOUR AND FIVE OF THE FIRST ROW OF AN ENTRY GIVE THGHT COLUMNS FROM ONE TO EIGHT, AND THE SIXTEEN ROWS IN EACH HALF-BLOCK FROM ONE TO SIXTEEN. HE FIRST TWO BYTES IN THE DIRECTORY ARE NOT USED (EXCEPT IN THE FIRST ENTRY WHICH USES THEM TO POINT TO THE NEXT TRACK AND SECTOR OF THE DIRECTORY FILE). HE BYNGLISH SENTENCES! S YOU CAN SEE, THE OPERATION OF IS SO SIMPLE AS TO BE ALMOST INTUITIVE! T MAKES A GREAT OLODEX, EXCEPT FOR THE FACT THAT YOU CAN NEITHER SORT NOR EDIT USING ITSELF, BUT SINCE THE FILE IS STANDARD , YOU CAN USE E THE WRONG LENGTH (AND HAVE BEEN OVERWRITTEN). TRACK/SECTOR LISTING GIVES A DIRECTORY LISTING WITH THE TRACK/SECTOR OF EACH DIRECTORY BLOCK LISTED FOLLOWED BY THE EIGHT DIRECTORY ENTRIES IN THAT BLOCK AND THE BEGINNING TRACK/SECTOR OF EACH ENTRY. . HE DIRECTORY FILE BEGINS AT TRACK 18 SECTOR 0. RACK 18 SECTOR 0 HAS THE DISK NAME AND THE (BLOCK AVAILABLE MEMORY). HE FIRST EIGHT DIRECTORY ENTRIES ARE IN TRACK 18 SECTOR 1. HE REMAINING ENTRIES ARE ALSO IN TRACK 18. F YOU LOAD 18-0 (TRACK {*/_&SCRATCHED FILES AND BEGINNING TR/SECe`a4#FOR EACH FILE? (Y/N) N > hY-iH ;Rn\ ;fop5_,(ENTER 255 FOR NO SECONDARY COMMAND)e`az*SECONDARY COMMAND FOR PRINTER? -"INSERT DISK AND PRESS R{-_ Kef DIRECTORY: TRACK efa#/0_)df , SECTOR ef*d`a}!& 1s2s3{0h2*2#09i:Dm3*3 #209iNXnblov1 4r5{ 5 BY OEL . EA HIS IS A GENUINELY USEFUL LITTLE PROGRAM. T IS CALLED "" FOR "REE ORM ATA ASE". T IS DESIGNED NOT ONLY AS A SIMPLE TO USE OLODEX TYPE PROGRAM, BUT AS A EASY TO FOLLOW EXAMPLE OF STRUCTURED PROGRAMMING d} nx p{ FG !   ##$%$&#'#   ,#( UNDERSTAND A PROGRAM. VEN WITH NO COMMENT LINES, ANYONE WITH ANY PROGRAMMING SENSE SHOULD HAVE NO TROUBLE UNDERSTANDING IT. PRINT "FREE FORM DATABASE" PRINT PRINT "LAST CHARACTER IS COMMAND:" PRINT " ""."" TO ADD TO FILE," PRINT " ""?"" TO SE ODAY: (608) 222-4432. (TEXT IS ADDED TO FILE) MERGENCY: 911. (TEXT IS ADDED TO FILE) ODAY? ODAY: (608) 222-4432. ? IS FASTER THAN . EN INDSAY IS APTAIN . ODAY: (608) 222-4432. ^ (BOVE 3 L ETURN "_ READING DIRECTORY...e`a} p{ ;h Q2i  K(< Q,o "K<8_ 0 efef efef ef ef 2ef e`a ;$.8 B   6; 4 p/{787 7 7 ƭ ϫ  ̭`*}/4> p0{Hh 1)*iRU1: 2 0 &)( ( &*(~\ ) 4;f * 4;, AND WILL WORK, UNCHANGED, WITH EITHER VERSION OF 64 AS WELL AS . FTER DISPLAYING SIMPLE INSTRUCTIONS, THE PROGRAM ASKS FOR YOUR TEXT INPUT. HE LAST CHARACTER ON EACH LINE YOU TYPE IS THE COMMAND. NYTHING BEFORE THE LAST CHARACTER %K<);B*;B" & 0'K(<0 # &0 #O'K0 &G'K(< #; #; #;"# #;, '<6"ARCH FILE," PRINT " ""^"" SEARCH TO PRINTER," PRINT " ""@"" TO EXIT PROGRAM." PRINT PRINT "YOUR INPUT IS NORMAL." PRINT CHR$(18), PRINT "MY OUTPUT IS REVERSED." PRINT DIM LINE$ OF 80, TEXT$ OF 80 DIM COMMAND$ OF 1 // REPEAT GET'LINE'FROM'USER CINES PRINT ON PRINTER) ? HIS IS .. IS FASTER THAN . EN INDSAY IS APTAIN . ODAY: (608) 222-4432. MERGENCY: 911. @ 0310 EFORE RUNNING THE PROGRAM, YOU MUST FIRST CREATE A FILE CALLED "." FOR IT TO W;L}V` p{jh&,,8j!t"h, 2 28G9i~_ efa)_ df cf"Kef ef"Kefa_cfa "  h,i<_ BEGINS AT TRACK ef df , SECTOR ef d`an_poz}0 IS CONSIDERED DATA. HE FOUR COMMANDS ARE: "." DDS THE LINE TO CURRENT FILE. "?" ISPLAYS ALL LINES IN CURRENT FILE THAT CONTAIN THE INPUT TEXT. "^" AME AS "?" ABOVE, BUT PRINTER OUTPUT. "@" XIT THE PROGRAM ( KEY ALSO WORKS SAFELY ' '0(<@# ' '<J0 (---< (SEQe`a0_' ACH BYTE APPEARS AS HEX ON THE LEFTe`a*_! AND AS A CHARACTER ON THE RIGHT.e`a0_' HIFT-SPACES APPEAR AS A0 (LEFT) ANDe`a_ + (RIGHT).e`a,_# SE PASS"V" AFTER USING EDITOR.e`a _ I INFORMATIONe`a_0-9,A-F EN  $DISK'EDITOR'BOOT BY PHYRNE BACON FG !( 2_KefNEWe`a<_SIZEe`aF_ 10 EN#:=0e`aP;_220 IF PEEK(1264)<>49 OR PEEK(1265)<>49 THEN EN#:=1e`aZL_C30IF PEEK(1266)<>56 OR PEEK(1267)<>51 OR PEEK(1268)<>56 THEN E jTRACK 5t  H 5;~ _IcfaSECTOR 5 H 5;3>B F3,9 3; h F7j;;B*;Bh2,j&} p{" ; &} pN{ 2# $''$'; 7#I;B 7#  `}{ğ'^pywx#% {ۖ  #PRINT'DIRECTORY BY PHYRNE BACONIS IN THE PUBLIC DOMAIN3101 NW 2ND AVE(GAINESVILLE, FL 326072<FU;~PZdU;~nx p{  ƭ ϭ -;B #0-29  = nf ; G o *; }& p+{  _efa '_I INFOe`a >_  TRACK efdf SECTOR efdf ef 4ef HALFe`a _efa *< 4B$<$'; > _ TER HEXe`a_ N ENTER DECIMALe`a&_ T TYPING MODEe`a0_ HOME HOME CURSORe`a:"_ H OTHER HALF BLOCKe`aD_ Z ZERO BLOCKe`aN1_( L (K) LOAD BLOCK BY DECIMAL (BY HEX)e`aX(_ R RELOAD BLOCK FROM DISKe`ab'_N#:=1e`ad;_240 IF EN#=1 THEN CHAIN "ERROR'MESSAGE e`an,_#50 IF EN#=0 THEN CHAIN "DISK'EDITORe`ax _RUNe`a  _LOADING DISK EDITOR...e`a  _efa# IN KEY BUFFERv' 'I;Bh Fi> &(nJ2G<oF}P pG{Z0d_ INVALID TR/SECe`an;/;Bx}G p!{ 2;  2;}! psJsK{h FJK*,8iڠ_ ARE YOU SURE? Nefa1hY-*,8iFSSEQINITKACTYCNP9YOFP1XP8XOFP0XAOFDECNHOMECHNENHEXHELPJUMPQUESTRPTSECPSPNRELDOTOSOHWRBLKENKEYMOVESPRFIZBLKTDBLOCKLNKSCCTCSENPLAYPTPOSDINKEYTNCLRTPGETKMNSNH@ȫ Э ̭`} p{I0~$0 <" <,6 @  >J2T  );^h}r| p {&h &,jREAD 30 BYTES   efa H&#_ 8 7#B'Ief efa R _ efa \!#_ 9 7#B'Iefa f_`a p< z> , }+ H[t5{ B;< 5Q;B hK3V38<08i )#<BB E 5# <#)G"$'; mP<,i B ? 5; mP<,iA P RELOAD PREVIOUS BLOCKe`al,_# J JUMP TO NEXT BLOCK IN FILEe`av%_ ^ NEXT BLOCK ON TRACKe`a-_$ U JUMP TO TR/SEC UNDER CURSORe`a$_ S SAVE REVISED BLOCKe`a0_' W (V) WRITE BLOCK TO TR/SEC (BY HEX)e`a_ BDE2IERRPRG )2u )3 )4 )5 )6 )7ԋ )8 )9& )A 0: )B DN )C3Xb )DFl"U;~# B-P: 2 0 ~_7efa""U2: 2 0 6J( ( 6K( (~,6n@;;B;BJoT=^h2,j>h0r ;|h2,j;nG ;o*;/;B} p"{" _QFNURBHXCHATEJINSPRSPRONHEXPLAYNINCMZPDECVINVNUMTBTSPRG  )& sL)' s )   ) )( sL)) s )   ) )* sL)+ s )   )   ) ), sL)- s )   )   ) ). sL)/ s ) )0 sL)1 <;;BhD'2j;;B A , h2i    D'K(<    q<n  <&o0  C;:  D;D  B;N  ^_$';X} bl p{ B ? 5$ ? 5'; nP BX; oBH p{$";;B;B*;B/;B.80B ; <I;BL&hK3V38j ;DECIMAL <I;BVh2,j_  WRITE TOe`aX hL-K-9j_ LOADe`a`_ ENTER ;(efa X EXITefa} p {&_ REMEMBER TO UN-SHIFT-LOCKe`a+_" TYPING MODE RETURN TO EXITe`a.h K3i @I Ao  K-*04}  v <"h,jREAD 30 BYTES"h,jREAD 32 BYTES h*i  ?'K(<o ;#  $'I;h2j '; } p 2  _EVALUATING TRACKe`a E# _Edf:e`a  2E h Eq'0-i *E;,;B "# ,/ 6 @; ;B Jh 01129j(E T ^n ho rh |EJ  } p/d{ h * t  DISK'EDITOR BY PHYRNE BACONPUBLIC DOMAIN( L<2<F CD,P p{Z d ) n>;Bxh0j;$' $'' )Z >;Bh 0j ;   $' d! 4FIRST< 4SECONDh %0j; & )J' ))$ ;.8h(2)29iYB     '} p"v{P}" p>{P}> p,{< $'$'; '_POS=ef ,i` U1: 2 0 5*( ( 5,(~ 0 @; 1 @; o }/=`]d% mFЕT!   $' ) A;Bh *j ;   $'  $' )A;Bh*j;$'" $'', )N6@ )H<JT'G&;;B^ )0 ;# %#;## %#;# 8#0#'K<#  8#7#'K<<)# 8<$#' 8< 8#(<< # 8#0 8#(<#ih#0#*8G#09iF B 7I;B 7I;B;B;B h Fik & n ;;B;B;B o }' p{  DECIMAL NUMBER? B hB.B.8j@B 0 A }  p$ { @# 7#K< T}$ ^ pA{ hh ,,8G7 (;);B(;B);BLoV h,i`h,*,8j+jnt,~ ;o h-2j_ READ ERRORe`a.h/,j0;*;B/;B} p1{. _e`a}1 p{" FGG G!  G: :<H.R _e`a\< ? :$ ? ';fh<.<.8j@<p0zA} p@s<{+B $''$'; 7B |h 0j ;>B o    $' $'   $'  $'' }A p&sss{ h F*,8iQ "  # - #- #͙ + ƭ!  ;2;B;B;B/;B3;B;B;B(%*;;B;B(;B);B2!_Kef ALCULATING...e`a<(%#45F6#7P$89Z:; fa _efa# _efa # _efa _ 9 7BIe`a }@ $ p0֖{ . _efa 8>#_' e`a B}0 L ?AtC{ V DCI; `h0D.9D48i j D0) tm=AD.DF.8i/ ~ D7)ASAIBAMLKNKSCDIRQMNPTENTRYENDPTFULLNMARKPT'TYPELINKSDWNN1NCN2NDDINITGET2N3N4TDASSRPSCNDNLONGPT8QTRSEN5N6DGETFNUMFENDFEAGPRG END OF THE PAGE)e`a^}@hr p?t {|  h i} _ v )EY )Fl )I.> )U )K )LČ )P;;B;B )R )S=*;;B;B4_  SAVEe`a> H )  "P'P(PP&P0 ,;h;B;B:* P:P:B P:B P:BDN ;XPbPl}=v pY{ ;;B;B     (DIRECTORY'PROBE'BOOT BY PHYRNE BACON FG !( 2_KefNEWe`a<_SIZEe`aF_ 10 EN#:=0e`aP;_220 IF PEEK(1264)<>49 OR PEEK(1265)<>49 THEN EN#:=1e`aZL_C30IF PEEK(1266)<>56 OR PEEK(1267)<>51 OR PEEK(1268)<>56 TH vy #DIRECTORY PROBE BY PHYRNE BACONIS IN THE PUBLIC DOMAIN3101 NW 2ND AVE(GAINESVILLE, FL 326072<FU;~PZdh,jnU;~x p{$   ƭG df cf"Kef ef"Kefa8_cfaB ' L<_ BEGINS AT TRACK ef df , SECTOR ef d`aV,h,j_ DISK BLOCK CHAIN:e`a`(  j h 2 28j" At}#~ p&{)%_ KefDIRECTOR *,7Gi*h,j_,d`a4h)G 2i> h8,iH_ efaR9\n f h<2iŗp_ efKe`azn%_ efKe`ao9_ Ke`aoon˘ h0iP+_ 2j ';}  pX{ ;;B7_Kef( THE DIRECTORY IS ALWAYS PRINTED FIRSTe`a -_$ FRAGMENTS ARE BLOCK CHAINS WHICHe`a*,_# ARE NOT CONNECTED TO THE DIRECTORYe`a4) PRINT FRAGMENTS? (Y/N) Y >hN-j 0(<#  <0 6---< 6SEQ@2̊J );T^}h p_{r|&h&,jREAD 30 BYTES  Y: TRACK efa*+;,-;B#./+0;-1;B_0df , SECTOR ef1d`a)}& p$8{'_ efdf BLOCKS FREEe`a )?709 B L V) `}( j @>rA{ t A ~ ;H1_( PRINT COMPLETE BLOCK CHAINS OR JUSTe`aR& BEGINNING BLOCKS? (C/B) C \hB-j;f4_+ (ENTER 255 FOR NO SECONDARY COMMAND)e`ap+ SECONDARY COMMAND FOR PRINTER? z,! INSERT DISK AND PRESS RETURN "_ s;{h;4;.8i\_ 6;efanz_(ef;df)efao}' p:˕s"{h"."$*8i_ 5"efanǕ_"dfao}: +s*;?,;B h,i&:* _-efao h ; P. ZE"# d _Ed`a n 2E x*E;,;B0;B1;B / h0,1,8i  *q,'3<UNUSED MSD m 01i  0q1'1<CHAINED TO m02i *q,'2<UNUSED 1541 n o K E B;D ^_$';N}X p [{b <lv"h,jREAD 30 BYTES"h,jREAD 32 BYTES h*i  ?'K(<o{ ;T#  $'I;h ! 4K<+;B-;B" 5 0'K(<0 # 50 #O'K0 &G'K(< 2; 2; 2;# 2; <"  $_`a |}>  p1]{ K3 K- }1  p+{{ "/B 0_' ELCOME TO DISK LOADED 0.14 !!e`a 1_(OU MAY LOAD THESE 0.14 PROGRAMS:e`a _`a  $) _CHAIN "ef $ef"e`a $ KefKe`a & 4D: h]7ic _ efe`a3np4C:o 41n!&o0I:}?DN pI{Xb DS:l v_ RESS ANY KEY. e`a 1"B}I p/{  _efa0_'R'EOF LINE'COUNT PAGE'HEADER PRINT'LINE PAGE'FOOTERFILE'TO'SCREEN LINE'UP'PAPER MAX'FILESXZEXITSTRINGCHARNUMT CLOSE'FILESLIST3333V PRINT'ALLSTOPPEDI2 NUM'ARITCLESTESTLIT INFO'TEXTL) s )   ) ) sL) s ) ) sL) s ) `2_) READ AND PRESS THE KEY efajot~  ' N hCi  )<n  ).TXT(<oBܜ QK BBI:hK0j BBK)K<Bh) *i2 h i" hCi n ?fz:ٔHxRsݖܞҝ}n0 0 13 1 14 HOY! ISK OVEMBER HOY! ISK OR OVEMBER 1986 ATA ASE RINT IR ISK DITOR IR ROBE ECOVERY DITOR-ART2 *END* FREE'FORM'DB DIR'PROBE'BOOT DISK'EDITOR'BOOT PRINT'DIRECTORY  & RP 2:%   &-_$R, YOU MAY ENTER LIKE THIS:e`a 0  :_BASICe`a D  N X}+ b l p"{ v_KefKefa }"  p,qt { "  &  $_cf $e`a :       e`a_ef'cfe`a0_'e`a _e`a }/ pLo{ @ 6: 5 COMAL ARTICLE* hM7ik4N)>@N'6'H5 N.TXT(R h B _KefKefa_FREE FORM DATABASEe`a_`a(#_LAST CHARACTER IS COMMAND:e`a2_ "." TO ADD TO FILE,e`a<_ "?" TO SEARCH FILE,e`aF!_ "^" SEARCH TO PRINTER,e`aP_ "@" TO EXIT PROGRAM.e`aZ_`ad_YOUR INPUT IS NORMAL.e`an , (o2n.<!FoPoZ}.dn p#wtEt {x/%_ egEegFOReg ef&cfe`a}# p%ɝtFrG{ hG2*j_`aHG_Fefa_`a }% p@Ӟ{"  & ._%LIGN THE PAPER NEAR THE  DIM'VARIABLESINITIALIZE'SYSTEMMENUMOVE'BARMENSELECTEDEXECUTE'OPTIONROWMAX DISK'NAMEMONTHNAMEARTICLESPROGRAMS PRINT'OR'VIEWTEXT MAX'LINES LEFT'COLUMNOPTIONSHEADER PROMPTCOLOR MENUCOLOR OPEN'FILEBACK'BOR' EXTRACOLOR NUM'PROGRAMS NUM'ARTIPNjLNFCMDGET'LINE'FROM'USERADD'LINE'TO'FILEDISPLAY'MATCHES < DS: EAD ON THE CREEN< RINT ON THE RINTER< ETURN TO THE ENU< <::BD:B} pYt{ h iA )"  _7 ?   _Y @6:B *5  4_ > HM R \}, f pp- z'rA{ z"  &  BĚA _cf 'Be`a B :  #$A)G#%'  }-  p.6z MjNc:\NРf hNc*igp 6:  B DS:LI0~Vo`oj}LbsG:0զxhPI¶zNϬʬŬ Q<|h Q0in   Q)<n| <o}  p{DAT.FFDB_e`a}  p2{DAT.FFDB & h6i0 _Kefa:_ef.e`aDoN ]Xb}YT `a * w4 x > yHR}\f p{p :z @@0     =  h2i&_LOAD'ERRORS CODE IS INCORRECTe`ao COMALERRORS <h00-i @ * BY C THOMPSON(2< 'F uPZDkdn p{x :#ARTICLES        & RP 2:% Z*dn pr{x )R i+ |L , COMAL ARTICLE  - #EATURE RTICLES .   "/B0_'  ROGRAMS ON THIS ISK e`a & ثͭЭ@8hX`" "CHRIN" CALL LOCATIONS:,ny6@} INTRO'SCREENDS LOAD'ERRORSCH N nU!  *o4}>H pj{R"\ #  f$_cf $e`ap z$%' &  7_. EWSLETTER ON ISK e`a/_&SE THE CURSOR UP/DOWN KEY TO CHOOS HR$( $<\4D:7D:BMD:Bf 89Bp 4(z DS:I0~n!o}5 p:Д{ hMj4C:h^-j4C:h;,j7C:M4:}:   p8?{ 6=;:B $ . h]7i" 8 ;= B ; L: Vn/ o$ ƭЭ. ϭ8 ЭxBH)LЭhXȭЭV Э߭ ̭` `jt}~ p{ : R   ( EAD RTICLES< UN ROGRAMS<" EARN BOUT <, RINT RTICLES<6 UIT HIS ENU<@}JT p{^  ROPER ISK<h :r :|   "$],_cf $e`a6$=@#$)G#%'J :T. ^hr}| t0{ N0 <N 00-  p!{ "/B_ : efe`a & JANGE'ERROR'ROUTINE EXPAND'RAMQUITADDRCHECKSUMADDRESSVALUELOCBYTE ++` 0;fg6 6 0c)0L'e~ )`d,e 0L PLLň Lb`L 0L E Ae`a/_&SUBMENU. HEN PRESS RETURN TO EXECUTE.e`a}pz'r({ D:)D:B *!h0j):)C:B  h(*i':)C:Bn$:)C:B.o8 BC:LV`j h)it &  `4C: jo t 479 ~}8  p9I{ < h4iy $;_ $e`a n? =:  h]7i ==   hK =6iՕ _ =ef+cfe`a n _ =ef)cfe`a o (: 2n, <4C: F$%=' P _ $e`a a  =     77  =      \7 ( '2 '< =FPZh72id+_"CHECKSUM ERROR FOR DATA STATEMENTSe`an%_ *** PLEASE RELOAD COMA  NAMES.DATNNNNNN N N  ! FG ::BN h *END*3i =&  <0o: *END*-D N]7S  _UTeg eg IN THE DRIVEe`a & &_AND PRESS ANY KEY TO CONTINUEe`a1}!&0 p&rr2|:2)D)G($'G&N)G($'G%X)b}&lv p3{ 7478*_!RESS RE INFORMATION PLEASE CONTACT efa "$_=efa , _ Ke`a 6,_ SERS ROUP, IMITEDef)cfa @_HOY!e`a J_6041 ONONA RIVEef)cfa T"_45 . 34TH T., UITE 407e`a ^_ADISON, 53716ef)cfa h_EW ORK, 10001e`a r ~_ eg ')efcfa &_ eg ')efcfa:n &_ eg ')efc`ao} *1{ < ԏ -   - !(- K 'K2<-FP  Z$ do n=,49 xo > }9  p<Ԗ{ %-O _efGcfeg6d`a 9_:eg eg1986ef,cfRTICLE ILENAME:eg e`a %-O _`a _`a }<  p>1{ $4;)_`a $_=efa 0_' OR MO L ***e`axo" OPEN TEXT "FILE" FOR READING:Э " NEW ROUTINE FOR "CHRIN" CALLSЭ'xH)ЫЭ N =XN b-l =v  UIT ENU< =  < DS: EAD ON THE CREEN< RINT ON THE RINTER< ETURN TO THE ENU< <::BD:B} pYt{ h iA  TO READ OR ^ TO QUITe`a*_! e`ahM^-9j4C: }3 p5t {Bޓ Qh BK1iړ B BI)K<o B  h i* 4> LP: 60  0,189,107,192,240,15,133,251C  189,134,192,133,252,189,160,192g  145,251,232,208,236,96,165,95  208,2,198,96,198,95,164,11  185,251,192,145,95,136,208,248  76,42,165,203,218,222,132,186  205,208,231,241,6,11,245,19  FORMAT ERROR SYNTAX ERROR TYPE CONFLICTFUNCTION ARGUMENT ERROR%STATEMENT TOO LONG OR TOO COMPLICATED SYSTEM ERROR NAME TOO LONG BRACKET ERROROVERFLOW ERROR IN STRUCTURED STATEMENT ERROR IN GOTO STATEMENT STACK OVERFLOW UNKNOW 01) `B01 SIZZLE OFF SIZZLE ON $ķ LM-W … o nok  iii i д o U C )i.) ,  DELETE "0:HI"$ BY DAVID STIDOLPH & ROBERT ROSS SAVE "0:HI"(2 !< FGF PZ d 0n 1x g LIST WITH INDENTg TO DISK DRIVEf LOWER/UPPER IN DATA STATEMENTS":B (147)::10)"DISK OR TAPE (D/T) ";:A$p (A$,1)"T"DV$"PREPARE TAPE":DV1:220 (A$,1)"D"DV$"INSERT DISK":DV8:220 180 :4)DV$", THEN PRESS " A$:A$(13)230 :13)"-WRITING FILETED;NOT IMPLEMENTED<OPERAND EXPECTED[ USER ERROR #1\ USER ERROR #2dGRAPHIC NOT ACTIVEe ILLEGAL COLORfILLEGAL PLOT COORDINATESQ2Q$CDADCQ  22,206,31,32,33,132,133,2539  252,162,180,194,255,0,192,192_  192,165,165,165,165,165,165,166  166,164,165,165,192,165,165,165  164,164,192,192,232,232,230,231  193,193,192,193,193,192,192,193  192,193,192,193,192,192,176, N VARIABLE PROCEDURE PARAM ERRORINDEX/PARAM ERRORSUBSTRING ERROR-COMMAND, ARRAY, SUBSTRING, OR PROCEDURE ERROR INDEX ERRORILLEGAL NO. OF INDICESSTRING ASSIGNMENT ERRORFUNCTION ARGUMENT ERRORNOT IMPLEMENTEDZONE VALUE INCORRECT E***x ,0NæĥĮĄ l 0- jđĐđ wHhX`,8đei`,p8)M**M**M**M***л` CASEh00-j p{hI(2i33'" , ;6 D2@ I(J UIT _ ^ `h hr p'| p7 u -' F$"LONG LINES":251,(71):252,(72)@ AD(251)(252)256i 183,(AD):187,(AD1):188,(AD2) 184,DV:186,DV:185,1 "251,0:252,192:780,251:781,186:782,192:65496 ,(147)::17)"DONE!!": 6 169,0,168,133,251,133,253,1 &CAN ENTER COMMANDS BY JUST TYPING THEMe`a&._%IN AND PRESSING THE Ξ KEY. HEe`a0+_"FOLLOWING ARE JUST A FEW EXAMPLES:e`a:_`aD,_#RUN - UN THE CURRENT PROGRAMe`aN._%LIST - ISTS THE CURRENT PROGRAMe`aX,_#CAT - ISPLAYS 176 86,192,192,192,1,1,4,4! 159,159134,192,133,252,189,160,192g  145,251,232,208,236,96,165,95  208,2,198,96,198,95,164,11  185,251,192,145,95,136,208,248  76,42,165,203,218,222,132,186  205,208,231,241,6,11,245,19 STEP = 0ARRAY REDEFINEDDIMENSION ERROR CASE ERROR END OF DATAFILE ALREADY OPENFILE INPUT ERROR END-OF-FILE FILE NOT OPEN CON NOT POSSIBLE!ERROR IN PRINT USING"DIVISION BY ZERO#PROGRAM NOT PREPASSED$FILE NOT FOUND% &NOT  B x <`;;ɂ*0?;!حǩ :XLE¢bB";;ȱ;  -:`JJJJ,, )) )й`   (  BOOT CALLED  o} p{_KefKefa,_#ELCOME TO DISK LOADED  0.14e`a2_)OU CAN NOW WORK DIRECTLY WITH THE efa0_'EDITOR. T WORKS MUCH LIKE SO YOUe`a/_ 62" @ 160,134,252,162,224,134,254,177H J 251,145,251,177,253,145,253,200n T 208,245,230,252,166,254,232,208 ^ 236,165,1,41,253,133,1,162 h 21,189,96,165,157,192,192,202 r 16,247,162,29,189,202,170,157 | 214,192,202,16,247,162,0,1 DISK DIRECTORYe`ab_LOAD "FILENAME"e`al_SAVE "FILENAME"e`av0_' - HESE TWO COMMANDS WILL LOADe`a0_' OR SAVE A PROGRAM USINGe`a"_ THE DISK DRIVE.e`a_`a/_&OR MORE INFORMATION SEND A  TO:e`a  #_ SERS ROUPe`a#_ 6041 ONONA RIVEe`a#_ ADISON, 53716e`a!_OR CALL (608)222-4432e`a} p{_`a _NEWe`a 0_'RESS TO CONTINUE TO MAIN MENU.e`a_CHAIN "MENU"e INPUT FILE'DEVICE NOT PRESENT(NOT OUTPUT FILE)STRING NOT DIMENSIONED*LOCAL VARIABLE ERROR4TOO MANY NAMES5FUNCTION VALUE NOT RETURNED6NOT A STATEMENT7!NOT A COMMAND OR SIMPLE STATEMENT8 ',' EXPECTED9NUMBER OUT OF RANGE:EXPRESSION EXPECX$0xN 2301 oPP 8G" :# `iD :DL uLEEEE 4Z P$` ЪЍ!,,0`T OF RANGE:EXPRESSION EXPEC00,016,040,040,199,000,000,000,-1 SPRITE DATA*255,255,255,135,255,193,143,254O225,143,252,097,132,000,065,133t147,065,132,214,065,134,016,193132,040,065,132,000,065,186,124189,197,069,067,130,130,129,129 125,033,128,8ǩH#˝hL| nLh VʩL˹ Lz` D  z N L ;LzY Ǎˢ?Gеhk` |  zʩLI]x4Wu020,000,000,020,000,001,085,064#z004,020,016,144,020,006,032,0856#008,129,020,066,004,020,016,004[#150,016,036,020,024,008,085,032#032,085,008,001,215,064,005,085#080,006,065,144,020,000,020,044#000,000,000,001,065,064,007,2jfILW LC 0; A[`( 7˭L +L aʢ, 7˦LMLK` `ONOFF NSYNTAX PATROL DO YOU WANT TO USE FAILSAFE, TOO? (Y/N) PLEASE LOAD FAILSAFE... AHOY!!!" "":53280,0:53281,6G ADD4915249342:N:CKCKN:ADD,N:z CK19399 "ERROR IN DATA STATEMENTS...":"'SYS49152' TO TOGGLE DELUXE LIST"(491522<173,189,192,73,255,141,189,192,208,18 F169,26,141,6,3,169,167,141 69,32,76,73,83,84,32,18,68,73A 83,65,66,76,69,68,146,45,89,79d 85,32,77,65,89,32,69,68,73,84 32,76,73,78,69,83,13,0,0,0 034,208,8,173,190 x192,73,255,141,190,192,173,188,192,201 58,208,18,173,190,192,208,13,169,13  130,113,128,124,113 128,000,081,128,000,001,128,000- 001,128,000,001,255,255,255,060R 255,255,255,135,255,193,143,254w 225,143,252,097,132,000,065,132 %214,065,132,016,065,134,016,193 *132,040,065,132,130,065,186,068 /189,197 ˫HS깍-Yob1Pʍʍʍˍ56ʍXYʍ ˍTU]ˍ빎칩7ʍ̧ͧrˍIJ\ˍ`DYzԨ'001,128,000,001,255,255,255,060z!C005,020,080,000,085,000,000,215!H000,000,125,000,000,020,000,001!M085,064,005,086,080,020,085,020!R08zSVZmJ^y « ̫ͫꝐN{|}VдѴZp[q ˩ɠL˭ɲL aʠ Lt Vʥ-./102 aʩ5 XL0 : sLʢX" 084,044,000,020,000,001,085,064#z004,020,016,144,020,006,032,0856#008,129,020,066,004,020,016,004[#150,016,036,020,024,008,085,032#032,085,008,001,215,064,005,085#080,006,065,144,020,000,020,044#000,000,000,001,065,064,007,2 69,205,160,3,32,30,171,96,169,111B Z141,6,3,169,3,141,7,3,169,162g d160,3,32,30,171,169,0,141,250,3 n96,141,248,3,201,34,208,8,173,250 x3,73,255,141,250,3,173,248,3,201 58,208,18,173,250,3,208,13,169,13 32,210,255,169,32,32,210,2532,210,255,169,32,32,210,255,32,210J 255,173,141,2,208,251,173,188,192,76n 26,167,68,69,76,85,88,69,32,76 73,83,84,32,18,65,67,84,73,86 65,84,69,68,146,45,68,79,32,78 79,84,32,69,68,73,84,32,76,73 78,69,83,13,0,68,69,76,85,88w68,73# 83,65,66,76,69,68,146,45,89,79F 85,32,77,65,89,32,69,68,73,84f 32,76,73,78,69,83,13,0,0,0m 0248,3,201,34,208,8,173,250 x3,73,255,141,250,3,173,248,3,201 58,208,18,173,250,3,208,13,169,13 32,210,255,169,32,32,210,250,085,005,064,150,001,064,170"W001,097,085,073,133,065,082,1493"\000,086,020,000,020,020,000,020X"a020,000,020,020,000,020,020,000}"f020,028,000,052,252,000,063,044"k000,065,000,001,020,064,012,040"p048,000,020,000,000,065,000,000" yL VʩXz{"̝L VL7/xX` o oLzʢ̕`` s ,AL08:4Lk A,[( s(, sL0:L y :`hhLhhLz000ؽ ` L@j#ɁibɁ aiL0˥aib "d **************************Cn * LONG LINES *dx * BY RICK NASH 5/28/86 * **************************""::7)"-CHECKING DATA STATEMENTS-"CK0:I4915249337:D:I,D:CKCKD: CK30183:8)"ERROR WELCOME ABOARD THE U.S.S. NEFARIUS !"U 56576,(56576)252:53272,12:V53248:V21,. D49152:X.319:A:D2064X,A::V,92:V1,208 V8,240:V9,210:V23,27:V43,14 V27,23:V28,12:V29,27:X.48:D2564X,255:X4 ’  ߒ ";;"  ’ ™ ™ ’  ߒ ";S$(0);](157);(148);(32);(19);:n SET CURSORP,.:Y,.:X,24:PLOT: ABORT/FRY ALIENSCSS24:SC,.::S1,10:S5,75:S6,30:S,25 S2,16:P,.:PLOT:((NT)".0",2,4);ID1016,21:V37,(0)10:V38,(0)10:V41,(0)10vV42,(V41):F(1)12LV42,(0)10 V21,(V21)4W((0)5)2:W$S$(39W)X,20:Y,23:P,.:PLOT:W$;:550640:L12565 550: 0:640:550 510:S$(.);:510:9)R$;"RATING>";>X.10:X220KX2120KS$(28X);:550S:640:640:550j648,4:679,.:679x RATINGS RAW RECRUIT,SPACE CADET,ENSIGN,SPECIALIST,LIEUTENANT,1ST LIEUTENANT CAPTAIN,MAJOR S$(7)"ALPHAN":S$(8)"SOL":S$(9)"TIRUS":S$(10)"AMBASSADOR":S$(11)"TRADER AS$(12)"CREWMEMBER":S$(13)"PILOT":S$(14)"ENGINEER":S$(15)"INSPECTOR FS$(16)"OFFICER":S$(17)"PASSING THRU RADIATION STORM" KS$(18)" $%&# COMPUTER ON THE FRITZ !":S ߒ 9)"֒.9)"  P9)"  r9)"  9)"  9)"  9)"  9)"  863:D2564X,.:$X.63:D2664X,255:[V4,250:V5,216:D1016,20:D1017,26:D1018,24D1019,24:V6,159:V7,133:V39,11:V40,(V33)A780:X781:Y782:P783:V2,159:380V3,133:S54272:SCSS24:SC,.:510:S$ 4,15:S4,23:V3,90,510:S$(.);:510:9)" ABORT ! ";^SC.64:(14);:V33,SC:(142);:S15,SC:V3,133:S4,.:550:640:510:S$(.);:! BEEP&SCSS24:SC,.::S24,15+S1,25:S,5:S5,20:S6,20:S4SCSS24:SC,.::S,.:S5,8."S6,123:S24,15:S4,21:SC133\'IR.1:F1(V3):S15,F1.1:S1,F1.01,EC(((1)VI)((1)8F)).1:VIVI1X,20:Y,16:P,.:PLOT:C$;((NBEC)".0",2,4);6"";((NTEC)".0",2,4);;SBV,ADMIRAL,GALACTIC WHIZ KID,REGULAR RICKY ROCKETREN WAVEM D $$$,%%%,%$$,$%$,*(*,(*(,)(),()(,$%%,%$$^ ML COPYDOWN ROUTINE 169,,133,251,133,253,169,208,133,252,169,240,133,254,162,8 160,,177,251,145,253,136,208,249,230,252,230,2$(19)"TRANSMISSION GARBLED!"g PS$(20)"PHONY...":S$(21)"WE TRY TO CONSERVE ENERGY HERE":S$(22)"LUNCHTIME US$(23)"METEOR BELT-TURBULENCE AHEAD":S$(24)"ANOTHER ALIEN FREELOADER." ZS$(25)"YOU JUST FRIED THE ":S$(26)"YOU'RE FIRED!GET OFF MY SH  ߩ 9)"  >9)"  `9)"  8)"η Ϸ ߒ7)" ΤΒ ͤߒ 6)" ߒ 5)" (.);,S1,34:S,10:S5,129:S6,129:S24,10:S4,129aV21,27:SC26255:D1016,SC:D1020,SC::550D1020,25:D1016,20:S4,.:510:9)S$(1);F.:640:R%22(0)3:(1).5F1NB((1)4550):NT((1)3065)NBNB((1),33:SC.75:0S4,.:5510:S$(.);:510:9);=:L12580,605,580,585,590,595,600,605U?640:510:S$(.);:jDC$X$:S$(18);:IV21,30:S$(22);:ND$X$:SB1:S$(17);:SD1018,(0)322:S$(19);:XC$X$:D$X$:S$(21);:22,((V22)248)(1)84@X,22:Y,23:P,.:PLOT:D$;S$(39.6W(EC)):UED1016,21.5(EC)((1).1)kJ(56321)239615OSCSC1:V3,SC:SC90295TV22,((V22)248):S4,.Y510:S$(.);:510^F9)S$(24);:D1016,20:KK1:64054,202,208,240,96 CHARACTER DATA#036,000,004,010,017,160,064,000,000L037,000,032,080,136,005,002,000,000u038,239,199,147,147,131,131,147,187040,000,056,040,040,239,000,000,000041,000,000,000,000,251,010,010,014042,0IP!" _S$(27)"GOOD JOB."1 dX.10:A$:S$(28X)A$:N iX.9:A$:S$(39X)A$:h nX.32:A:679X,A: s56334,(56334)254 x1,(1)251:679:1,(1)4:56334,(56334)1 }A:A1135 X.7:D:61440A8X,D::125# 648,192:" ֒ 4)""30)""?3)" HELMòòòIMAGEçߒ {2)" ѥ’ ™B ™R_ ’ ߒ "  ’ ™ ™ ’  ߒ "  ’ ™T ™W_ 10)10:NTNT((1)10)10:D1018,R%FD1019,R%:F(1)7LD1019,22((0)3)O550N$S$(3((1)7)):T$S$(10((1)7)):N$N$(32)T$510:9);(18);S$(2);N$;(19):550X,20:Y,16:P,.:PLOT:I$;((NB)".0",2,4);X,22:Y]SB1:D$X$:S$(23);:b CHECK FOR CORRECT ABORT&gV22,(V22)248Ml520:510:F9)S$(20);:510:355q510:S$(.);:510:9)S$(25);T$;"!";:KK1:510vD1016,20:640:360{ DELAYSC.3000:: RATE PERFORMANCE55:520:360c550:9)S$(27);:D1016,21;hLL1:640:C$I$:D$I$:V21,27:SB.OmL21550:185wrK6510:S$(.);:510:9);S$(26);w650|""8)"ͤ9)"  TELEPORTER ߒ 9)""":53280,6:53281,1A"DATAWRITER....64 VERSION"::_ DATAWRITER - 64~ RUPERT REPORT #35 *** C-64 VERSION *** =================================F$"TIME1" : DEFAULT FILENAME "":53280,6:53281,1A"DATAREADER....64 VERSION"::_ DATAREADER - 64~ RUPERT REPORT #35 *** C-64 VERSION *** ==================================F$"XX"15,8,15 : 8,8,8,F$ L    128  `  n n n n  m   m  ` JJJ  ȭ ɢFfȍ  )  ) 8  @  9 ȭ eȅȩ`eɅɩ   9 ʭ m  @>*@>@ř>ƙ?@?x?????ęԈȌ Ќ%Ќ(ȌР &Ȍ)ЩЍЍЩx ܩЍЩЩfčXЩu  =Ġ ͽ m ) H h  8 čĽč NnĐĩ )I H hiԢ yâ yíPL©ԩ׍Т yìЭ-``ąąĠ  e ą -'N" Ĉ  槥  ͽΆ`  VeΫ -@ @ @&P **))@UPTPT@? *8**T*T*T@PUPTPPPTT ` `@PPUPT@TT(@?+ 15,8,15:8,8,8,F$",W"= (15,DS,DS$ :DDDS : DD0 1000d 2 ******************************** < THIS LOOP GENERATES THE DATA F AND WRITES IT TO DISK P -------------------------------- Z N1 100 dT2TI2 n8,T2 x 15,DS,DS$ :DDDS: DD0 2000G ********************************g THIS LOOP READS DATA AND MANIPULATES IT  --------------------------------  :NN1 : D0D ":8,D ,:SSST: SS64 SS0 2000 6: N,ieʅʥe˅ˮ 8*ʑ`   . . .   i i@`  !      LHH i  ihh        ЮР`Ѕ@     `HH t ԩ =ĩ =Ģ =Ģ  = ƥ)  15 )Ģ yâ Щč'йčоĥ e ?  $ -L R  $ â-N\Ċ 0]Žjōiũ] Fĩ] FĤĠ" ?  $ -  Τ襨NLñVN- )`ei`e ` 0`' `HH hh  yâ LyâР 0 ^^Ќ!čЭ )L1L _oB ²³³³² j &'O(P)Qy{0@@@UUT(PLAYERS (1-4) PRESS ANY KEY1 EXTRA ROLL S * *  î ý P*SSST: SS0 1000+ N; : SHOW ACTIVITY1 X --------------------------------u END OF LOOP ******************************** 8:15  -- ERROR HANDLER -- 8 :15 : DD63 1030  : DS$ : "D,DD0 @ SS64 280< J --------------------------------V T END OF LOOP} ^ ******************************** h8 : 15 r  --- ERROR HANDLER --- 8 :15 : DD62 2030  : DS$ : "I/O STATUS ERROR # ";SS : hh`  ة) ݍx-  ȩ`ɩ@   ȩ\ɩ   Щ    \  + H Ih i   i    LqL @  9 ȭ eȅȩ`eɅɩ   9 ʭ m LΤ R  $ ͣİLi LeƩO F L Ĺĝڈ֍ĩЍЅЩ)mɧװĢ yí)ܠ: yЈčЩ%ЩԭЭ))ɧ װ}č -^)W Ԏ Ԏ~~{{{~~~~PPPPRPLAYERS (1-4) PRESS ANY KEY1 EXTRA ROLL S * *  î ý P*# ***************************E * TELEPORTER *g *BY CLEVELAND M. BLAKEMORE* ***************************53281,.:53280,12: A(63,2),S$(48) #VI5:K.:F.:NB.:NT.:W.:W$"":I$"":C$I$:D$I$:C.:CL.:SB.:SC.:LI/O STATUS ERROR # ";SS : /  "FILE "F$" EXISTS."v A$"" : "DO YOU WANT TO WRITE OVER IT (Y/N) (RETURN TO EXIT)";A$  A$"" $ A$"Y" 15,8,15,"S:"F$:15 : 30 . A$"N" 1040 8"WHAT FILENAME DO YOU WANT";F$ B 30x|#  "FILE "F$" DOES NOT EXIST." : F$""X "WHAT FILENAME DO YOU WANT (RETURN TO QUIT)";F$h  F$"" r  210ANIPULATES IT  --------------------------------  :NN1 : D0D ":8,D ,:SSST: SS64 SS0 2000 6: N,. (X$"":R$""W -X(TI37):PLOT65520:" PLEASE WAIT...INITIALIZING GAME." 2S$(.)"&CAPTAIN: ":S$(1)" STAND BY ....." 7S$(2)"PREPARE FOR ":S$(3)"KRELL":S$(4)"ALGON":S$(5)"BETA IV":S$(6)"CETAG < Ѝ!  < ة XL7N`|䧆N3LH1fGJP3W>/f.LOADER VERY-ABLE SHOWCHAR.SSHOWCHAR.O"d X 49152 49488:Y:SSY:n Y0 Y255 130Kx X,Y::140"**ERROR**":"PLEASE CHECK LINE"(64)256(63): S44677 "**ERROR**":"PLEASE CHECK DATA LINES 170-500":"":53280,0:53281,6:646,1 " C-64d%: X 3072 3520: Y: X,Y:SSY:110::&}n&: S49057 "**ERROR**":"PLEASE CHECK DATA LINES 140-390":x" C-128 BUG REPELLENT INSTALLED"" TYPE SYS 3072 TO ACTIVATE"  32,161,12,165,45,133,251,165,46,133,252,160, 80,208,245,230,254,32,210,255,169,4E h166,254,160,255,32,186,255,169,0,133l r63,133,64,133,2,32,189,255,32,192 |255,166,254,32,201,255,76,73,193,96 32,210,255,173,141,2,41,1,208,249 96,32,205,189,169,13,32,210,255,32 204,255,169, ,76,73,13,96,32,98,13,165,211X  234,41,1,208,249,96,32,89,13,169,13,32,98,13,32,152,13,169,4  76,161,13,147,83,67,82,69,69,78,32,79,82,32,80,82,73,78,84,69 " 82,32,63,32,0,76,44,13,234,177,251,201,32,240,6,138,113,251,69%!, 254,170,138,76_255,76,180,13,133,67,169,0,141,0,255,165,67,96M# 133,67,169,0,141,1,255,165,67,96,0,0,0165,250,208,218,177!@ 251,201,32,208,212,198,254,76,29,13,0,169,13,76,98,13,0,0,32!J 170,13,32,226,85,76,180,13,32,170,13,32,50,142,76,180,13,320"T 1 #"":53280,6:53281,1:646,0M" COMMODARES....DATE DITTY #1 "::b DATE DITTYt SOLUTION BY KEITH KUSHNER -VALID FOR 1900'S AFTER 2/28/1900 -ENTER JULY 4, 1986 AS 7,4,86( N0 6: D$(N):; 4 BUG REPELLENT INSTALLED "H 32,161,192,165,43,133,251,165,44,133q 252,160,0,132,254,32,37,193,234,177 251,208,3,76,138,192,230,251,208,2 230,252,76,43,192,76,73,78,69,32 35,32,0,169,35,160,192,32,30,171 160,0,177,251,1700,132,254,32,37N 13,234,177,251,208,3,76,138,12,230,251,208,2,230,252,76,43 12,76,73,78,69,32,35,32,0,169,35,160,12,32,80,13,160,0,177 251,170,230,251,208,2,230,252,177,251,32,89,13,169,58,32,98 13,169,0,133,253,230,254,32,37,13,234,76,195,255,147,83,67/ 82,69,69,78,32,79,82,32,80,82R  73,78,84,69,82,32,63,32,0,76{ 44,193,234,177,251,201,32,240,6,138 113,251,69,254,170,138,76,88,192,0 0,0,0,230,251,208,2,230,252,96 170,177,251,201,34,208,6,165,2,73,88,12,0,0,0,0,230,251,208,2,230,252,96,170,177g!6 251,201,34,208,6,165,250,73,255,133,250,165,250,208,218,177!@ 251,201,32,208,212,198,254,76,29,13,0,169,13,76,98,13,0,0,32!J 170,13,32,226,85,76,180,13,32,170,13,32,50,142,76,180,13,320"T 1#"":53280,6:53281,1:646,0M" COMMODARES....DATE DITTY #2 "::b DATE DITTYt SOLUTION BY KAREN MIDDAUGH K(12): I1 7: D$(I):: I1 12: K(I): "INPUT YEAR: 19";Y "INPUT MONTH (1-12): ";M 2 SATURDAY,SUNDAY,MONDAY,TUESDAY,WEDNESDAY,THURSDAY,FRIDAYc <"M,D,Y";M,D,Y: M3 MM12:YY1 FND2M(.6(M1))Y(Y4)3 : N((N7(N7))7.5): D$(N),230,251,208,2,2308 252,177,251,32,205,189,169,58,32,210a 255,169,0,133,253,230,254,32,37,193 234,165,253,160,0,76,13,193,133,253 177,251,208,237,165,253,41,240,74,74 74,74,24,105,65,32,210,255,165,253  41,15,24,105,65,32,210,4,165,253,160,0,76,13P 13,133,253,177,251,208,237,165,253,41,240,74,74,74,74,24 105,65,32,98,13,165,253,41,15,24,105,65,32,98,13,169,13,32 220,12,230,65,208,2,230,66,230,251,208,2,230,252,76,11,12 169,153,160,12,32,80,13,166,65,165h255,133,2,165,2,208,218,177,251,201?32,208,212,198,254,76,29,193,0,169X13,76,210,255,0,0,089,255,32,192 |255,166,254,32,201,255,76,73,193,96 32,210,255,173,141,2,41,1,208,249 96,32,205,189,169,13,32,210,255,32 204,255,169,70,13,32,210,255,76,180,13,32,170,13,32,228,255,76,180,13,32g"^ 170,13,32,186,255,76,180,13,32,170,13,32,189,255"h 76,180,13,32,170,13,32,192,255,76,180,13,32,170,13"r 32,201,255,76,180,13,32,170,13,32,204,255,76,180,13,32,170 #| 13,32,195, : M1 M12 30P ( "INPUT DAY: ";D : M2 D28 (Y4(Y4) Y0) 40{ 2 (M4 M6 M9 M11) D30 40 < D1 D31 (M2 D29) 40 FL((Y3)4):DA6YLK(M)D : (Y4)Y4 M2 DADA1 K Y0 M3 DADA1 P DA7 DADA7 : 807 Z M"/"D"/"Y" IS A "D$(DA)"DAY"y d MON,TUES,WEDNES,THURS,FRI,SATUR,SUN,0,3,3,6,1,4,6,2,5,7,3,5AREN MIDDAUGH K(12): I1 7: D$(I):: I1 12: K(I): "INPUT YEAR: 19";Y "INPUT MONTH (1-12): ";M255,169,13, "32,220,192,230,63,208,2,230,64,230U ,251,208,2,230,252,76,11,192,169,153} 6160,192,32,30,171,166,63,165,64,76 @231,192,96,76,73,78,69,83,58,32 J0,169,247,160,192,32,30,171,169,3 T133,254,32,228,255,201,83,240,6,201 ^,66,76,231,12,96,76,73,78T 69,83,58,32,0,169,247,160,12,32,80,13,169,3,133,254,32,107 13,201,83,240,6,201,80,208,245,230,254,32,98,13,169,4,166 254,160,255,32,116,13,169,0,133,65,133,66,133,250,32,125,13  32,134,13,166,254,32,143,13A HAHOY! NOV862ABOOT64 UG EP128 UG EPATE ITTY ATE ITTY 2RYPTIC ATHARM IGURESARM IGURES 2 DDLOGO%LANKSPEED  LOADERDIR 1("ENPINS OOT"UARDIAN OOT" ETONATION OOT" AEDALUSISCOOTKEP. OMP.EP. OMP. 2EP. OMP. 3EP. OMP. 4 ATAWRITER 128 ATAREADER 128ATAWRITER 64ATAREADER 64" NTX ATROL OOTK PRITE1.OENPINSELEPORTERUARDIAN ISCFAEDALUS 128 AM HECK YNTAX ATROLELUXE IST49152KK  ELUXE IST828ONG INESOMAL 64 OOTCOMAL 64 0.14 COMALERRORS ML.SIZZLE HI MENUKK NAMES.DAT FREE'FORM'DB DAT.FFDB DIR'PROBE'BOOT DIRECTORY'PROBE DISK'EDITORDISK'EDITOR'BOOTPRINT'DIRECTORYKKDATA BASE.TXTCOMAL ARTICLEPRINT DIR.TXTDISK EDITOR.TXTDIR PROBE.TXTNEW RECOVERY.TXTEDITOR-PART2.TXTETONATION KK << CD35-3 >>4 COMMODARES PROBLEM #31-2:K CRYPTIC MATH] SOLUTION BYt PAUL SOBOLIKz : C(9) : S$"9876543210"J9W((S$,2)):X((S$,3,3))(Y((S$,6,3)):Z((S$,2))2 WXYZ W"*"X"=" << CD35-4 >>4 COMMODARES PROBLEM #31-3:K FARM FIGURESc COMAL SOLUTION BYv SOL KATZ| : C1 98  : S1 98  : P1 98  : CSP100 (C10)(S3)(P.5)100 : "PIGS, COWS, S"":53280,6:53281,1B" COMMODARES....FARM FIGURES "Y FARM FIGURESk SOLUTION BY KEITH KUSHNER C19:S129:P100(CS):(C10S3P.5100)20:S,C: C;"COWS";S;"SHEEP";P;"PIGS" :"":53280,6:53281,1N" COMMODARES....REPEATED COMPRESSION "::k REPEATED COMPRESSION} SOLUTION BY KEITH KUSHNER I$:T1(I$):A$(I$,T,1):C$C$((A$)(B$A$)):B$A$::C$;P;"PIGS" :"":53280,6:53281,1Q" COMMODARES....REPEATED COMPRESSION #2 "::n REPEATED COMPRESSION SOLUTION BY TIMOTHY W. WILLIAMS A$:A1(A$):B$(A$,A,1):B$;:C$B$(20);C$B$:6,133,31,76,0,192 "20 "":53280,6:53281,1Q" COMMODARES....REPEATED COMPRESSION #3 "::n REPEATED COMPRESSION SOLUTION BY GARY HUDACH U$(145):A$:B$(32)A$:U$" "B$:T2(B$)(B$,T,1)(B$,T1,1)U$T)(32):X1200:uY"*"Z)<S$(S$,J1)(S$,10J)(S$,J,1)MFC(J)C(J)1 : C(J)10J 20oPC(J)0 : J1 JJ1 : 60 ATE ITTY 2RYPTIC ATHHHEEP =",P,C,S: !: -: P8: SB: CUG EPATE ITTY ATE ITTY 2RYPTIC ATHARM IGURES"":53280,6:53281,1Q" COMMODARES....REPEATED COMPRESSION #4 "::n REPEATED COMPRESSION SOLUTION BY JIM SPEERS "ENTER TEXT";X$:P$(X$,1)I2(X$):(X$,I,1)(X$,I1,1)40(X$,I,1)"/"40 P << RR35-1 >>5 DATAWRITERT RUPERT REPORT #35Z{ *** C-128 VERSION *** ================================= EE$(27)"J"(27)"Q" : LINE ERASERF$"TIME1" : DEFAULT FILENAME00 EE$;N; : SHOW ACTIVITY"I --------------------------------f END OF LOOP ******************************** -- ERROR HANDLER -- : DD63 1030 : DS$ : "I/O STATUS ERROR # ";SS : w* (B$,T,1)(B$,T1,1)C$C$(B$,T,1)K (:A1(C$):U$A)(C$,A,1)q 2B(C$)(B$):U$1B)(32):B,A ATE ITTY 2RYPTIC ATHARM IGURESARM IGURES 2 << RR35-2 >>5 DATAREADERT RUPERT REPORT #35Z{ *** C-128 VERSION *** ==================================F$"XX" : PUT DEFAULT NAME HERE #8,(F$)DDDS : DD0 2000#---------------------+T END OF LOOPR^ ********************************Yh_r} --- ERROR HANDLER --- : DD62 2030 : DS$ : "I/O STATUS ERROR # ";SS :  "FILE "F$" DOES NOT EXIST."2F$"":"WHAT FI$P$(X$,I,1) ( I: P$64 UG EP128 UG EPATE ITTY ATE ITTY 2RYPTIC ATHARM IGURESARM IGURES 2  #8,(F$),W*(DDDS : DD0 1000Q2 ********************************v< THIS LOOP GENERATES THE DATAF AND WRITES IT TO DISKP --------------------------------Z N1 100dT2TI2n8,T2xSSST: SS0 10 "FILE "F$" EXISTS."[A$"" : "DO YOU WANT TO WRITE OVER IT (Y/N) (RETURN TO EXIT)";A$k A$"" $ A$"Y" (F$) : 30. A$"N" 10408"WHAT FILENAME DO YOU WANT";F$B 30dT2TI2n8,T2xSSST: SS0 10oLENAME DO YOU WANT (D FOR DIRECTORY; RETURN TO QUIT)";F$B F$"" [  F$"D" : 2040e 210---------------------------:NN1 : D0D":8,D,:SSST: SS64 SS0 20006: N,D,DD0@ SS64J -----------  ********************************B THIS LOOP READS DATA` AND MANIPULATES IT --------------------------------:NN1 : D0D":8,D,:SSST: SS64 SS0 20006: N,D,DD0@ SS64J ----------- "Щ #Щ$Щx)Ѕ8 X s M˭ Щԩ Zʩ   ͽ0 8H% h8H$ h8 # )? = ?íw ͻ2-Щ ʢ KH ऎh.(( ` Hh Ψ Hh ʈΨ (` F ЍЩP ЩЩ@ЩЩэЩ'Ѝ(Ѝ*Щ+Ѝ,Ѝ-ЍТȝЩҍЩ ЩЍЩ&Ѝ%Щ.ЭX`Ѝ) XL18: !Щ:Lǩ!Щ έG"Ь#Ю$Ѝ#Ќ$Ў"Щ δ+ Э 8 а-ЍЭ ικLυ6 H*h H*h H*hi8i L{` @ SCORE:  GUARDIAN SHIPS:***  <"ɀ>$8`A>??????>>?/+*+*::>@ "B  !0B0 mLũ m'ȍi Эi Щ)Щ Ѝ-ȍЩ-ȍmЍнmЍнm Ѝ нm Ѝ }ȍ}ȍLŭ 8xm-ЍЩ-ЍЩȍ*Щ,Ю ЎЭ) 8m< &i>@`dY@ <?| 慢 ũ Ѝ Ţ ũ HL ȘH 轹Ȩʽ X h̻ ͻ ЍЭ  9  WL LpL{+ ;\0W8骍8Ei89-ЍТ ũ-ЍЩ ʬȩ2m `HH H*h H*h H*h H*h H*h H*h H*h H*heeihh`3y˅@`@ <~:\uן~yff`8l THE EARTH HAS BEEN DESTROYED ! YOU HAVE SAVED THE PLANET EARTH!PRESS FIRE BUTTON TO PLAY AGAIN! % <#> <###> <#####> <#######>#############%####coyȃȍȗȡȡȡȫ 2!@@A@ <?|L ŭ 8Щۍ-ЍЭ8 8LEũLEũ -ЍЭ%ЭmЭЍ)0 -ЍЩ` ԩ؝ ЍЩԩԩ ԩ ԩ ԩ ॎ'Щ'Ѝ&Щ'Ѝ%ЩԌ  LA ~({1p>?mLp -8ɦ%8ɲ 8ɂ8Ɋ ЍТ  L!Lܪ)YTi Э8Щ ЍЩ ЍЩ8z 8̰ L©L©L {PLwL~ L} ɪЭ `αJ|U U 8 ` B` ZX7nvZ;<(T8(8|$Z~<~$<(((00pp0pp00p0111````111``UZ&)Щ !ЍЍ Э @Щ X   ΧLɢ??` $ G $  P dd#@L%"J32,0,165,251,166,250,32,50,142,32,125,255,1500s"T32,42,13,0,165,254,208,210,133,250,165,252,1724"^201,208,176,4,144,72,144,199,32,125,255,17,1577"h17,29,29,29,29,29,29,29,29,29,29,29,336#r29,29,42,42,32,66,65,78119,12135 255,162,1,32,122,255,240,12,208,87,144,200,1718l 162,0,129,250,193,250,208,77,168,200,132,253,2022 208,198,140,0,255,166,65,164,66,24,32,240,1558 255,32,125,255,18,0,165,251,166,250,32,50,1599!142,230,250,208,171,230,251,ziiz8ɟ֥Эy)L`ɩ @ @L`L˭GGAAH3L Щ@   LQéPԩsԩ ԍԩ! `6ԩoԩ ԍ ԩ `ԩoԩԍԩ!`ЍaРdLǭh Э FL} Lǭ)1aCL9ǭaaLǩaLǭ)LaЭ)Lǭ@)LЭ Э)43Lǩ4GLLǭɭL L=ȭ-)L<ȭ x66,65,78,75,32,48,32,42,42,13,17,67,577T72,69,67,75,73,78,71,32,67,65,83,83,83569,84,84,69,32,66,85,70,70,69,82,44,82413,73,78,80,85,84,47,79,85,84,80,85,87384,32,66,85,70,70,69,82,83,44,32,65,78278,68,13,83,80,82,73,84,6S!Щ Щ ʭAIЩЩ @ ­ ©ߍLK ©FЩ0'Э ߍЩLlĩЭЩ )L ԭ)LL`ŭH ʬGd ЭFLЭIILũHLĭ) í0 H,75,32,49,32,5715#|42,42,13,0,162,4,134,254,160,255,134,251,1451g#132,252,32,125,255,17,67,72,69,67,75,73,1236#78,71,32,66,65,83,73,67,32,82,65,77,791#32,32,0,24,144,184,165,252,162,28,201,28,1252#176,214,169,19,133,251,134,252,32,1 165,251,197,252,144,2491C!163,166,65,164,66,24,32,240,255,32,125,255,1587o!"42,42,42,32,79,75,32,42,42,42,13,0,483!,165,252,201,255,144,58,165,254,240,58,96,144,2032!6169,169,0,141,0,255,166,65,164,66,24,32,1251 "@240,255,32,125,255,42,Э ʌ!Ј!Эa`AI ʩ~ @ ©'ЩЩЩ@ЩЩ %i(iЭ~)t~) F   ʭIILLE ʭЭ) í0LLG OPEN15,8,15,"S0:COMAL 64 BOOT":CLOSE15:SAVE "0:COMAL 64 BOOT",8c ""; : CLEAR SCREEN 53281,0: BACKGROUND BLACK 53280,0: BORDER BLACK ""; : PENCOLOR GREEN A1 90# 15,8,15,"U;"(15,D1,A$,D2,D3  (2063)L/ABSANDATNAUTOBASICCASECHAINCHRCLOSECLOSEDCONCOSDATADEBUGDELDIMDIVDOELIFELSEENDENDCASEENDIFENDPROCENDWHILEENTEREODEOFESCEXECEXPFALSEFORGOTOIFININPUTINTLABELLENLETLISTLOADLOGMODNEWENDFORN25,255,17,1777+$67,72,69,67,75,73,78,71,32,70,82,69,825Y$69,32,82,65,77,32,32,0,162,0,189,124,864$19,157,0,14,189,124,20,157,0,15,232,208,1135$241,76,0,14,0,0,0,0,0,0,0,0,33129,29,29,29,29,29,29,29,29,336#r29,29,42,42,32,66,65,78 ACOLLISION HIDESPRITEKEY SPRITEBACKMOVETODRAWTOGETCOLORFILLFORWARDSETXYLEFT SETHEADINGPRIORITYPENUPPENDOWNBORDERRIGHTBACK SPLITSCREEN SHOWTURTLE TURTLESIZENEXTLINEFEED FULLSCREEN HIDETURTLEHOME;; ; ;  ;;; ;;  ; ;  " COMAL PROGRAMS CAN ONLY BE EXECUTED"M " AFTER THE LANGUAGE HAS BEEN LOADED."j ""; : PENCOLOR CYAN "COMAL PROGRAMS ON THIS DISK ARE LOADED:"  " LOAD "(34)"NAME"(34)  " RUN"  "                    & ) A$"OK" 15,"U:":15,D1,A$,D2,D3R + "1571"(A$,14,4)15,"U0>M0":15:70Z 215y < "1541"(A$,14,4) 100 F"LOADING ML.SIZZLE P A0 A1:"ML.SIZZLE",8,1 Z 49152: d "";( n  OTOFOPENORORD OTHERWISEOUTPUTPRINTPROCREADREFREMRENUMREPEATRESTORERNDRUNSAVESELECTSGNSINSIZESPCSQRSTATUSSTEPSTOPTABTANTHENTIMETOTRAPTRUEUNTILUSINGWHENWHILEWRITEZONEEDITCATAPPENDRANDOMUNITFILEPOKEPEEK  ` L L-|COMALERRORSKL K, Lɠ`L KL  0LNKx) ax)xL LLLʩ 0e HH`Lx x`L̠ 6~̠ ׻L80 ̠ }̠ ׻L ; % ; ; ;; ;;; ;; ; ; ; ; $$  ;; ; ; Q2Q$CDADCQ";2  " BACKUP THIS DISK BEFORE YOU USE IT ";8 > \  CHAIN"HI + h  198,9y  631,("C")  632,("H")  633,("A")  634,("I")  635,("N")  636,34  637,("H")  638,("I")  6                                                     " PLEASE WAIT WHILE COMAL 0.14 IS LOADED ";. x\ "TUTORIAL: FOUNDATIONS ... WITH COMAL" "DOCUMENTATION: COMAL HANDBOOK "NEWSLETTER: COMAL TODAY " AVAILABLE FROM: " ""; : PENCOLOR YELLOW$ //!:=:+:-:;++--&.(),*/^<<=<>=>>=# SYSSETEXECSETMSGRETURNFUNCENDFUNCNULLPASSDELETE SETGRAPHICSETTEXTFRAMEPLOTPENCOLOR BACKGROUNDPLOTTEXTCLEARDEFINEIDENTIFY SPRITECOLOR SPRITEPOS SPRITESIZESPRITECOLLISION DAT`L `Lx xL L 0eL80 Lx)8 L/ 8 #̠  LR 6~ ̠ ׻ x)x`` [ ~de```r`cLiJuiv ,LC L<= ,hL4LQa000000H8JKL%\]MND6OPR&79ISVWXY^EZ[CE' )!'$#"*.2,04 !39,13 "COMAL 64 0.14",8ECUTED"M " AFTER THE LANGUAGE HAS BEEN LOADED."j ""; : PENCOLOR CYAN "COMAL PROGRAMS ON THIS DISK ARE LOADED:"  " LOAD "(34)"NAME"(34)  " RUN"  "                     " COMAL USERS GROUP, U.S.A., LIMITED "T " 6041 MONONA DRIVE "w " MADISON, WI 53716 "SEND SELF ADDRESSED STAMPED ENVELOPE" "OR CALL 608-222-4432 FOR MORE INFO." "" : PENCOLOR WHITE ?>ʈts,+ +u++I+ʆӥэҍ 8(Ӱ+wx+ƥ   9  ,0LERROR  ^ `6)-`H6)$H h `7,8,9,6L Fɀ`6)` Lڭ  `   LuЪ` L0  L 0 L  +  ,0 ~ )HH`L+,L-L,+ U L=+ܥ,J ,JLw+ʥ,Jп+й,еж,Э+ЧLR.1CYk|1.  L i L L-L   ) )ʩ 0+  e+gHH`L'<,L  L ޥL i 0i  L 8cL      5){Le   e L8`  u5 a. ) k #  L*L)  :*, S `L' b    a k 5* L) b    aй թ , ,, kL)6)L'  kL)a k)ڊL!_  e ` aL! $L) $L) $L/m@/o/ `/M  L8!a /8  L8!bL'/  5* uL ɀߩLk  ) 5 5JL'i u LZ!ɀ穳,  )L)  /1 )/ 5 5/"kJ J cfL'8ce0 s,ui 0  t  L* 0 /MuLt/M ɀ L' |{L! d} c,L! d 8ci  ޥ6),) c dL'  X h|L' )O`LK  5 6x)x 0x x x)xa +  L: X6 6#(H(H` 13 3 ccfL'52 5308h0 d3֥ХʩPL)7и3JЭ2M ixM LitM (.3?Qn,:s{,225+ FL0 ~ )+  +HH` LL*L L;Zds  `{M 8M`8LF8LL3 J  `  L i  L L 5*   L  L   L~ JJJJ+~ JJJJ+   L , L   L    i  L L  Jii   `   JL* )6) moЋ/ )/`    Jߩ,L!6) )l,~3 з3,L! F s  JL' ), sL) ) sL) s )   )   )   ) ) sL) s )   ) ) sL) s ) ) sL) s )Н /L! JCi /u L!l1,L! 6   L! L'  moL!  )L'  Ji uL! ]  )   Ʃ   \. )  %    )    9 ) I )  6 6 RL) L! d c dL'  XL) XL!6) V/  cFfB8c1i  0 s- )k )0Mu LptL' 11v ) L0M֥/ /uLLg/J0/ JE0)L*/ e/e0i: 31B 1l LN )L) )FL!/_  ) bS\ L*kL'b     L!l g  )L&  ˩ f L&uLlɀK' sL' tL' `JL*`M`L09`*ʆ9`2`ʆ`,,,,,:,;L- kb %  F 2- i+ + +  + ` P 1- h`+"--L   L  J` 2L s  q   о 2L  Jii+  ,   , 5)+i+{8&,L, ,+ , `5)L   Jh `G   J LL*   ~ )  )! sL)" s )   )   L* )# sL)$ s )L)% s )    )& sL)' s )   ) )( sL)) s )   ) )* sL)+ s )   )   ) ), sL)- s )   )   ) ). sL)/ s ) )0 sL)1 5ɞL8ɝ a7 98,3 54 h7L57)LZ1/e//0L81 7 ,8`4 !3)3)L6/u0vv; u:L83)uɜ ȱulL8uɂɃu r8Ɉɇ 0L6L8Ɋɋ (4 L6p!L6}!0ɠueuuvL3 7 a7-e4 h7- h7L2-L83- 8 ,8L5H 7-h`+-,..--87-.L3L8-` 2i h7L5 2L8ɂɃ/8邅3 o73- a7- 7 `8ɈɇL5 ,8L5ɊɋU8銅3 7 a7-i h7 m  }w {Ʃ ,0 7)7O6) 0L/&6)6MNOP LC =B  L/ ? B  A0 v0 9`ֹ0`'х ) ؅!љň 툩 ѭ `)"'х ) ؅!ňѹ툑 ` ieL,`Q89:;<=R>?@AQBCDE7w ktjjjjjjy`  7 7) Ʃ wL2.L'.j}jtjΝjީjH) O؈ ) ^L  0L)`  .`   `L*]< ) k'uL' ) ku ) kݩ `  ň  `/ 0 1 2 `/1 02 Du"aL' +/0 "u a +12 ` s )   ) )2 sL)3 s )   ) )4 sL)5 s )   ) )6 sL)7 s )   ) )8 sL)9 s ) ): sL);L&< s ) )= sL)> s ) )? sL)@ s )   ) )A sL)B s )L)D s )L)F s ) )G sL)H s ) )I  6 еuv`8u9vv0u/3)L8!`3)(3)uɜjȱucL8uv3 3uɂɃu r8Ɉ ɇ40LQ7Ɋɋ4"L8p!LQ7}!ueuuvL6/`/`+-,.7e++,,C L8+B-`- h7L3-L83-- h7- h7 8 ,8L5ɕ  o7 7L5" 7 `8ɖ- h7- h7 ,8L5ɗ `8ɘəL5 o7 7L5ɛ 7 8- h7- h7 ,8L5ɜ a7 98L8ȥ/ȥ0L5ɡ. `8ɢɣ8颅3 o7-ȥ3- 7-L5 % +8 +Ms`+,F,e++,` }vuu L 1`@+A, o7128/900; L5/: a7I a7J a77)7 a7h- `8i j7 7L5 o7- 7-ȑ-ȑ-L5m( 7-L8-) HHHH & & & ЅiO?hhhhhj.Хltj.HMHHHHHl'wɅ kLx.Ɇ jj ɇ jjhhh@HH.HH HlHH.HH Hlhh@H/0'12a$ +/0 o/102L+oL+ a +12 `L'' ` !%Ie!e!`e e  ! `8s9tt;2s:,Ms# ȭNsL)J s ) )K sL)L s )L)N s )L)P s ) )Q sL)R s )L)S s )L)T s )L)L)#% ""$ #  # ! #$$" !#!$$"$$ " "#$#(#$$$%%%%%%%%%%%&&&&&& 8,.+7-.7-L8`/-ȥ0-ȥ-`-ȱ-ȱ-e/ȥ/Ȧ/-ȥ0-Ȋ-`-ȱ-ȱ-Ȅ /ȥ0`8+7+,`8&&ee:e;`/u0vu r8``qu` ɬɭɮ`ɤ= 7-L8 8 7 `8ɧ8饠- 7 h7 h7L5ɨ( 7-L8- 8 7-L5ɩ? 7-3ȱ-4ȱ-43-ȱ3./3ȥ03-3.4ݢ ,8L5ɪK/0/02 /1ȥ01 `8ɫ02/e121ȑ1L 8 7 `8i 7L5n' 7-L8- 8 7-L5oA 7 8-3ȱ-4ȱ-43-ȱ3./3ȥ03-3.4ݢ ,8L5p G,p4843 7 o73- a7- 7- 98L83iȥ/ȥ0L5} 2L8L%3 2},484HH ݬ 0C ;y y>@?A k  Щ!ЩԭL/LrxU-.~..Xɠ!Щ ТS 1B< 1詇 1 1 ,6 LC  <mssesstL+s`0Dsmtm@m!Am C !BL08!!  e+LO,8st@m!Am 8!!  5+@m@AmA>m>?m?0# ʚL/ AT @Ae@@AAC Lz9@B`A8@`8@@A` 8 ׻` 8@A ` 8@A ` 98)V)NI B:8BBCAC  L|@BȑBB`! ȱ L;8`8 !L;L| &! 98ȱ)@ ȱ` !  `L|12 )1 983ȱ4)@ 3ȱ343 L|1413Ȅ1ȱ13 ȱ3!3i4i`1L|3+ + ȱ+! +ȥ!++i,i 5+`F|Șe|}ieFȱ|ȄF > `΅υ` c͝`889  `  e8e9` 9 ~dL|e`A@ ȱ@!8@!@A A@@A`L|B` 9@ȱ 8ȭȥ/ȥ0ȥ1ȥ2ȭȥ3ȥ4ȩ `8@A+ȱ,8,+8-ȱ.8.-`A@ =BL:B@ ?@ A` `A@ L]BA`A@ A`@i@A`A ȱ !  ȥ!ȩ A@ʈ21 </e!@0e A 8B@CA L| 5+ 8 ȥ!L-|, | 9 8ȥL-|L| 8 ȱ!)@ ȱ ! ȥ!ȩL-| | 98) )), |) 8ȑ + L}J.J-L| 9LG-A@ʄ! ,+Ȇ@A- Q;- F :L-| /~ ~+ LI,+-i+ȱ+1ȱ+2ȱ+/ȱ+0- e/34-,3)ȱ383)3Ȇ()1r2q B2183e3dL|8e3ed30dee2+2de ȥC`` A9)IeBBCAC @BLz9 ȥBȥCiȱi`))L|`)8`ة` A9) L|)L|)"ȱ)@ ȱ`8 ȱ1310ȱ1q1!1q1 ! ! 3 йȥ!3а1 ȱ1!1e31e4i` F?A@ (@ 98+ȱ,)@ +ȱ+,+ AL|@+ȱ@,@3ȱ@4ȱ@1ȱ@2A@A8e@@A12L>2e4.1e3-@ F? ڠ!  q?!`+@Vȱ@Uȱ@WPSȱ@ AL|G 󥹍T 9 +` 8`A@ ?@3A L|3 `A@+ȱ@,@ȱ@-./AY B+-# ?+#-/-%+@A`] *q&r e(e)]`L|? `A@vGI@AL|@ ?ȱ@,ȱ@A+ G)@L|+ ,AK KLK K, + 󥐝G `M|}y)y|Iȱ|Jȱ|zȄFwF|FLȥ ȑL-| 8 ȱ!)@ ȱ ! ȥ!ȩL-|,, | A9) |)K) 8ȑȑ ȱ!)@ ȱ !  ȥ! eL-|)% 8 L-|1)8LyF)8LE1+1/+.L|L-|,+8+@,ALGI. ?12&&2e1e/eȱ/e.> 9L-|2 1*/eȱ/e.ȱ 9L-| 8ȥȩL-|/ ȱ/! i( i)1r2q B12/e11ȱ/ 8` ȱ!  L|ȱ  8y)#L|Fȥ|ȥ}ȥ| ȭȭȥ ȥ|+ȭȥBCȭ  |!}|zw` B! 98ȱ)@ Hȱh  `ȱ L|.-.-+ ȥ.+1+ ȥ2+͠+/ȱ+00/1/ д20-+ ȥ.+ -+ȥ.+ 3!4 3 4!+e2,e1i/0 5+ 3!47/e!/0e 084!!3 ! //0! !Lg>` + ȥ!#.+# .+# A@ȥ-@ȥ.@ȥ/@A` 0- `/ `-. 9A!@ ! +!, ;-= /~ ~. edLnAeeedLnA8edLnA. .a }LgAa } ׻+8@vG@AA@A` 0fyHzH`wL-|}Fe| 9FiFL-|F|ȱ|ȄFL&I |! !i 8}|eFȅ 5+Fe!FA@ȥ!@AL-| | H:  9L-| :L-| | H:ȱ LD | A9) )),L|)@/A0 8ȑ ȱ!)@ y)#L|+ȱ,+- e- i 81 -ȥ/0 8ȭȥ/ȥ00/iȐ芑ȩȥ+ȥ,ȩ L-|8 0.-@+A,.J1- 8++K,G8A+@+,@,++,A'A@A8+vG+,e22 8Șȩȑȥ1ȥ2ȩ i1i2.:6 <e!@e AC  L|@B 5+ 8 ȥ!L-| ,+1,2e++,.+ȱ+d+ L|eeȑ+LWJe8+d+8i0٠+Ȋ++,LI 8 йгȱL-| L|8+ +,+ȱ+ȱ+/ȱ+0ȱ+1ȱ+2ȱ+ȱ+3ȱ+43{ L|8r0LLv-L|.j 9L0KA@ʈ! - Q;+@,A A- F :L-|+@,A 9LZK ~ 8dȥe 0LL-Њ.j)8A@|,/. /F/ȥ|/ȥ}/3|4}/i30i442+31%3 98ȱ3Ȋ33i34͠ /ȭ//0/)-/ȭ/ȭ/ȭ/BC/0 @@A|zLC 9 /~ ~dL|eA@ʈ+,+ 348 !L!P !0/0L>P 9a af 9L-| LP 9 09ai 9 09aܥiʢ, @L-| =L-|,LP,LP 4?PKL-| 9 X 9L-| F? !L|@L1QL&I 9  9L-| 9 ~d,L| 8eȩȩ