KKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKTO:":" ERENDIPITY OFTWARE":" 8438 YNDA UE ANE ."F2" ACKSONVILLE, LA. 32217 ":" RESS NY EY TO ONTINUE"X2198,0:198,1^2)u]שs>JtWWZRRIr\+r\}ܷes9|ݹ6J})v\6J|)JKK OVE":"DISK. F THIS PROGRAM PLEASES YOU, AND"/"YOU DO NOT HAVE THE OTHER FINE PROGRAMS":"IN OLUME # 1, YOU ARE MISSING OUT!":" HAREWAIRE DISKS ARE DISTRIBUTED FREE":"FOR THE COPYING, BUT .":"F YOU RECEIVE A COPY OF THE DISK, KKKKKAND"0"THINK THE PROGRAMS ARE USEFUL, PLEASE":"SEND A $ 10.00 DONATION (WE WILL SEND":"YOU THE DOCUMENTATION, & THE MONEY WILL":"BE SHARED BY THE AUTHORS ON OLUME 1)":" F YOU DO NOT HAVE A COMPLETE COPY OF";1"THE HAREWAIRE DISK, WE WILL SKKKKKEND YOU A":"COPY FOR A $ 10.00 DONATION PLUS $ 5.00;";:"(PAYS FOR DISK, DOCUMENTATION, COPYING ":"TIME, MAILER & POSTAGE = $ 15.00 TOTAL)"1" OU WILL ALSO GET ADVANCE NOTICE OF":"FUTURE OLUMES OF THE HAREWAIRE ISKS!":"  AIL YOUR DONATION K5&~SL2SS2X0SZ:A$(X)D$(X)::1160&1165'X0145:D$(X)FL$:<'SL2SS3X0SZ:B$(X)D$(X)::1235p'SS2"":1125: GO BACK FOR FLIP SIDE*******'SL11220'" O YOU WANT A ӒINGLE OR ĒOUBLE"'" ""(34)(34)(20)"H5#=@U#";-_"]@ʒP"-d64931:"".i*. PLEASE LEAVE THE MESSAGE ALONE." ERENDIPITY OFTWARE'S HAREWAIRE ISK ";:" OLUME # 1 ";:" HIS PROGRAM IS FEATURED ON THE ABYOUR DIRECTORY ON THE";"DISK. HE FIRST PROGRAM ON DISK IS "J "SORTED, IT REMAINS THE FIRST PROGRAM ON"x"THE PRINTED DIRECTORY LISTING. HIS IS""FOR THE CONVENIENCE OF THOSE SERS WHO""FREQUENTLY LOAD THE FIRST PROGRAM ON TH (HOOSE A UMBER !) ":SS0$Z$"1 AKE DISK ENVELOPE FOR"3$Z$" A SINGLE SIDED DISK"W$Z$"2 AKE DISK ENVELOPE FOR"x$Z$" A DOUBLE SIDED DISK"$$Z$"3 RINT A DISK DIRECTORY"$)Z$"4 !"$."OU CAN SEL E28%1/E3%20E4X%";+ "3/E5%40E6 LВ\ 1’8%3/E3%40E4PJ%3%%4&0Ҧ";!+"1ВB"G+209,255:210,193:211,0:213,255b+"2%'1%(205PRJ";+""(34)(34)(20)"@53M54M’N’.";+#"X53M54M’X- )D$(X1):D$(S)FL$:EDBG19NMBGEDED1/SS1:NM$"":NM0:EDBG5158520^ ** DELETE A RANGE OF NUMBERS **NM$"":CD$DC$:" TARTING # ?: ";SNCD$:" NDING # ?: ";ENENSN ENS1 SNS2 SN1 660D X1C2 4,D$(X)" "D$(XC2) 930!X0S!4,D$(X)!!4,!4:1030Q! PRINT DISK ENVELOPE SUBROUTINE\!4,4,7!4,NP$"-------------------------------------"!4," UCK FLAP INSIDE ENVELOPE AND TAPE "!4,"--- COLUMN, RINTER OUTPUT?"'155'W$"S"DC0:1235(W$"D"DC1:1235N(WW120:145:CD$DC$:" RESS THE 'S' OR 'D' KEYS !!"`(WX1100::j(1190(SSZX0SZ:A$(X)D$(X)::1235(X0SZ1:A$(X)D$(X)::X1SZ:B$(X)D$E"; "DISK, WITH THE COMMAND: "(34)":*"(34)",8"@%"****************************************"T*155:W$"Y"|/ 1ST PROGRAM ON DISK IS NOT SORTED4KIZIAK,D$,2,S1,4,20,A9>"************************************ECT COLORS NOW,FOR THE ORDER"%3"CREEN AND HARACTERS WITH ’,Ӓ,& Ò KEYS""%8155K%=W$"B"CH1:M((B)15)1:M16M0u%BW$"S"CH1:N((SC)15)1:N16N0%GW$"C"CH2:O(CC)1:O16O0%LCH1CH0:B,M:SC,N:1080%QCH2#U7-’$U8D B1";,("7Y;@19Y>@HP*)E$ľB09 E+9E,9";[,-"E-%;+P,E.%>+P*.0BE.%,.0BE.$+H1P)A- B9;@Q99>@Q7HP3ADM(";,7"В@@@@@@@ADLFENSNXENS1:D$(XDF)D$(X1):%XSDFS:D$(X)FL$::SSDF1.515R SORT THE DIRECTORY SUBROUTINE MANY THANKS TO GARY G. KIZIAK FOR THIS MACHINE LANGUAGE SORT ROUTINE !! PLEASE NOTE THAT THIS SORT ROUTINE IS NOT IN THE ------------------------------------";%"4,"----------------------------------------"M"4,EX$A$(0)" "B$(0)NP$:QZ(SZ1)2Y"X1QZ"4," "(A$(X),17)" "(A$(XQZ),17)" ";"4,(B$(X),17)" "(B$(XQZ),17)""4,EX$A$(SZ)" "B(XSZ1):(A$(SZ)(FL$,19)(830:SL950,950,890)209,000:210,193:211,0:213,255^)" . %XGM@%@MA . ^- 7%TMB%";)"UMC . ^- 7%TMD%UME)@E 7J$Y ";)" 7J$Y .*****"; C" נŠŠ٠ҠŠԠ! **";;H" AKE SURE THE RINTER IS TURNED ON, **";kM" AND THAT THE PAPER IS POSITIONED ! *";R"****************************************"WSB1:390:SB0:\"  EADINCH0:CC,O:1035%VSL(W$):SL1SL41080&[SL4(9):&`SL2SS1?&eSL4"NSERT THE DISK ";:SL31135b&jSS0"(SIDE"SS") ";:SSSS1x&o"INTO THE DRIVE"&t" IT ANY KEY WHEN READY":155:860:220&y320:750:86&@ ^- O-%/E%0E @1"; -<"ВP1ŒВI D1ɒAВA"0-A209,254:210,194:211,0:213,150i-F" BX1ߥ1ߥEEŒ1%2P)%E";-K(34)(34)(20)"";-P")";-U""(34)(34)(20)"E#$";-ZPUBLIC DOMAIN !!!"O YOU WANT TO ORT THE IRECTORY? (Y/N)"Q"****************************************"" YPING "(34)"Y"(34)" WILL ALPHABETICALLY SORT THE";"DIRECTORY BEFORE IT IS PRINTED OUT. T""WILL NOT REARRANGE $(SZ)NP$#4,"---------------------------------------";8#4,"----------------------------------------";i#4," UCK FLAP INSIDE ENVELOPE AND TAPE /"#4,"-------------------------------------"#4,LF$:4#:RP1:15# " ɒGɒFH/)A,)@$Y ";)"@ɒ,ВD˒";0*""(34)(34)(20)"^ &Ò8%'%E)%(&E*)";?*"ВB*";s*""(34)(34)(20)"A=)=¥*0CбВG";*""(34)(34)(20)"";*"^ &Òؠ=E/=E0X%/%E1%0&G THE IRECTORY ! ": aSL1SSZD$(SZ)D$(S):D$(S)FL$:880C fSL1S2SZ1D$(2SZ1)D$(S):D$(S)FL$j kSL2SSZD$(SZ)D$(S):D$(S)FL$p p u SIMPLE DIRECTORY PRINTOUT ROUTINE z4,4,7:DC0920 C2(S2.5) 4,D$(0) 9 MAKE DISK ENVELOPES WITH THE DISK DIRECTORY ON ITX JOSEPH SHAUGHNESSY 1985B53280:SC53281:CC646:""(14)(8)M((B)15):N((SC)15):O(CC)S154273:S254278:S354296:S454276 Z$" ":M0$"  ELETE PROGRAMS S)D$(S)(C$S$,16):C$"",C$C$N$:#1,N$:N$""2759S0295`(C$,1)" "C$(C$,(C$)1):280"C$(C$,3):C$(C$,1):CP(C$)128:C$(CP)'D$(S)D$(S)C$:S0D$(S)(D$(S),4,19),S,D$(S):ST0SS1:175:230: S=ITEMS IN ARR ODE. OU CANNOT";&"LEAVE THE DIT MODE, UNTIL THE IRECTORY";U"IS SMALL ENOUGH TO FIT ON THE ENVELOPE."hSB1:395:SB0BG1:ED20:EDS1EDS1""; SL2SSZ""SSZ"";M1$:540SL1S2SZ1""S(2SZ1)"";M1$:540 1240:63999:1035 SUBROUTINESJ S1,70:S2,247:S3,15:S4,17:S4,16:150w S1,30:S2,249:S3,15:S4,17:S4,16:150} 198,0: WAIT FOR KEYSTROKE W$:W$""160 CHECK DISK ERROR CONDITION 15,E,E$,E1,E2 E021 0  1 11H  hЗL2 1 81 211L1 1 4 *&@[ `{)11 Ǭ1 1 hh 1181 `h1 1`ȅiԅ DISPLAYED "&"TO YOU, A SECTION AT A TIME. O VIEW THE";Y"NEXT SECTION, PRESS THE F7 FUNCTION KEY.";" F YOU REACH THE END OF THE DIRECTORY,";"THE F7 KEY WILL TAKE YOU BACK TO THE ""FIRST SECTION (IST WILL 'WRAP-AROUND') AT YOUR OPTION! "b #CD$"":DC$" " (M1$" ROGRAMS MUST BE DELETED TO FIT ":FL$" " -NP$(15):EX$(14):GX$(8):LF$(10) 2Z$" AY1A(100C664):Q$(A):Q$(Q$,2)M6D$(S)D$(S)" LKS REE ("Q$"%)":1:175:15:h; "DIT THE IRECTORY"@SL1S2SZ1340ESL2SSZ340JSL3340O355T"O YOU WANT TO DIT THE IRECTORY? (Y/N)"Y155:W$"Y M0$XBGED:X,D$(X):7!CD$DC$:"HICH ROGRAM NUMBER TO DELETE?: "E&155:140k+W$(136)BGBG20:EDBG19:565t05805BGS1BG1:ED20:EDS1EDS1?"";:525DW$(133)590I615N(SL1S2SZ1) 0 "ISK RROR # :"E& "RROR YPE :"E$I "RACK :"E1" ECTOR :"E2i WW120:145:TT1100:: "IX THE PROBLEM, AND THEN TYPE TO BEGIN AGAIN!": READ DISK DIRECTORY 1:15:15,8,15,"I0":175:1,8,0,"$":1 iԅ(i(汥i(ƥ͢L D$   L ͽ  Ƞ{3 @ D `  ANY KEY TO CONTINUE EZDIR BY R .";" O DELETE A PROGRAM FROM THE PRINTOUT,";I"TYPE IN IT'S IDENTIFYING NUMBER, AND"x"THEN PRESS Β. OU MUST CONTINUE ""TO DELETE PROGRAMS UNTIL THE MESSAGE-BAR";"AT THE TOP OF THE SCREEN ADVISES THAT""YOU CAN D " 7Z$" "@ <Z$" ISK NVELOPE AKER "a AZ$" WITH " FZ$" IRECTORY RINTER " KZ$" FOR THE " PZ$" 64 " UZ$" " ZZ$" "^410+c" IRECTORY IS TOO LARGE TO FIT ON THE"Xh"ENVELOPE. OU MUST DIT THE DIRECTORY"m"NOW, TO REMOVE NON-ESSENTIAL FILES FROM"r"THE PRINTED DIRECTORY LISTING. HIS WILL";w"ONLY AFFECT THE PRINTOUT. T WILL NOT"|" S(SL2SSZ)XSL3?]WW120:145:CD$DC$:" AN'T LEAVE UNTIL YOU DELETE!!"jbWX1100:::CD$:" ":NM$"":545|gW$(13)670lW$(20)Z(NM$):630q640vZ0NM$(NM$,Z1){CD$:" ":NM$:550(6 75#1,M$,M$:S$" ":S06#1,M$,M$,M$,N$:C0JM$""C(M$)dN$""CC(N$)256D$(S)((C)S$,2,3):C$""#1,N$:ST0305N$(34)250#1,N$:N$(34)C$C$N$:260 #1,N$:N$(32)265 D$(WK%iJRJkk]?}*Z&k]fVoͪfIsҔJ]{ٚ?RSҔJTSZ^fʗ&ڔfJꕦʕfڕ)gk}iWfk9+djzMyR&]e]o_^fS*]OU*IV&ɒ?ywښWYSjkҕeZ*)ꫫ*K}iJ)iZSKeNKgK)J ELETE PROGRAMS AT YOUR OPTION,"1"INSTEAD OF TELLING YOU THAT YOU "_"DELETE PROGRAMS FROM THE PRINTED LIST."" HEN YOU ARE THROUGH DELETING PROGRAMS";"FROM THE LIST, PRESS THE F1 FUNCTION KEY";"TO RETURN FROM THE DIT M " _Z$Z$"BY"5 dZ$"OSEPH . HAUGHNESSY"g i"  ERENDIPITY'S HAREWAIRE ISK OL. 1 " nZ$" (C) 1985":KIZIAK49408 sSZ61:A$(SZ),B$(SZ),D$(145) xX0SZ:A$(X)" ":B$(X)" ": }X0145:D$(X)FL$::RP11035 CHANGE YOUR DISK OR CRATCH ANY OF YOUR"-"FILES OR PROGRAMS"8"";i"RESS ANY KEY TO CONTINUE, OR TO QUIT"155:W$"Q":RP1:15SB1" DIT THE IRECTORY ESSAGE-AR ";" HE ISK IRECTORY WILL BE 53)4(W$)18695 W$(48)W$(57)550GNM$NM$W$:NM(NM$):CD$:NM$:NMS1NM0NM$"":660P550WW120:145:CD$DC$:" NVALID NUMBER, TRY AGAIN !!"WX1100:::CD$:FL$:NM$"":545NM$""550145:XNMS1:D$(X 26:211'U" ԙ TO AUSE ---- 6 TO BORT":U0 '(YY112)217::207W'X0(CR2)1:AA$((512X)):A$(YY)A$(YY)AA$:'SO:214,19::A$(YY):2:65511:4,4,7'""44)" << ATA TO RINTER >> "'I15:  RETURN: VIEW ANOTHER DISKCHANGE DISK PRESS SPACE WHEN READY NO SEQ FILES FOUND h,",,,L, ," `֠  J.H8͛,hi ,i, F.@L-,h@L,,D"  "6)" 5. RETURN TO MAIN MENU ",6)" "S6)""198,.:198,1:A$:(A$"")30:A$"1"A$"5"142K(A$)K150,175,188,240,30512,32:"":53280,.:5 #15,"N:ULTRA SEQ-FILES,RK":168:ER0119#30$4:4,4,7:112:QQ26;$L0:"":53280,11:53281,11v$53272,23:""3)" "$3)" << EADING ILE NTO AN RRAY >> "$3)" ,W Щ D f婒 ,,,,,V `   ,   , r (  WP֍,L*,L,L/ ,,,,, T.I11500::150 60(E9$)2)E9$!81:I11000::26.!X2023:781,X:59903:U!"":214,20::9)"OLD NAME = ";!FF34FF0:""FF$;:PN$FF$:783,.:180!19,32:"$";PN$:19,.::PN$"4"30!PN$"$"FF$PN$:150,96:SP 4:'YY2(YY2)YYYY1'I1YY2:II1I1(4,A$(II);40(A$(II)));A$(III1)S((653)1214,23::" ř TO ONTINUE ":U1w((653)1((197)6)226:222(U" ԙ TO AUSE ---- 6 TO BORT":U0(:I L|,"VL|, L* D!Ѝ Щ  - > ",%214,23:n%" ԙ TO AUSE ---- 6 TO BORT":LL0:206%2,8,2,FF$:118:E25%YY1:CR2,0:CR%K1112:A$(K)""::U0%((C ͽ ,,,: H,$L-.  . _Xh",L+ ,i,,Lx+  , F.L-,L`.L.L.L.,L. ƍ,,,, LA+ hh h!Щ`MI'S DIRECTORY BY BOB K :63:150,96:GP:176!214,21:"9)"NEW NAME = ";:"19,32:" ";NN$:19,.:781,21:59903:214,21:J"NN$"4"30"CN$ " "PN$" IS "NN$" ":(CN$)33CN$ CN$" "" ""22(CN$)2)CN$"":15,"R0:"NN$"="PN$"118 15:4::YY111YY1::L1:201)T1:102:2:CC:"":53280,.:53281,.:65511&)15,8,15:BOB0:264)2025,7:F)D11200::U)S1S:237r)" SOUND":S" ON ")S0" OFF")""33)"ASCII":A""34)"ON ")( /؍/7`L/L/!ЍK0F0G0H0I0J0 N0F0F0G0H0H0I0`!)M0)M0K0F0G0H0I0J0 N0F0F0G0H0H0I0`K0G0I0ؙؙٙڝ؝ٝٝJ0J0G0i(G0I0i(I0ìF0H0K0۝ 0` ` "----------------------------------------";FF34161C19,32:" ENTER FILENAME $";FF$:19,.:YFF$"$"63:150iFF$"M"26B$"SCRATCH SEQ FILE "(34)FF$(34)FF0:""21(B$)2)B$90)"ARE YOU SURE?? (Y R3)0)215:(CR2)80(CR2),0&X0(CR2):AA$((512X))3&A$(YY)A$(YY)AA$:(A$(YY))40YYYY1l&:SO:214,19::A$(YY):YYYY1:((600)0)145:WW&(653)1214,23::" ř TO ONTINUE ":U1&(653)1((197)6)2 7 FOR MILADY  -> READING SEQ FILES ON DISK <-  F1 : SELECT FILE NAME F5 : RETURN TO MENU F7 : SEE NEXT PAGE CRSR : SCROLL TO FILE :E26:RWK"81:26# 2)" ---WARNING!!!--- "B#" ALL DATA ON THE DISK TO BE FORMATTED"o#" WILL BE DESTROYED - OK TO CONTINUE?"#198,.:198,1:A$:198,.:A$"Y"30#" OKAY - FORMATTING TAKES 90 SECONDS" A1)50:""34)"OFF":50)*(NS1)236:I54272I23:I,.:/*SI54272:SI1,106:SI5,12:SI6,15R*SI24,15:SI15,30:SI4,21:Z*EZ*214,23::10)" ANY KEY TO CONTINUE ";:198,1:198,.*25444!H HH!Щ %&0 H@0Lh4 @[ `{) X ί0( 000'Хh`ί000  &0`0'0L0'L:1 ↛i 1 181  H@_h1  Ĝ Ȍ1 1Lp1 /N)"K$:K$""164 K$"Y"FF$"":1501 B$" SCRATCHING  "FF$" ":20(B$)2)B$B 15,"S0:"FF$` 15,ER,ER$,T,B:K2K3{ G9$(ER$,4)(ER$,10) E9$" "FF$" "G9$ T.48)"**** FILE NOT FOUND ****":106:150 MMD10916:SP12094:GP12156:OC12230:CC12233:CR12465:WW12592:RP1262853280,.:53281,.:788,52:A$(112):(142):SO12955:EZ13047S1:A0: SET SOUND & ASCII CONVERT DEFAULTS 1=ON - 0=OFF "":K7:A$"":   "<*3) " F5 80 COLUMNS TO PRINTER  F6 "n+3)"  ",42)""-3)" ߒ  ".3) " F7 DISK HOUSEKE D SHIFT TO PAUSE - RESS F6 TO ABORT",YI1300::2,12:878,20:OCjZ214,23::"OLD SHIFT TO PAUSE - RESS F6 TO ABORT"[(F$)92,93,94,95,96,97\RP,40,0,0:X10:]RP,39,1,0:X10:^98:RP,40,0,1:X10:_98:RP,39,1,1:X 150,160:GP:198,.:198,1:198,./ 53280,.:53281,.d CC:53272,21:""8)"" 8)" MAIN MENU " 8)"" I1300::2,5:878,20:OC BOB150,168:GP:49 43)"USE :QQ26G2,8,2,FF$:118:(E0)26:844H2:4:65511:15,8,15:X10uI81:214,23::"  RESS F5 FOR THE ENU "JA$:(A$(135))74:26KX68:781,X:59903::LX1113:781,X:59903::78:MX1618:781,X: MENU":106t198,1:A$:A$""QQ1:u4,4,7:112)v15,E,E$:E0Yw" DISK ERROR ENCOUNTERED"rx20(E$)2)E$:106y" ANY KEY TO CONTINUE"z198,1:2:4:{K21:A$"  ARE YOU SURE? ":1 10, K8:A$" ULTRA SEQ-PRINT ":10X K9:A$" VERSION 5.5 ":10 K10:A$" R.W. (BOB K7) KOBER ":10 K11:A$"":10 229:((2025)7)13:25 M(A$):I1M2:"":J1K:"";: EPING QUIT  F8 "7/3)"  "T0BO0BOB1:150,168:SPq1198,.:15:15,8,15:2312A$:(A$"A")99:(A$"S")230:A$""A$(141)503F$(((A$)132),1)4((A$)132)53,55,57,128,54,56,58,12 10:`98:RP,80,0,1:XI0:a98:RP,79,1,1:XI0:-bI15:4::>cA1A:820,AGd234e198,.:198,1:X1113:781,X:59903::"":310f(S0)236:L5427254295:L,0::54296,15:54277,8:54278,255g54276,21:54287,40:Z1  EMBEDDED IGNORE"C 2)""x !3)" ߒ  ߛ" "3)" F1 SEND OUTPUT TO SCREEN  F2 " #3)"  "$42)" 59903::N214,11::6)"1 OR 2 COLUMNS?">OCOL$:COL$"1"COL$"2"79PPCOL(COL$):Q(S0)236:L5427254295:L,0::54296,15:54277,8:54278,255R54276,23:Y13:F28:54273,2:X15:54287,F2:F2F21.4S::W18:542 0|198,1:A$:(A$"Y")126:""}30H~"";:8)" USE ULTRA AGAIN, SOON "c198,.:T3:102:65126lFF0"":214,8:6)""6)" "6)"  20I)(A$,I)(A$,I): C I11000::I18:59626::2025,2r K6:A$"THESE M/L ROUTINES ARE USED ":10 K7:A$" ":237:10:229 K9:A$"READ/PRINT/SCROLL":237:10:229 K11:A$"MI'S DIRECTORY": 3,228:50575:59:716F$"2":53<7F$"3":600,0:76:59:COL70,195b8F$"4":600,1:76:59:COL70,195y9F$"5":77:59:70:F$"6":77:59:70;"":214,X2::" ($=DIRECTORY M=MENU)"<19,32:" ENTER SEQ FILENAME $";FF T:F125506:54273,F1:F1,hF1025550:54273,F1:F1:Z:F2150.1Ti54296,F2::54277,128:54278,250:j(S0)236:L5427254295:L,0::54296,15k54277,8:54278,255:54276,23lZ11:F110:Y16:F230:54273,F1:X13:54287,F "A%3)" ߒ  "t&3)" F3 40 COLUMNS TO PRINTER  F4 "'3)"  "(42)"")3)" ߒ 87,F2:F2F21.07::54278,15:3TRP$"":F$"1"F$"2"RP$" "qUCC:(14):""2)"***********************************"V2)"* "F$" -Š"RP$" *"W2)"***********************************" X214,23::"OL  DISK HOUSE KEEPING MENU "6)" "B6)" "i6)" 1. SCRATCH A FILE "6)" 2. RE-NAME A FILE "6)" 3. FORMAT (NEW) A DISK "6)" 4. VIEW DIRECTORY 237:10:2291 K13:A$"IT'S CURTAINS":237:10:229Z K15:A$"2-COL. READ":237:10:229 K17:A$"SNAP-SHOT":237:10:229 K19:A$"EZDIR":237:10:229 K23:A$"ANY KEY TO START":10:198,.:198,1:198,0 150,160:SP:25  $=FF$"M"30>FF$"$"CC:X134:O?15:15,8,15:FF$"$"15,"I":15,E,E$:E"":119Y@E26ACC:(142):MD::15:15,8,15:CCB(598)3426CX10:FF$""DFF(580X1):FF34EFF$FF$(FF):X1X11:68F4,4,7:112 2mF2F21.2:X:F1F11.5:Y:W130:54273,F1&n54287,5:V15:VFoF1F11.5:W:Z:54278,15:ap4:ST04,4,7:QQ0:q" THE PRINTER IS NOT ON LINE"r" TURN IT ON, AND PRESS ANY KEY"s" PRESS F5 FOR THE #""(14):53280,6:9000:100GM$(10)"ŠŠ "R$V6:2000:M$(10)"Y OR N":6:3000:PS12000:PS:1000:1500:"";:M$(10)"ŠԠ"R$:3B$"": INPUT#2,A$:A$ZZ$ ԠԠƠ ."4 lM$(4)"ŠŠ :"Z mM$(5)" ԠӠ Ơ"i nM$(6)"" pM$(7)" ԠӠŠȠĠҠ" sA$:A$""115 x7:T$B$ zM$(1)"Š #"(N1)":" }M$(3)L$ M$(6 NN1$"ŠӠԠՠŠ."/I0Ne:I1;". ";T$;" ";Q$(I);" ?":"";AN$(I):r5:I:5M$(2)""M$(4)"٠Ơ Ӡ"M$(6)""M$(8)"ΠϠԠ "4:A200,190 I ӠҠ Ҡ?"M$(8)L$FM$(9)"(ՠ'ԠŠҠ!)"Z4: A 225,300M$(3)"Ԡ ˠΠŠˠ"M$(10)""R$:3M$(4)"":61,8,1,""1,N1,T$I1N  DM$(2)" ՠ"(C)" ԠԠ"(T)". "FFM$(2)(M$(2),39)\OM$(3)""L$""fSTT1sTM$(4)T$hM$(5)Q$(X)rM$(6)"?"|2B$AN$(X)500M$(1)"!"M$(2)"ŠԠҠϠŠ ."6:5NC0:EE1E%(X)E%(X)1!340W: "CORRECT"b10005zEE0CC1:NCNC1T%(X)T%(X)1:EE0PS1 500:PSN310X9000:100V"";L$;""`" I130:I:" "; A$:A$""2010A(A$);A64A91AA128:A$(A):2100bA192A219AA128:A$(A):2100uA13A141  A202200A160A32:A$(A) (A95 A160)(A32)(A34)20104A$;:B$B$A$:2010B I)ME MEE%(I) "E%(I)TE TEE%(I)6I:RC0'JX((1)(N))3LRCRC1KTRCNN XOX4170jh(E%(X)0)(E%(X)TE)4400}|RCN10 4170E%(X)ME 4400RCN54170(T%(X)E%(X))MC 4400RCN441700OXX:( #"3 URN ON SOUND"#"";ZY$"#ZY$"1"1002#ZY$"2"40K# ZY$"3"QQ1:9130U#9130[#a#gT$'V54296:W54276:A54277:HF54273:LF54272:S54278:PH54275:PL54274'QQ0 ''V,15:W,65:A,190:+7,172'1000,51,97,500'-1,-1,-1  ΰ2` ΰ`ٖ ΰ L` Π 7 LDVORPAL UTILITIES UNABLE TO LOAD MAIN MENU, CHECK DISK AND PRESS RETURN :Hx5 h`l΅``  B$B$A$:21+ 30:1,A$;ZZ$;:: PRINTS X(A$)1:TXTXX:TX191: PATCHa TXTX191r "TITT3034 #59411,61: ( START *M$(1)"!" -M$(3)"Ӡ͠ӠՠϠ" .M$(4)" ٠Ǡ" /M$ 1,AN$(I) NI c300 d MAINI eM$(3)" ͠נ٠ҠՠϠ"s fM$(4)"ŠԠՠĠŠ." gM$(8)L$ hM$(9)"( Ԡנ٠!)" i6:I14000:I jM$(1)"ϠΠ,ŠΠ" kM$(2)" )T$:7:Q$(N)B$ M$(4)T$ M$(5)B$. M$(6)"?"? 2:AN$(N)B$S NN1:N49170} M$(2)"Š ٠Š?" M$(9)" ӠҠ :" M$(8)L$ M$(6)"(ŠŠ"(50N)" " 4:A122,170 0N:AN$(I)"":Q$(I)"":IN0:100>M$(1)"ŠŠԠ"gM$(2)"ŠӠĠ,"M$(3)"Ϡ ԠϠ"M$(4)"Š٠̠"M$(5)"ǠŠ " M$(6)" 1,Q$(I)1,AN$(I)"I:18'M$(2)"ĠՠŠϠĠ"[)M$(3)" ΠҠ?"d+214o, EXAMy-9200.M$(4)"ŠŠ!":6:54RN(((TI),2))15I1RN:PS(1):I64000;T0339@M$(1)L$0 "M$(4)" "T$""M$(5)" "Q$(X)"? "-M$(7)" "GM$(8)" "AN$(X)" "T6:5:5bNC5480M$(2)", ٠Š!"M$(3)"ĠՠŠ Ϡ."M$(5)"Yՠ"(NC) "Ԡ"M$(6)"Π  ڠҠ "j"";L$;""!I1206"ݒ";37);""=IO"";L$;""U[g""uI110:J120((M$(I))2):"";:JhM$(I):M$(I)"":IA$:A$""2000B$"":"";"";: $""2010" ";(B$)2B$"":2010+B$(B$,(B$)1):2010@ A$:A$""3000T A$:A$""3010m A$"Y"A$""A1: A$"N"A$""A2: 3010MC10000:TE0:MEMCI0NT%(I)E%(I)MC MCT%(I)E%(I)E%( # <# M$(10),Q$(50),AN$(50),E%(50),T%(50)x#ZZ$(230)I#L$""g#R$" ԠΒ"#"OULD LIKE TO:"#""#"1 REPARE A "#"2 SE UIZ" PH,15:PL,15$'H:L:D B'H1:HF,0:LF,0:L'HF,H:LF,L:V'SSD50D40:S,136:SSY`'TT1D2.5:TT:HF,0:W,0dj'10010t'34,75,250,43,52,250,51,97,375,43,52,125,51,97~'250,57,172,250'51,97,500,0,0,125,43,52,250,51,97,250,5 (5)" Ӡ̠ՠ"Q 0M$(6)"Ԡՠנ̠Š.":M$(7)L$ 2M$(8)"ƠǠӠΠ60,":M$(9)"!" 36:"" 71,8,0,"" <M$(4)"":6 F1,N G1,T$ HI0N1 J1,Q$(I) L T12000::G$:G$""17403G$"Y""TYPE Ϡ1790 AND PRESS ":EG$"N"1740SG$"N"Y" NSERT NEW DISK INTO DRIVE"" RESS ANY KEY WHEN READY TO PROCEED"1820:1850G$:G$""18 S54272 S,100:S1,125:S5,0:S6,240:S24,15:S4,17#*T0100:04S4,0:O>"ˠҠ";S1,S$,S2,S3~H:"ORRECT RROR CONDITION AND TRY AGAIN"R1670\980f15,8,15:15,S1,S$,S2,S3:15:S102110p"ˠ : ) " DON'T DO THAT!"C STUDENT QUIZN 774,6v""::53280,16:53281,16:S54727Q$(100),A$(100),B$(100),C$(100),D$(100),E$(100),M$(15),A(100)(840:"":12)" Ǡ":"":390:"" 2X1A: :2,A$(X):2,B$(X):2,C$(X):2,D$(X):2,E$(X)< STATUS64150E 110f 2:198,0:LX:15:920:"" TEST ROUTINE Y1:649,10:540 N1L1:"":20(N$)2);N$ S$(N)". "Q$(A(N))::450 ANSWER CHOICES ,, OR ":240 (F$)(S$)PP1T (F$)(S$)9)" NSWER IS CORRECT !! ":1030q "(F$)(S$)1060:820 ,T14000:: 6NN1 @S(PN100.5):"OU SCORED ";S;" %" JS80S90"TUDY THIS SECTION AGAIN" TS90S100 8,237:| PRINT JUSTIFYB15,8,15:3,8,3,"TEST TITLES,S,R":""LXX1Y3,M$(X)iST 64440r4003:198,0:AX:15:"":(S$)40S$:510X40:Y1XX1((S$,X,Y)(0))32470(S$,X)Z 036,003,169X003,141,037,003,096,1525b072,138,072,165,252,208Rl007,032,116,003,169,000ov133,253,166,253,189,000002,133,254,198,252,230253,104,170,104,168,165254,096,160,000,132,252165,002,032,210,255,169157,0 240,192,165,254,153,000" 002,032,210,255,169,000?133,212,200,076,118,003\ 230,252,153,000,002,169y*032,032,210,255,096,013410)"ORRY ANSWER IS WRONG "=ZZ1"ORRECT CHOICE IS: ";S$>H"":13)"UIZ ASTER ": CORRECT ANSWERS":" (Y/N)?"$G$:G$""9024G$"N"910EG$"Y"902NZZ1d808,225:649,0:} RANDOM GEN"--REPARING UIZ":""X1LA(X)((.)L)1X11000Yd4,17.T0200::S4,0:!"PASSWORD":YZ$5YZ$"PLYMO" D808,237:Z1d808,225:649,0:} RANDOM GEN"--REPARING UIZ":""X1LA(X)((.)L)1X11000Y 20&15,8,15:15,"I0:":15:0.: PRINT "1730SD" Ǡ!!!"N" ˠΠŠӠԠϠŠĠ!"X"  Šՠ?(/)"bG$:G$""1890lG$"Y"1930 ˠӠǠ--"15,8,15:15,"N0:"DN$","ID$@15,S1,S$,S2,S3:15:S102110:2050v" ˠ":T12000:53280,13:53281,5:990T11000::53280,13:53281,5:  SOUND ROUTINEI "S$z CHAIN STUDENT QUIZ "STUDENT QUIZ.E",8:,S1,S$,S2,S3:15:S102110:2050v" ˠ":T12000:53280,13:53281,5:990T11000::53280,13:53281,5:  SOUND ROUTINE X". "M$(X):2 <"NTER NUMBER OF TEST":649,10:XT FX1XA"Ġ":60~ PN$M$(X):YY$(N$,3):YY$"PFE"2000 Y649,0:15,8,15:"":2,8,2,N$" FILE,S,R" Z" Ǡ";N$;" ":"" dX0 nXX1) x2,Q$(X) 1 S$A$(A(N)):450:S$B$(A(N)):450:S$C$(A(N)):450R S$D$(A(N)):450:S$E$(A(N)) "NTER LETTER OF MOST CORRECT ANSWER: ":198,0 "";F$ (F$)1"NTER ONE LETTER ONLY ...":240 (F$)65(F$)68"NSWER MUST BE "ERY GOOD, BUT MORE STUDY WOULD HELP"M ^S100 "XCELLENT !!! ERFECT SCORE !!!"] hT13000: i "OULD YOU LIKE TO CHAIN 'QUIZ MASTER ?": XX$: XX$"Y"370 jXX$""361:"QUIZ MASTER.E",8: r"NTER TO RE-START PROGRAM":80 (S$):ZZX:(S$,Z) :E:14)"TEST TITLES"::A1X:A;". ";M$(A)::RETURl DISABLE CURSOR CONTROLS(830)133560&I828977:A:I,A:0828::169,000,133,252,169,080D133,251,169,164,133,002N169,083,141, 32,210,255,032,228255,240,251,164,252,133:254,169,032,032,210,255W169,157,032,210,255,165t254,201,013,240,043,201020,208,013,192,000,240211,136,169,157,032,210255,076,118,003,041,127201,032,144,196,196,251 53272,23!R" HESE TESTS ARE MULTIPLE CHOICE..."O\"NTER THE BEST ANSWER FROM THE CHOICES"]f"GIVEN."p" NTER THE NUMBER OF TEST YOU "z"HAVE BEEN ASSIGNED WHEN THE PROGRAM ""CALLS FOR IT.""O YOU WISH TO VIEW THE 1X1A(Y)A(X)950Y X"":9 CORRECT ANSWER SOUNDvS54272:S,150:S1,100:S5,0:S6,240:S24,15:S4,17T0200::S4,0: WRONG ANSWER SOUND$S54272:S,150:S1,5:S5,0:S6,240:S24,15:S vG$"N" 9901890"NTER ";:DN$Q(DN$)15"ŠϠ, ٠":T11000::1930{"NTER 2 HARACTER DISK ..":ID$:" Ӡ٠٠Ϡ":T11000G$:G$"" 990" APDKKAZB1B2K2NNOMEFLNZTOKERZIIIADYI1I2EENJ1NETRBLK1NEQNI ""5"LOAD"(34)"UTIL WEDGE"(34)"8,1"F"SYS 49152"Q("NEW"2"*? (WILL PRINT THE DIRECTORY)"<"*P:UTIL.DOCS (WILL PRINT INSTRUCTIONS)"FOR WRITE A DISK BLOCK *C COPY A FILE OR ENTIRE DISK, CHANGE A FILE T % QUIZ MASTER GENERATORaQ$(100),A$(100),B$(100),C$(100),D$(100),E$(100),M$(15)"":53280,0:53281,9:50(198,6:631,30:632,34:633,34:634,20:635,5:253272,23:970<"": FQ$(100),A$(100),B$(100),C$(100),D$(100 A$(X):2,B$(X):2,C$(X):2,D$(X):2,E$(X)5 ST 64170> 130X 2:198,0:LX:NX:T0e R1240{ 2150:2070:1670 H0970 H1240 INPUT QUESTIONS "NTER AME FOR UIZ":N$:1460:N0 NN1:"":13)" $(N)(92)NN1:770$ T(Q$(N))8012901 ^H1240V h"NTER FIRST ANSWER:"::40:H0u r"A. ";A$(N):A$(N)""370 |(A$(N))92NN1:770 A$(N)"A. "A$(N) (A$(N))801290 H1360 "NTER SECOND ANSWER:"::40:H0 0H1480)"NTER FOURTH ANSWER:"::40:H0H&"D. ";D$(N):D$(N)""550d0(D$(N))92NN1:770z:D$(N)"D. "D$(N)D(D$(N))801290NH1540X"NTER ETTER OF ORRECT NSWER:"::H0bE$(N):E$(N)""610l(E$(N)"ATA WILL BE STORED. PEN NEW TEXT FILE"-1720:770:990F STORE DATAs2070:10)" AIT, TORING ATA":2150 1830:2,8,2,"@0:"N$" FILE,S,W"X1L:2,Q$(X):2,A$(X):2,B$(X):2,C$(X):2,D$(X):2,E$(X): 2:198,0:21f REVIEW ROUTINEp2070:Y1:""=z:20(N$)2);N$:1670:""MN1L:""`Q$(N)""960S$(N)". "Q$(N)::1190 ANSWER CHOICESS$A$(N):1190:S$B$(N):1190:S$C$(N):1190:S$D$(N):1190 :"OR $:8)"3. HANGE A QUESTION"+.:8)"4. OAD PREVIOUS DATA"N8:8)"5. DD TO TEST IN FILE"mB:8)"6. DISK"L:8)"7. '' TUDENT UIZ"Q:8)"8. "V:5)"UMBER ?"`G$:G$""1120jG(G$)48:G1G9"NTRY TO LONG: E-PHRASE"H1:T12000::3 TEST TITLE FILEm(:"AS TEST TITLE FILE BEEN INITIATED ? (Y/N)":20702G$:G$""1330<G$"N"1460FG$"Y"1330P:17)"AIT "Z2150:1830:3,8,3,"TEST TITLES,S,R"dQ1V1V2V3F1F2V8X2A3B3S1T5S2R3DS WILL LOAD AND SAVE SEQENTIAL FILES, RESPECTIVELY. USE IT TO PUT FILES INTO SOMEWHERE ( USUALLY SPECIFY AN ADDRESS TO LOAD TO) SO THAT CAN EXA BEEN STARTED ?"G$:G$""1510G$"N"1600'G$"Y"13707X1". "N$X"S YOUR TITLE ORIGIONAL ?"lG$:G$""1560}"G$"Y"1600,"NTER NEW TITLE FOR TEST: "6N$@M$(X1)N$:2070J:13)"AVING ITLE "T),E$(100),M$(15),SN$(400),G(400)4 P1830:1360:2070\ Z"NTER NUMBER OF TEST TO LOAD:":N~ dN0NX"NVALID ANGE":90 nN$M$(N):12)" Ǡ" x1830:2150:2,8,2,N$" FILE,S,R":X0 XX1% 2,Q$(X):2,ڠҠ"8 :" !O NOT EXCEED 80 HARACTERS "k :" NTER \ TO EXIT ROUTINE " N100" Š":T12000::980 40 "H0 ,"NTER UESTION #";N: 6Q$(N) @Q$(N)""310 JQ"B. ";B$(N):B$(N)""430- (B$(N))92NN1:770C B$(N)"B. "B$(N)Z (B$(N))801290h H1420 "NTER THIRD ANSWER:"::40:H0 "C. ";C$(N):C$(N)""490 (C$(N))92NN1:770 C$(N)"C. "C$(N) (C$(N))80129)92NN1:770:990v(E$(N))112900E$(N)"A"690CE$(N)"B"690VE$(N)"C"690iE$(N)"D"690" RROR: RE-ENTER":610H1600P1LN:2070:N100730240:7)"ILE CONTAINS 100 NTRIES.":50:2070:1670:* CHANGE ANSWERSP42070:P1:" NTER UMBER OF UESTION":W>"":S$Q$(W):1190:S$A$(W):1190:S$B$(W):1190HS$C$(W):1190:S$D$(W):1190R "ORRECT ANSWER IS: ":E$(W)\1670:NW1:240:770:RECT ANSWER IS: ":7)E$(N):20701670::4 PROGRAM MENU<H0W"":53280,0:53281,9a2070iP013)"ڠ ":5)"NTER NUMBER OF FUNCTION: ":8)"1. NTER NEW QUIZ":8)"2. EVIEW QUESTIONS" 1120tG230,880,820,60,1640,1790,3000,1170~990'20707198,0:198T PRINT JUSTIFYZr(S$)40S$:1280X40:Y1XX1((S$,X,Y)(0))321220(S$,X)Z(S$)ZZX(S$,Z)  dX0nXX1:3,M$(X) xST 6414201390+3:198,0:2150;S102110Y"":14)"TEST TITLES":vA1X:A;". ";M$(A):: INITIATE TEST FILEX151710X15X1X11600"AS FILE OF TEST NAMES 1830:3,8,3,"@0:TEST TITLES,S,W"(^A1X1:3,M$(A)::3:198,0:2150:Kh TEST ADDITION ROUTINEQrf|R1:70:R0:990:5)"ӠŠҠϠŒ"G$:(G$(0))321680""10)"Š" / A͌/ <?A ANY KEY FOR MENU >L/.(R/ʴB(/ ACDDDͱ΁Վ ՕcմBA<C֧.,A#  PRINTING PAUSED >֦.0*εA!  PRINTING ABORTED >.0&DBA* * PRINTING A 0ASAVE LIST TO DISK>0AHUNT FOR ITEM>0ARE-SORT LIST >0ADISPLAY LIST>0AADD TO LIST >0APRINT LIST>ܦ0A EDIT LIST V4.1>-A" '\' GETS MENU - 'Q' TO QUIT >FR1LV C S H @ =V A:/̘D,QR1.R31 >$ YOUR LIST HAS NOT BEEN SAVED->$ --READY TO QUIT ANYWAY? (Y/N)>% ˟>?4 +XIMUM NUMBER TO ENTER <$S$1Ơ$\R6( 쑑>4THE NEW%YEXISTING%#&Y &&< ENTER NAME OF <%< LIST >P 5  쑑>5\R6(G FILE WILL BE >"''1  REPLACED!<? OKAY TO CONTINUE?? (Y/N)>'LFYR/̠'R7x!NR6i(P ENTER NEW NAME 7 \(/̌/.*A#NAME TOO LONG...15 CHARACTER LIMIT>7  OKAY...SAVING <>BS0:[Ca[> -P*ADDITIONAL NUMBER TO ADD TO LIST <-S-\R/?-1ńƆĜR*;@ .." "@ ."A >A A B C S O R T >A V4.1 >A(4ANUMBER TOO LARGE>44:*3R:*  NUMBER<3< IS .......>3/ A3> EDIT THIS NAME (Y/N)?>!F!NR:*!YR;* ENTER THE CORRECT NAME (*=DELETE NAME)>P <5S5\R<^55  푑>;%5*0(  DELECOUNTERED!!>d6/ A6>ݧ@"SA$ PRESS COMMODORE KEY TO CONTINUE >L.R*RA%THE LIST NOW IN MEMORY WILL BE LOST >-AIF ANOTHER LIST IS SELECTED.>[ACONTINUE? (Y/N)>?LFY"99(.AHUNT FOR ANOTHER NAME? (Y/N)>!F!N!Y R>Ƞ!YR=/̨T=T==TT>T ?T@TT TkTcT kT2T(T!>?@A2AATBBBT==G=GG=6=N= ==!=J}LJJ=OSFKKZAIADNRPD1TL9LLIJTACLQQKGMDTPPPILABORTED * *C-ۖ/W-1< ׸D͍#  ADVANCE PAGE (Y/N) >FYR.NR/.٦AD/+ ENTER CURRENT DATE >P# //.0.Ǵa." ꓑ>/r:1" **************************> ********** MENU **********> **************************>0ALOAD AN EXISTING LIST>0AVIEW FILE DIRECTORY>0ACREATE A NEW LIST>۰1ܘRD A P E Q @1ܲݧ@"ݧާ." <:"3ߟ4 S:4434 ߘC""  READY TO QUIT ? > ˟>L!F!Ya@"!Y1~f:/8"R6(.Y4. - ALPHABETIZES BY FIRST ENTRY ->#P& MAY1(A&PLEASE WAIT..... THE LIST IS LOADING..>75 ENTER 'END' TO COMPLETE THE LIST IF LESS THAN<< ARE ENTERED.>>>\ R*'!F!R6i!\R/̠!Y5, WARNING!! THIS EXISTIN,U,W` Ʊ,Р,/̄Č\ R*cABY>7A R. W. KOBER>@.AT./K/.LST§UA.B./K/.<001K10"\ R*:*#Ġ2\R<^3TE NAME COMPLETLY (Y/N)? >< DO YOU WANT TO CHANGE>3/ A3>;ATO>5/ A5>:A(Y/N)?>!F!NR;%!YR<5*355*3 CHANGE ANOTHER (Y/N)?>!F!YR:*!NR*<XADISK ERROR ENEMORY IS CLEARED>ߧܠ99"*/̌\ R*ꓙ2A(SHIFT STOPS SCROLL)>P <:S;:\R/̠: 둑>>< <:<:/4<<</ A<>;.R>n;+ NO MATCH FOR   > ? @TCTCCTTTKTTDEܠEDTDDDFܠFDTDDTT==G=GG==K=@==!=HH=HHIII=T -- ԰>a`D R/,A! PRESS COMMODORE KEY WHEM READY >L+ DATA TO PRINTER - STAND-BY>&  SHIFT TO PAUSE -- \ TO ABORT >ATHE PRINTER IS NOT ON!>AA\ TO ABO  zb3c4Pen"ȱPi#a"b"babc ȆdeiLLд<  P P!"`4A47R/́Y R*ǰ

