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$"":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:"";: 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":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 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 EMBEDDED IGNORE"C 2)""x !3)" ߒ  ߛ" "3)" F1 SEND OUTPUT TO SCREEN  F2 " #3)"  "$42)""A%3)" ߒ  "t&3)" F3 40 COLUMNS TO PRINTER  F4 "'3)"  "(42)"")3)" ߒ  "<*3) " F5 80 COLUMNS TO PRINTER  F6 "n+3)"  ",42)""-3)" ߒ  ".3) " F7 DISK HOUSEKEEPING 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,123,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$=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: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: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:54287,F2:F2F21.07::54278,15:3TRP$"":F$"1"F$"2"RP$" "qUCC:(14):""2)"***********************************"V2)"* "F$" -Š"RP$" *"W2)"***********************************" X214,23::"OLD 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:X10:`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:Z1T: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,F2mF2F21.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 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? ":10|198,1:A$:(A$"Y")126:""}30H~"";:8)" USE ULTRA AGAIN, SOON "c198,.:T3:102:65126lFF0"":214,8:6)""6)" "6)" 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 "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,.:53281,.40)" ";B" THIS ROUTINE WILL SCRATCH A FILE ";s" "42)"ENTER 'M' TO RETURN TO THE MENU."42)"ENTER '$' TO LIST THE FILE DIRECTORY.""----------------------------------------";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/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 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: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: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"#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)" "$787,25:2,15:OC%L""43)" << EADING ILE NTO AN RRAY >> ",%214,23:n%" ԙ TO AUSE ---- 6 TO BORT":LL0:206%2,8,2,FF$:118:E25%YY1:CR2,0:CR%K1112:A$(K)""::U0%((CR3)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)226: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: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(:I15: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 ")(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!Щ,W Щ D f婒 ,,,,,V `   ,   , r (  WP֍,L*,L,L/ ,,,,, ͽ ,,,: H,$L-.  . _Xh",L+ ,i,,Lx+  , F.L-,L`.L.L.L.,L. ƍ,,,, LA+ hh h!Щ`MI'S DIRECTORY BY BOB K7 FOR MILADY  -> READING SEQ FILES ON DISK <-  F1 : SELECT FILE NAME F5 : RETURN TO MENU F7 : SEE NEXT PAGE CRSR : SCROLL TO FILE RETURN: VIEW ANOTHER DISKCHANGE DISK PRESS SPACE WHEN READY NO SEQ FILES FOUND h,",,,L, ," `֠  J.H8͛,hi ,i, F.@L-,h@L,,D"L|,"VL|, L* D!Ѝ Щ  -