*X\R/̱ENDȆ**KR+U<ɧ.D. >% >@,N,AA$(1):˧ /̌\ R*.R,/ A͌/ <?΁ώ ώcϏA.аѐ/(  ANY KEY TO CONTINUE - \ = MENU >ёLF\R/̑]ȥadJ$p de8a48/ic$bJdc(bJf( d( ݽ e$f    9=:=8 Ii<0 dJeF<Ӑ ;L  C L edLH  9DȄ;LeidL{Lkj$"jzȹ"ȹ:,8jaL( ** THERE IS NO LIST IN MEMORY **ݒ>' ˟>>ʧ "/<.<0 >% THE LIST IS NOW BEING SORTE 0 dߥe L87L L@,,%L9=:>L<' YLq). "C L9:LCLᧅ +Lw edLLedc4b3 ea34a edLbc#"eda4 3)ed$0L-LLhac4b3 bLaa)ia34821 z34bcibL0 d2h h,h.&h0#h8hhhhJ  edLH hhPhQPPi95#ʊniIeeiI iinaa=348a21 :"PRESSN FOR NEXT SCREEN": h"L FOR LAST SCREEN"V r"E TO EXIT TO BASIC"n |"S TO LOAD ONLY" "R TO LOAD AND RUN" Z$"":Z$:Z$"" 400 Z$"N" NN10:300 Z$"L" NN10:300 Z$"E" "MENU STILL PRESENAo FORMATXX2AMABC.SORT<UTIL WEDGE1UTIL.DOCS?READ MEQUIZ MASTER.E STUDENT QUIZ.E QUIZ MASTER DKKDISPLAY T&S ULTRA READER-PEEK A BYTE/ DISKENVELOPER+LOAD BY T&ST&LTWOSIDE 1571CONVERTFLEETKKKKKKKKKKKKKK U>Ϡpψ _ƭghLà+Lwύϥ+Y,ZYHYYhZWϥXϭgmύϭhmύϐLBåWrϥXsϭgύvϭhύwϠǹ +W,XȱWȱWLWHWWhXȱW ȱW ɤ%ɉɍɧɊ,e J h / | , İ o Њ =  H ɽH ϲh 沢MX eX  ` {Ș eJ J`M z`8e`J J") JJJJJ)ܾX)M) JJJ Ȉ` e  -[.\ϥ-_8].`^]_ʈ]_^` y-Ь.Ш8Ǫiϑ[. 8 [LW_X`_ψ_i_Hmȑ_`h__`+W,XrύϭsύϠWLÈWYȱWZȭϑWȭϑWmvύϭwmύϥYWZXLWORK ESET COMPUTER *B BLOCK RD/WRT *# NEW WEDGE # *C CPY/RSTR FL/DSK *= NEW DRIVE/WDG # *D SHOW DIRECTORY *+ NEW BORDER COLOR *F SHOW FREE MEMORY *- NEW BACK COLOR *I INITIALIZE DRIVE *\ NEW TEXT COLOR *L SHOW LOAD ADDR *? GET COMMAND MENU *M GO TO M  VALIDATE DISK ** SAVE USR FILE BY JIM KLITZING ύgϭύhL hS`TUL8S S`W ۷ 1 簐 Y /Vn See հ Y 簰Q VFW  H *` V ` dK |K /L`Lh t ' e Y o֝e g J ȥX\eW\[ W : 0Ǣ LnjǠ iψ0 0iψ írύϭsύϥ+Y,ZYgȱYh/YȱYLZυYvmύϭwmύLύgϭύh ¢i0ǩ8ǍǭǰP8ING.8  ' ш) 6 /XWW g ( é(eWXWܩ L)  @@ ` i@`3]4^L MULTIFUNCTION UTILITY WEDGE COMMANDS * DISK STATUS *X PRINT SCREEN *A AUTO NBR/RE/NBR *! RICROMON */ LOAD PROGRAM *N FORMAT DISK *, LOAD ML PROGRAM *P PRINT SEQ FILE *^ LOAD+RUN PROGRAM *Q QUIT WEDGE *_ SAVE PROGRAM *R RENAME FILE *: LOAD SEQ FILE *S SCRATCH FILE *; SAVE SEQ FILE *U UN-NEW PROGRAM *@ LOAD USR FILE *V xL `  婆ύɑ `a u `HdX=< B*LM? , . NVd . $ݐI lL` V`N  H`HS  MȐ`T6UU.T*i? LH  ,L1 `  Ĥ>å ϩ  &   ݩ L= BLhHwHHHHl`KH hILr V  ȳ L .:  H ggϢ Ĉ-gϑW`H, àh`,+ 3"#iȅ-.L ũ w381gϥ42hLé GŠȹeΝhhLS  pϠ u¹ _ƍnϠ u®p ®ʬ p)L w <8n Lƭ_ W X W WXW e e b bTK 1M/Uɝ o*S8`ʊMVAw İ o x} yz {|Lh eJKe hhVLL`KJ`0G`8`N`HJJJJ 'h)L' ,  `?h)>@Ahi= LhL ׽膭(ƭ ҆'L(8` T = =d̥ Τӑѩ` T Y T Y`)  @` ` WEDGE MONITOR (MICROMON V.5) @E@ 0"E3@ @E3@ @E@ "D3ЌD7Ш)) xT܎ܭ) ܩߢDCBxDC <H=H>H?@A@L` AZ[\] R\]Lh ۷bc ROP RQR WN 1V 簐N  İLhM3M8OȱPQȭRmbȱLPʻ* thE`<7!``Ƀ<ϭ=ϭv΍w΍qϩ`) ` *Ƚ ^L> 轭Lw HH`q `>Ϛ`q `>Ϛ   Lu Lh=<`K H  /K` gi /K`>` V`H h.  L v ; =< =  HC D  $ LhL` A RDC $K   `e   Pکo oϠ Lnυ  P   ꥐ @ mLn  ȹ n.  wƪ 8  wXЀ LkH,8h`HGhi`  `$ )   i@ (ʩL HL A H  Lh » + " = H(`  0 :)`hh`L`HH&&hehe&ee` »UHH H Hh  Hh H Lh H  Lh » + " LHJ&&` U >ϚLw  H( h mgύgϭmhύh ЦLB`,.,: 00םiLÊ0ʝi` ĭhLíg =gύq`  g s) @tΠm gύqL,-υW.υXW  H H) h. /L  ȳ:wL=  L Af O0O8?Jnfne ":  |0eeَTVKV XU6 e eMX0 bX I:i ȳL$ ɽ oN, LL / }Lɑх҅^ T:,$^i(ݍI LI:$' н8 ˳ Lp н Lh н^8^ ɽ o ^MM N, Chi<H hAh@h?h>h=h<DCBX>)LN,HP<[k=Zc^[_SH0NHҮBHHL $K =< H$N  LhJMHF_^:SL[\]^_@H  n U c H"D3ЌD"D3@ "D3@ bx!YMJ,),#($YX$$#]#)i#$S#$S[[i$$)|mi)S4i#bZH&bTDThDt(ntJrtttrDh2"&&rr&HDD PC IRQ SR AC XR YR SPABCDFGHLMNQR(TWX,:;$#"+-OIJ%&EV)>2/mc /0 A RTU U` A U R` HJJJJ 'h) 'H hLiii:`Hh`Y | g g`L` tY ` Y Y8`:)(i` Le`* О L  ?ȥ?L? `<ύ=ύ`   Lά  @( kL Hh ϩ ÐʩƩ L v΅]w΅^] ^` u¢ `ά  w ­SIS )"У " Q  g) ٩IS LhIL )i L` Lh / / H S0 S LhL` Lh .$   H H0T.Ui `UT H ĺ H Ϭ9gJJJJ `0i8gHhϐ hhgih` gύhϹi80 mgύgϽmhύhϰ ʈ`>ϚLw u¢ ®ά  g hϥ kL k íhϮg ϩ L,Lgύhύ ,$ `ԩԩDԎԌLe L eeL S H LhLڻx XϚLwg8WnϭhXn`*L ȩrϩsϭtυZY w ɠȽ4,0*,Yi ݠY rȱYsϰǮ>Ϛ ȩLwa,5 Y Y w @ɭ  L wYsψYrϢ f ɠcslLå)` `HHHgHhHhϽg  i0 ihhhghhh`E PRINTER IS READY>-MAKE SURE LABELS ARE ALIGNED PROPERLY>)ARE YOUR LABELS 2 ACROSS OR 1 ACROSS?><@ ( 1 OR 2 )><@SELECT NUMBER>F L482 2tt`>ϚLwYsψYr` L ?0@0` Ȯ>ϚL  wr ϩ s ϩ  YLȢ w  Y   wr ϩ s ϩ Lȭ*n Ȯtφ\Ztϩ[YYPE, RECOVER SCRATCHED FILE *D READ DISK DIRECTORY *F SHOW HOW MUCH FREE MEMORY *I INITIALIZE DISK DRIVE *L SHOW LOAD ADDRESS OF PROGRAM FILE *M ENABLE ICROMON MONITOR *N FORMAT A DISK *P PRINT SEQENTIAL FILE *Q DISABLE WEDGE *R ȩ wLɎ jj訩i jrώs$```` ȭtυZY p _ƤWg ʐLwW*RLé w  ȩ wYgϥZh Lϩ w íY` w @ L:,Là u¹ LύpϠ COLOR *\ CHANGE CHARACTER COLOR *? SHOW COMMAND MENU */ LOAD PROGRAM FILE *, LOAD PROGRAM FILE TO HEADER ADDRESS *^ LOAD PROGRAM FILE AND RUN IT *_ SAVE PROGRAM FILE *: LOAD SEQENTIAL FILE *; SAVE SEQENTIAL FILE *@ LOAD USER F, OTHERS CONTINUE?ZERO PAGE LOAD ERROR U1: 8 0 ?FILE NOT FOUND ERROR INSERT DESTINATION DISK:INSERT SOURCE DISK:B-A: 0 RESTORING SCRATCHED FILE... ?CANFILE B-P: 8 0 U2: 8 0 ?OUT OF MEMORY ERROR READING DATA... WRITING DATA... CHANGING DIR D DISASSEMBLER E DISCONNECT MICROMON F FILL MEMORY G GO RUN H HUNT MEMORY J JUMP TO SUBROUTINE L LOAD MEMORY FROM DEVICE M MEMORY DISPLAY   3$Q!IVNRSDPLJ/0^:4_8;<@@*D,0=E#E+Ė-Ė\ĖUCMBFA˂X/?8A'd 0123456789ABCDEF+ -!\SPU΃00, OK,00,00 { `NUDOSFY 00624 Ll L Lߵx`aX ϥ ) DISABLE COMMAND TONE + ADD HEX NUMBERS - SUBTRACT HEX NUMBERS > DISK DIRECTORY OMMAND DETAIL AND SYNTAX WROTE THIS PROGRAM WITH SEVERAL OBJECTIVES IN MIND........ WANTED TO BE ABLE TO ACCESS A LOT OF UT ABOUT IT ONE LAST TIME). ------------------------------------------------------------------------------ *C:FILENAME *C:FILENAME,TYPE *C* *C** HE *C:FILENAME COMMAND IS USED TO MAKE COPIES OF SINGLE FILES. HE FILE IS READ O USE ABBREVIATED COMMANDS. HE WEDGE RESIDES IN MEMORY FROM HEX $A001 TO $CFFF. NY PROGRAM THAT DOES NOT USE MEMORY IN THIS RANGE SHOULD BE ABLE TO CO-EXIST. OTE THAT 2/3 OF THE MEMORY USED BY THE WEDGE IS UNDER THE BASIC ROM. INCE THE WEDGE  E NUMBER WILL BE WAITING FOR YOU ON THE FOLLOWING LINE, AND THE CURSOR WILL BE WAITING ONE SPACE TO THE RIGHT OF THE NUMBER. UTO LINE NUMBER FEEDS WILL BE DISCON- NECTED AUTOMATICALLY WHEN ANY FUNCTION IS PERFORMED OTHER THAN EDITING OR ENTERING PRORECT MODE ONLY) THAT THE COMMAND THAT FOLLOWS SHOULD BE TURNED OVER TO THE WEDGE INTERPRETER. OU CAN LOAD THE WEDGE WITH THE FOLLOWING COMMAND: LOAD"WEDGE",8,1 EXT, AND ENABLE THE WEDGE WITH 49152. HE WEDGE IS NOW READY AND SET TO COMMURENUMBER A BASIC PROGRAM RESIDING IN THE 64. HE FIRST NUMBER IS THE NUMBER YOU WANT THE FIRST LINE TO BE, AND THE SECOND IS THE STEP SIZE BETWEEN LINE NUMBERS. HE THIRD FORM OF THIS COMMAND DISCONNECTS AUTO LINE NUMBER FEEDS. ---------------------E THE WEDGE PROGRAM WEDGE IF YOU GAVE IT A DIFFERENT NAME WHEN YOU DOWNLOADED IT, OR ALL YOU'LL GET IS AN I/O ERROR #4 (FILE NOT FOUND) WHEN YOU TRY TO USE THE BOOT WITH IT. -----------------------------------------------------------------------------AY THE DATA (SEE ICROMON COMMAND DOCS). INCE ICROMON DISPLAYS IT'S INFORMATION IN HEX, IT'S USUALLY A GOOD IDEA TO SPECIFY HEX NUMBERS IN THE BLOCK-READ AND BLOCK-WRITE WEDGE COMMANDS (TO AVOID CONFUSION). HE FIRST NUMBER IS THE TRACK, THE SECOND TURB BASIC PROGRAMS, NOR WILL THEY OVERWRITE VARIABLES OR STRINGS. UFFERS ARE ALLOCATED BY THE WEDGE FROM AREAS THAT HAVE NOT YET BEEN USED BY YOUR BASIC PROGRAMS. HESE AREAS ARE FOUND BY READING THE VECTORS AT LOCATIONS 49 THROUGH 52. ------------S VERY POWERFUL. F YOU GOOF USING IT, YOU CAN REALLY MESS UP A DISK, SO IT'S A GOOD IDEA TO HAVE AN EXTRA COPY OF THE DISK ON HAND AS INSURANCE. OR THIS REASON, YOU WILL ALSO BE PROMPTED TO CONFIRM YOUR INTENT TO WRITE TO THE BLOCK (MAKES YOU THINKILITY PROGRAMS WITHOUT HAVING TO LOAD THEM IN EVERY TIME WANTED TO USE ONE. LSO, DID NOT WANT IT TO SLOW DOWN THE RUNNING OF PROGRAMS, CHANGE ANY OF THE STANDARD BASIC COMMANDS, NOR USE UP ANY OF THE BASIC MEMORY SPACE. ALSO WANTED TO BE ABLE T *A,1000,10 *A HIS COMMAND CAN TAKE ANY OF THOSE THREE FORMS. HE FIRST WILL ENABLE AUTO LINE NUMBER FEEDS. FTER GIVING THE COMMAND, YOU CAN START THE PROCESS BY TYPING IN A BASIC PROGRAM LINE. HEN YOU PRESS RETURN, THE NEXT LINIS WRITTEN ENTIRELY IN MACHINE LANGUAGE, BASIC IS NOT NEEDED TO PERFORM ANY OF THE WEDGE COMMANDS, AND IS SWITCHED OUT (TEMPORARILY) WHILE THEY ARE BEING PERFORMED. LL WEDGE COMMANDS MUST BE PRECEEDED BY AN ASTERISK (*). HE ASTERISK TELLS BASIC (DIGRAM LINES. HIS INCLUDES LISTING OR RUNNING PROGRAMS, POKES, PEEKS, ETC. (OTHERWISE IT WOULD INTERFERE WITH THESE FUNCTIONS). HE NUMBER FOLLOWING THE COMMA CAN BE ANY NUMBER FROM 1 TO 63999. HE SECOND FORM OF THIS COMMAND (TWO NUMBERS) IS USED TO NICATE WITH DISK DRIVE # 8 (DEFAULT SETTING). R YOU CAN USE THE BOOT PROGRAM (BOOTUW.IMG) TO AUTOMATICALLY LOAD, ENABLE THE WEDGE AND DISPLAY THE COMMAND MENU FOR YOU. IKE THIS: LOAD"BOOT",8,1 HE BOOT AND THE WEDGE MUST BE ON THE SAME DISK. ENAM--------------------------------------------------------- *BR,$20,$2 *BW,$20,$2 HE *BR COMMAND WILL READ A BLOCK OF DATA FROM THE DISK, DISPLAY THE LOCATION OF THE BUFFER WHERE THE DATA IS STORED, AND ENABLE ICROMON SO THAT YOU CAN DISPL- OTES: NLESS OTHERWISE NOTED, ANY REFERENCES TO NUMBERS CAN BE IN DECIMAL OR HEX. F YOU SPECIFY HEX, THE NUMBER MUST BE PRECEEDED BY THE $ SYMBOL. XAMPLE ---- 42 (DECIMAL) OR $2A (HEX) OMMANDS WHICH WRITE DATA TO BUFFERS IN THE 64 WILL NOT DIS IS THE SECTOR (BLOCK). HE *BW COMMAND WILL WRITE A BLOCK OF DATA FROM THE BUFFER TO A BLOCK ON THE DISK. HIS COMMAND IS USUALLY USED AFTER A BLOCK-READ COMMAND, WHERE YOU HAVE MODIFIED THE DATA AND WISH TO WRITE IT BACK TO THE BLOCK. HIS COMMAND I ------------------------------------------------------------------ * HIS COMMAND ALONE WILL READ THE ERROR CHANNEL OF THE DISK DRIVE AND PRINT IT ON THE SCREEN. ------------------------------------------------------------------------------ *A,10  INTO A BUFFER FROM THE SOURCE DISK, AND YOU ARE PROMPTED FOR ANOTHER DISK (MUST BE FORMATTED). NCE YOU HAVE INSERTED THE DESTINATION DISK, PRESSING WILL CAUSE THE BUFFERED FILE TO BE WRITTEN TO IT. OR LARGE FILES, IT WILL BE NECESSARY TO SWATO THE PRINTER. HE COMMAND LINE IS ERASED JUST BEFORE THE DUMP SO THAT YOU CAN COPY THE SCREEN WITHOUT HAVING *X SHOW UP ON YOUR PRINTOUT. T'S GOOD PRACTICE TO ISSUE THIS COMMAND FROM A LINE OTHER THAN THE LAST (ISSUING IT FROM THE LAST LINE WILL CA SCRATCHED, IT WILL RECOVER THE FILE (NOT COPY IT). HE FILE WILL BE RECOVERED AS A PROGRAM FILE UNLESS YOU SPECIFY OTHERWISE, AS IN THE FOLLOWING COMMAND. HE *C:FILENAME,TYPE COMMAND IS USED TO CHANGE FILE TYPES, OR TO RECOVER SCRATCHED FILES AS A  . OT DIFFERENT ENOUGH TO MATTER MUCH. ------------------------------------------------------------------------------ *N:DISKNAME,ID ORMATS A DISK. HE DISK NAME CAN BE UP TO 16 CHARACTERS LONG AND THE ID CAN BE ANY 2 LETTERS OR NUMBERS, OR ONE OF EOWEVER, YOU CAN COPY RELATIVE FILES WITH THE NEXT 2 COMMANDS. HE *C* COMMAND WILL MAKE A COPY OF THE ENTIRE DISK. ISKS WITH A LOT OF DATA ON THEM WILL NEED TO BE SWAPPED A FEW TIMES (YOU'LL BE PROMPTED), AND THE DESTINATION DISK MUST ALREADY BE FOR A FULL FORMAT. ------------------------------------------------------------------------------ *P:FILENAME RINTS A SEQUENTIAL FILE TO THE SCREEN OR TO A PRINTER (DEVICE 4 ON THE SERIAL BUS). RESSING THE KEY WHILE PRINTING TO THE SCREEN WILL SIRECTORY OF THE DISK AND PRINTS IT ON THE SCREEN. HIS COMMAND WILL NOT RUIN PROGRAMS IN MEMORY AS THE LOAD"$",8 COMMAND DOES. RESSING THE KEY WILL SLOW THE LISTING, ANY OTHER KEY WILL STOP IT. ---------------------------------------------------BLE IT, YOU MUST 49152. ------------------------------------------------------------------------------ *R:NEWNAME=OLDNAME ENAMES A DISK FILE ------------------------------------------------------------------------------ *S:FILENAME CRATCHES A ------------------------------------------------ *L:FILENAME EADS OUT THE LOAD ADDRESS OF A PROGRAM FILE IN HEX AND DECIMAL ------------------------------------------------------------------------------ *M NABLES ICROMON, A MACHINE LANGUAGE MONIT LOADED IN ANOTHER ONE YET). LSO PERFORMS A . ------------------------------------------------------------------------------ *V ALIDATES A DISK ------------------------------------------------------------------------------ *X UMPS THE SCREEN P THE DISKS UNTIL THE ENTIRE FILE IS COPIED (YOU WILL BE PROMPTED TO DO SO). XAMPLE....*C:WEDGE WILL COPY THE FILE NAMED "WEDGE". O NEED TO SPECIFY FILE TYPE, AS THAT INFO IS READ FROM THE DIRECTORY. F YOU USE THIS COMMAND ON A FILE THAT HAS BEEN LAR. OME OF THE DIFFERENCES ARE THAT THE WEDGE VERSION RESIDES UNDER THE BASIC ROM FROM $B000 TO $BFFF, AND IS SUPPORTED BY SEVERAL WEDGE SUBROUTINES; THE 'P' COMMAND TOGGLES THE PRINTER (DEVICE 4) ON THE SERIAL BUS INSTEAD OF ON THE 232 PORT; ETCPARTICULAR FILE TYPE. OR EXAMPLE, *C:WEDGE,S WILL CHANGE THE FILE NAMED "WEDGE" TO A SEQENTIAL FILE, OR WILL RECOVER A SCRATCHED FILE NAMED "WEDGE" AS A SEQENTIAL FILE. NE FINAL NOTE ON COPYING SINGLE FILES........RELATIVE FILES ARE NOT SUPPORTED. ACH. F YOU LEAVE OFF THE COMMA AND ID FROM THIS COMMAND, ONLY THE DIRECTORY WILL BE CLEARED. HIS IS USEFUL IF THE DISK IS ALREADY FORMATTED AND YOU WANT TO CLEAR OUT ALL THE OLD PROGRAMS. AKES ONLY A COUPLE OF SECONDS COMPARED TO ABOUT 2 MINUTES FORMATTED. LL BLOCKS ALLOCATED IN THE WILL BE COPIED. HE *C** COMMAND WILL CAUSE ALL BLOCKS TO BE COPIED, WHETHER THEY ARE ALLOCATED IN THE OR NOT. ------------------------------------------------------------------------------ *D EADS THE DLOW THE DISPLAY, ANY OTHER KEY WILL PAUSE. HILE PAUSED, PRESSING 'X' WILL TERMINATE THE OPERATION, ANY OTHER KEY WILL RESUME IT. ------------------------------------------------------------------------------ *Q ISABLES THE WEDGE PROGRAM. O RE-ENA--------------------------- *F EADS OUT HOW MUCH UNUSED MEMORY IS LEFT FOR BASIC IN HEX AND DECIMAL VALUES. ------------------------------------------------------------------------------ *I NITIALIZES THE DISK DRIVE ------------------------------ DISK FILE ------------------------------------------------------------------------------ *U N-NEW'S A PROGRAM. HIS COMMAND IS USEFUL TO THOSE OF US THAT ACCIDENTIALLY TYPE AND WISH WE HADN'T. T WILL RECOVER THE PROGRAM (AS LONG AS YOU HAVEN'T OR PROGRAM. ANY VERSIONS OF THIS PROGRAM EXIST, SO WON'T GO INTO A DETAILED LIST OF THE COMMANDS AND THEIR SYNTAX. HERE IS GOOD DOCUMENTATION AVAILABLE IN OMPUTE'S IRST OOK OF OMMODORE 64, THOUGH, AND THE VERSION USED IN THE WEDGE IS VERY SIMI USE THE SCREEN TO SCROLL). HIS IS A FAIRLY SIMPLE SCREEN DUMP UTILITY. T WILL NOT SUPPORT BITMAPPED SCREENS, REVERSE VIDEO WILL BE PRINTED AS NON-REVERSE, ETC. OWEVER, IT WILL SUPPORT UPPER AND LOWER CASE CHARACTERS AND GRAPHICS CHARACTERS. T %d******************************In* DISPLAY ANY TRACK $ SECTOR *mx* ON THE DISK TO THE SCREEN ** OR THE PRINTER *******************************"""DISPLAY BLOCK CONTENTS" " ARD "HINKJET". ------------------------------------------------------------------------------ *! ENDS THE COMPUTER TO IT'S COLD START ROUTINE (SAME AS TYPING 64738) ------------------------------------------------------------------------------  LLOW THIS FORM: *_FILENAME,ADDR1,ADDR2 HE FIRST ADDRESS IS THE START OF THE SAVE, THE SECOND IS ONE BYTE THAN THE LAST ADDRESS TO BE INCLUDED IN THE SAVE. DDRESSES CAN BE HEX OR DECIMAL. OR THE LOAD COMMANDS, THE SYNTAX IS LIKE THIS: */F------------------------------------------------------ *=9 HANGES BOTH THE WEDGE NUMBER AND THE NUMBER OF THE DISK DRIVE YOU ARE CURRENTLY COMMUNICATING WITH. F YOU ARE CURRENTLY DEALING WITH DRIVE 8, GIVING THIS COMMAND WILL CHANGE THE DRIVE NUMBE----------------------------------------------------- *:FILENAME *;FILENAME HESE COMMANDS WILL LOAD AND SAVE SEQENTIAL FILES, RESPECTIVELY. USE IT TO PUT FILES INTO SOMEWHERE ( USUALLY SPECIFY AN ADDRESS TO LOAD TO) SO THAT CAN EXAER, BACKGROUND AND CHARACTER COLOR RESPECTIVELY. *+14 WOULD CHANGE THE BORDER COLOR TO LIGHT BLUE, *-14 CHANGES BACKGROUND TO LIGHT BLUE, AND *\5 WILL MAKE THE TEXT GREEN. UMBERS MUST BE SPECIFIED IN DECIMAL. OU CAN GIVE THESE COMMANDS WITHOUT NUMBEAD AND SAVE USER FILES, REPECTIVELY. DDRESSES OPTIONAL. ------------------------------------------------------------------------------ HERE IS ROOM LEFT FOR ONE MORE COMMAND, AND WHAT 'D LIKE TO DO THERE IS ADD A FAIRLY SIMPLE WORD PROCESSOR. 'L------------------------------------------------------------------- */FILENAME *,FILENAME *^FILENAME *_FILENAME *HE FIRST EXAMPLE LOADS A PROGRAM FILE THE SAME AS LOAD"FILENAME",DEVICE. HE SECOND IS THE SAME AS LOAD"FILENA":7 ******************************[ * SET PROGRAM CONSTANT * ****************************** SP$" ":NL$(0):HX$"0123456789ABCDEF" FS$"":I64 95:FS$FS$""(I)"": I SS$" ": I192 223:SS$SS DOES IT BY READING THE REGISTER AT $D011 PRIOR TO OPENING THE PRINTER FILE. F THE MODE IS UPPER/LOWER CASE, A SECONDARY ADDRESS OF 7 IS SENT TO THE PRINTER, ELSE IT SENDS A ZERO INSTEAD. ESTED WITH THE 1525, ROWRITER 8510 AND THE EWLETT-ACKTHEN RUN A PROGRAM (USUALLY USED ON BASIC PROGRAMS). HE FOURTH IS USED TO SAVE A PROGRAM, AS IN SAVE"FILENAME",DEVICE. N ALL OF THESE EXAMPLES, YOU CAN SPECIFY ADDRESSES (OPTIONAL). F YOU SPECIFY ADDRESSES FOR THE SAVE COMMAND, THE SYNTAX MUST FO*#9 WITCHES THE WEDGE NUMBER SO THAT YOU CAN COMMUNICATE WITH A DISK DRIVE OF A DIFFERENT ADDRESS (DEVICE 9 IN THIS CASE). OU CAN SPECIFY A DEVICE NUMBER FROM 8 TO 31, BUT YOU MUST SPECIFY IT IN DECIMAL (AS IN THE EXAMPLE). ------------------------ILENAME,ADDR *,FILENAME,ADDR *^FILENAME,ADDR PECIFYING A LOAD ADDRESS WILL CAUSE THE BASIC POINTERS TO REMAIN UNTOUCHED, WILL OVERRIDE HEADER ADDRESSES AND CAUSE THE LOAD & RUN (*^) COMMAND TO DEFAULT TO LOAD ONLY. -------------------------R TO 9 AND SET THE WEDGE TO COMMUNICATE WITH DEVICE 9. AME SYNTAX RULES APPLY AS IN *# COMMAND. ------------------------------------------------------------------------------ *+14 *-14 *\5 HESE COMMANDS CHANGE THE BORDMINE THE DATA WITH ICROMON. NCE IN , THE DATA CAN BE MODIFIED AND WRITTEN BACK, IGNORED, WHATEVER. DDRESSES ARE OPTIONAL HERE, TOO. ------------------------------------------------------------------------------ *@FILENAME **FILENAME ORS (*+ *- OR *\). N THIS CASE, THE COLOR WILL BE INCREMENTED TO THE NEXT HIGHER-NUMBERED ONE. ------------------------------------------------------------------------------ *? ISPLAYS AN ABBREVIATED COMMAND MENU FOR QUICK REFERENCE. -----------L BE WORKING ON IT IN THE COMING WEEKS. N THE MEANTIME, WOULD APPRECIATE ANY FEEDBACK FROM THOSE THAT DOWNLOAD THIS PROGRAM ON IT'S USEFULNESS, OTHER COMMAND IDEAS, ETC. HANK YOU, IM LITZING [75206,2536] RESS TO CONTINUE: JAC ME",DEVICE,1. OWEVER, THE BASIC POINTERS WILL NOT BE DISTURBED. HIS COMMAND IS USUALLY USED TO LOAD MACHINE LANGUAGE PROGRAMS, AND WORKS THE SAME AS THE COMMAND %FILENAME (LOADS TO THE FILE HEADER ADDRESS). HE THIRD EXAMPLE WILL LOAD AND  $""(I)"": I! A$(15),NB(2), D$"0"[ " SCREENOR PRINTER"r JJ$: JJ$"" 254 JJ$"S"" SCREEN"  JJ$"P"" PRINTER" 15,8,15,"I"D$: 650 4,4  2,8,2,"#": 650 ** $ U JJ$"P" 4:4,"TRACK"T" SECTOR"S:4? ^15,"U1:2,"D$;T;S:650c h****************************** r* READ BYTE 0 OF DISK BUFFER * ****************************** 15,"B-P:2,1" 15,"M-R"(0)(5) #15,A$(0):A$(0)""A$(0)NL$  IK 3'#2,A$(I): A$(I)"" A$(I)NL$H K1 I2 NB(2)(A$(I))T I:K0{A$"":B$":":NJ4: 790:A$A$":" I0 3:N(A$(I)): 790C$A$(I): 850:B$B$C$ I: JJ$"S" A$B$ J:571*************** $A$":"- I0 15:N(A$(I)): 790: Z$"N" J40: 571IC$A$(I): 850:B$B$C$Q Ii JJ$"P" 4,A$B$v J:571;******************************<* NEXT TRACK AND SECTOR *=****************************** ?"NEXT ************** ERROR ROUTINE *A******************************a15,EN,EM$,ET,ES: EN0 "DISK ERROR"EN,EM$,ET,ES******************************* SCREEN CONTINUE MESSAGE **********************A$(HX$,A11,1)>A2(N16A1):A$A$(HX$,A21,1).HA$A$SP$:RR******************************v\* DISK BYTE TO ASC DISPLAY *f* CHARACTER *p******************************z (C$)32 C$" ": (C$)1Ѕ™ֲ   ĉͅ   50       : 1. R, E , & W    40   DOS   &     2. F F    DOS   3. N   @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@T ,      : @@@@@@@@@@@@@@@@@@r@@@@@@@@@@@@@@@@@@@@@ONLY $35   ] Q S  US / C ] P. O. B 12716 M  ! ] L  P , FL 33403 Ɍɧɤ :LLz Φ'̅w̅HH`E ' '$QLqƷ(̅L?ͥ o ' ķ Lͥ o  L  Ly`  Ĥ>å ͽ  & P A B   5  *****  INFO 64         "                ." (S INFO #9 D 85-J 86   ).****************************: "* LOAD TRACK AND SECTOR *^ ,* INTO DISK BUFFER * 6****************************** @"TRACK, SECTOR";T,S J T0 T35 15,"I"D$:2:4:15:"END": T JJ$"S" "TRACK"T" SECTOR"S""  JJ$"S"430  JJ$"P"460> ******************************b * READ & CRT DISPLAY * * REST OF THE DISK BUFFER * ****************************** K1:NB(1)(A$(0))  J0 63: J32 710: Z$"N" J80: 458***************%* READ & PRINTER DISPLAY *I******************************`K1:NB(1)(A$(0))o J0 15~ IK 15#2,A$(I): A$(I)"" A$(I)NL$ K1 I2 NB(2)(A$(I)) I:K0A$"":B$":":NJ16: 790:ATRACK AND SECTOR"NB(1)NB(2) ""6D"DO YOU WANT NEXT TRACK AND SECTOR"LN Z$: Z$"" 590pX Z$"Y" TNB(1):SNB(2):330b Z$"N" 320l 590v******************************* SUBROUTINES *************************** "CONTINUE(Y/N)"#Z$: Z$"" 7504 Z$"N" H Z$"Y" 750i "TRACK" T " SECTOR"S "":****************************** * DISK BYTE TO HEX PRINT ********************************4A1(N16):A$628 (C$)159 C$(SS$,3((C$)127),3): 7504 Z$"N" H Z$"Y" 750i "TRACK" T " SECTOR"S "":****************************** * DISK BYTE TO HEX PRINT ********************************4A1(N16):A$  "" GCR   4. GCR        5. A /  DOS   6. N     DOS  7. W    1541  1571 (1541 ) ԏВ L!!!!!xGGG~k%/^_>@#Q DOS MANAGER V5.1/071382 BY BOB FAIRBAIRN (C) 1982 COMMODORE BUSINESS MACHINES L̢̕|wLKυ    ݩ L B Ly+,z%, .z%.- Y 3zɭ/L LL|L YLͤ')ẅ') wi wLy sL:ϩ`|zH{H" sh{hz y"{\ hh sV"R=:  "Ơ(L>:XX.Y h Y*YX ::WX9m99:i:`?YLA8:9ȭYLȽQ` @ M1`9 W`:JJJH V:8VhmW`kZ 9H sh9 moE )k  20 fƩ@ ѵ ql? q}@]@ '` Ȉ`55 Ȉ5565 ' 56` Щ ] x L ǩ\!0! %  nj! ǩׅ L`̠ 6 ǩ4 F MА?@ Lw}CH[}CH` "˭4<9L:M  ʭ[ (LHĩ9:; 5 L̩, L L ,0 `Z _ j̦֠ ty߆z{ ̥9:L̠ …: …98  _ Lʠ 9: ΢ ɽL̢ s  " mmn&: 2ǭx1,3ũ Ʃ1`9   :,,,(n`                    v w ? @w0 v0,ll Lo?E @,pk?E@STAXZ-+[]<>,.:; HDIRECTRYVERIFY1VERIFY2EDIT FILL0/FFFILL 00PRINTERQUIT READ DRIVE WRITE SEARCH UNIT MONITORGOTO CONVERTJMP UN-NEW MEMDRIVEBUFFER DISASSEMSECTOR TRACK AUTO ɱ L )Nn*i?  ά ɽ `0 ȭE ΪȘ ȊLȰJJJJ)`EF ΢ αEJj )J DCύ)) JJJ `8FeE` L ` Ω $ <Π:L8 #6E5P 08`WARNING! PROGRAM CORRUPTED `౹Ҡ ] DISPLAY ] FUNCTIONS````````` A - HEX/C ]  - BAM Z - ASCII/S ] C - C X - RPYRIGHT 1986 SLAYMAKER TRACK  SECTOR  DRIVE  UNIT COMMAND BUFFER 00 CRSR  VS 1.4Z4 9H:H sLSECTORS FREE :: :99 ȭ9JJJJ '9`9:#9 " _ 9 h:h9 " LH `L9A7\:?DE7P;<C 4G/FHOT U$@RS `@   0 ]  ' prnk[s?m[ '̍y s.x s&]"y*ʩ?, 'xâL|LL| y s`{ `@ m>mLm9#9  LԳ9ڠ?E@FF`ABxC  `x x`g @L  LuM-W _ hh`M-W!eJ i e`m `, L lL H  h L "ƍBF˰B  L% HG hHJH " h`hiHhHL;SVĠ4vPīmwz0*,ÙQ7h$(kqʳʨ>M\kkq,L$Ǎǫ$VEFQRWMGCJUBD;/ s2/ L̅HH&&hehe&ee` LT+,ȱȘe+iȑ+Șe-i.LcERROR COPYRIGHT (C) 1986 BY P. A. SLAYMAKER H ͭ7 ΅EFh8` MHE Ȣ ȐhύTύȌoF`lw p.,*YL: ĥ@` "` L>  Ϡ L' LM-RLH PAGES 00 TO 07 ąF H   B z8BzEAC  E z BBz 4 ąFLLHz{L 8  ŢL `P Ȍ )` {[` L< Y (` L<5ɢ+"50 LH h iLLH h `ʲenE PEEK A BYTE - CO ɬ6-O Ȍ65Ȑ`@E@ 0"E3@ @E3@ @"E@ "D3ЌD"D3ЌD"D3@ "D3@ bx!YMJ8Q8ĺ؅QĹѸu$$ʘXڥ$$uu>99!,FZdF)*"*")-!.-v./3RNO%QUEE...N"MLMDXXddNN#Sd""E,),#($YX$$ /N ] D - D  ] E - E  PARAMETERS ] F - F T - T ]  - F 0/FF S - S ] G - G B - B ] J - J   - D  ]  M - M   - U  ]  M - M   @@@@@@@@@@@@@@@@@@@s  - P  R/S     ]  - S Q    ] U - U- @@@@@@@@@@@@@@@@@@@s V - V 1 Q S ]  - V  C  C (     "L:L#0ERROR DEVICE NOT PRESENTr r`,u ƭZ © ݭ) ТL  2ǩ Ʃ L  2ǩ ǩ Ƣ v w͠ v0w % Ǣ Ġ(, ` LŢ9 Ƞ: ȠD Ƞ&C Ȣ4 ȭTUE F#? ȥ@L DŽ?@e@@J i e??`t7tytq ǬE q   &®qL  SYS 49152 COPYRIGHT 1984 SLAYMAKER౹Ҡ ] READ COMMANDS ]SECTOR/BUFFER`CMDS  < -  S B ] , -  S B  > -  S B ] . -  S B \CőXhhh`4` L DZ L4ȩ`  (ȩ0@ >ȠԈ`7ԩԩԩԩA`(Px@h0X Hp]/~|} L Ǣ  ǭ455H sɭ7Ph L­EL[hhq` Nȹ mN`Ai)`,s Zĭ7 s fL LH ɽLǢ 4` @9 "ŭ:L\ "Ţ > ::`CIC`DID 0ōL`F ȥE `Z4FE F E@@@@@@s    :   S] - -  S B  B : ] + -  S B R - R k@@@@@@@@@@@@@@@@@@@ W - W  ]COLORS: F2 F4 F6 @@@@@@@@@@@@@@@@@@@@q@@@@@@@@@@@@@@@@@@@ R/W /F C    İ-) ' Z ɠLL̫ɐ Lɥ ȥ 8 ' , L  " L4`4`:9#9 "ŭ>:`>:` " F:`:9#99`4L-4LM DZ#@9 "ȱ> :8@[` x ĩO *L LH  L=h`) @ ` @`i@`i ` Ģ ǩ` ȭ\` Lɭ9>`012345678901234567890123456789012345000000000011111111112222222222333333U1:2 0 TT SSB-P:2 0I0U2:2 0 TT SS R SYS 49152 COPYRIGHT 1984 SLAYMAKERLuLALı`s Ǣsv̍ws̍vw lvw LǠ` b H Ǣu  Ǣ ˭ tǭu H HĢEZ;Z 2 S V  ]  $ - D  @@@@@@@@@@@@@@@@@@@q@@@@@@@@@@@@@@@@@@@@ Ï͏ P A K M P H R0 ` nƩ͍ Ƣ  "Ơ" `8 ϩŅ8 `9gōōŽCōō`:gōōŽCōō` !Щ !Щ i) Ǒܐ` `!!`HH HHHHxH q $y İ ɑqJLнr ȬrIJ`IJ  `` ęq` "Ƣ̆ jtHs7%ɑɝ`EL|EL|8EEL|EiE hhE`hh  E E` ɑt ǭ7 L   -  S ] : -  S   -  S ] ; -  S  [ -   ]   -  B S  B ]   -  B  - A R]   -  S B    ]  -  S B @@@@@@@@@@@@@@h-O ȩ Lh 5`HJJJJ h) 0:9 Ƞ`H}Bȅ^ih`HJJJJ h) 0:i)LGHD @<54- ,@$`(ɀ(ɁɅɏɠ^` `8`8@`8 `i@`HJJJJmRh) JJJmmS`4ɘ` L " DL LíO %ĭ7I7 U,T`O %ĩ7PIP,Lé7OIO0,UPL ĭ;0 mƭ; ` LHĭ4ɠ") L=ƭ4 4 8`0:8` ĐAG` ' lhh L7   RETURN S/B/D   C  -    @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ Ï͏ P A K M P H L)L44<,$9H:H xhh9: 4 x4`4LȭL9M:`; L% ǭB ɍ~` " hh` L 5 ȭ; ;` "  - (` "  M (` "  l (` "  r (`/ ȭ. Ƞ / . ' Ll . ݭH) ݭH) ) hhhhݩ` "H` 'ꪪ P A B 64    1986  P  A. S     Q S 15,8,15 5,8,5,"#"8 #15,"B-R:"5,0,18,2B(B$""O2L0255Z<#5,A$sF ST0 B$B$A$:LP "FINISHED"Z5: 15 LOCK" "PRESS ANY KEY TO EXECUTE" A$: A$"" 210 Z53281,0:53280,2:" 15,8,15 5,8,5,"#"615,"B.R:"5,0,18,2@(B$""M2L0255X<#5,A$qF ST0 B$B$A$:LP "FINISHED"Z5: 15ATXX2A                       C-64             . @@@@@@@@@@@@@@@@@@@@@@@@@@ ȉ˅ Y  NOT     %! 15,8,15: 15,"U0>M1": 15 L=Ȅ" @ , @ LABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789!#$%&'()+-[].<>/ YN89010:TEMP,U RROR: 1234567890123456789012345678901234567890123456789012345678123456789012345678? N aW C  1982  CBM  C-64             . @@@@@@@@@@@@@@@@@@@@@@@@@@ ȉ˅ Y  NOT     KKK - A    . @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ T           ""  ""            . P         P A B V1.4KK     ,                  . "S"                  . @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ DOS 5.1 KKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK