"":I828 A:A25642I,A:II1:2M(65440)135924,189k 169,1,32,195,255,169,36 141,240,3,169,48,141,241 3,169,1,162,8,160,0 32,186,255,169,2,162,240 160,3,32,189,255,32,192 255,169,64,32,144,255,162 1,32,198,255,32,144,255> 32,207,255,32,207,255,32]  207,255,32,207,255,201,0|  240,58,32,204,255,32,228  255,201,32,208,3,32,196  3,162,1,32,198,255,32  207,255,168,32,207,255,72  152,170,104,32,205,221,169  32,32,210,255,32,207,2552  201,0,208,8,169,13,32P  210,255,76,115,3,32,210l  255,76,162,3,169,1,32  195,255,32,204,255,169,204  133,178,96,32,228,255,201  32,208,249,96,256  *** BY KARL J MOHR III  *** 1340 5TH AVENUE  *** 1-815-397-0093Y  *** THIS PRG WAS SET UP TO ACCOMODATE THE OKIDATA 120 PRINTER *** THE STRANGE OPEN AND CLOSE SEQUENCES IN THE PRINT MODS HAD TO BE ! *** THERE IN ORDER TO TAKE ADVANTAGE OF READING THE ST VARIABLE* " *** IT SEEMS THAT THE ST VAR. DOESN'T WORK RIGHT WHEN THES # *** SECONDARY ADDRESS OF 7 IS USED $ *** YOU MAY POSSIBLY HAVE TO RECONFIGURE THE PRINT MODS 1DN8 2A$(200):DN(82818) 753280,0:53281,0 <(14) d"":646,1:53280,0 n2);"1541/1581 UAL RIVE IST ROCESSOR"; ::16);"OMMAND:"::k "  1) RETRIEVE LIST FROM DISK " "  2) SAVE LIST TO DISK " "  3) START NEW LIST " "  4) SEE PRESENT LIST IN MEMORY "+"  5) CHANGE ENTRY IN LIST "["  6) CONTINUE LIST ""  7) DELETE ENTRY ""  8) GET PRINTOUT ""  9) SEE FILES IN DIRECTORY ""  ) READ ANY SEQ. FILE "K"  ) READ & PRINT SEQ. FILE "{"  ) SCRATCH DISK FILE ""  ) DISK OPTIONS ""  ) END "646,3K$:K$"" 215 K$"1"600K$"2"700*K$"3"800:K$"4"890KK$"5"1000\K$"6"1100mK$"7"1800~K$"8"1300K$"9"1400K$"R"1600 K$"P"1700!K$"E"1200"K$"S"400$K$"D"25000:100'K$"1"K$"8"215 ** SCRATCH dr FILESL"";3);" "t3);" ISK ODE: "3);" ILE TO BE CRATCHED.... "3);" "646,1::3):NL$::" RE YOU SURE? OR "S$:S$""412(S$"Y"4208S$"N"100IS$"Y"412W15,DN,15i15,"S0:"NL$t20000|15646,10:::3);NL$;" HAS BEEN SCRATCHED !":T11500:100XL148:A$(L)"":Z"" [3);" ISK ODE: "P\4):"(\) FOR DISK OPTIONS...":4);"(NY KEY) TO CONTINUE.."c]X$:X$""605v^X$"\"25000_X$"\"608`"EVICE NO. =";DN:"NTER ILENAME TO OAD...."a646,1:::3):NL$d15,DN,15g2,DN,2,"0:"NL$",S,R"*hST128"DEVICE NOT PRESENT":1005i20000Dl2,L:2,L$QvS1L1^2,A$(S)do2:15x890""3);"ISK ODE: ":3);"(\) FOR DISK OPTIONS...3);"NY KEY TO CONTINUE...."X$:X$""703X$"\"25000!X$"\"706`"EVICE NO. =";DN:"NTER FILENAME TO SAVE....":646,1::3):NL$:NL$"ZZZ"10015,DN,15:2,DN,2,"@0:"NL$",S,W"200002,L:2,L$S1L12,A$(S)2:15100 "NTER IST ITLE...."+!::L$T"" "{#" NTER LIST.... "%" IMIT ENTRY TO 36 CHARACTERS "*" RESS '*' TO STOP "," "::646,3>L1200:A$(L)"":?L1200L@A$(L):A$(L)""A$(L)" "sAB$A$(L):(B$)36A$(L)(B$,36)BA$(L)"*"A$(L)"":900FH1135zCD$"":646,3 ** d} AT 890"RESS (S) TO START AND STOP LIST..."#"RESS (M) TO GO BACK TO MENU..."6X$:X$""904FX$"S"908VX$"M"100gX$"S"904646,1:"";L$:"":X1800:"":S1L1:S;A$(S):X150:X$X$"S"925935X$:X$""925X$"S"935X$"S"925:646,159"";28);" "R28);" RINTOUT? "k28);" (ES/O) "28);" "R$:R$""960R$"Y"1300R$"N"100R$"N"R$"Y"960************CHANGE ENTRY646,15" ":" CHANGE WHICH ITEM? "W" (ZZZ) TO EXIT... "t" "646,3::V$::V$"ZZZ"100V(V$)"ITEM";V;"IS";A$(V) 646,1::"CHANGE TO ";B$#A$(V)B$:(B$)36A$(V)(B$,36),$890LL*************CONTINUE LISTM"";" ONTINUE IST AT URSOR.... ":T11300::""NS1L1OA$(S):QYLRLY200VA$(L)[B$A$(L):(B$)36A$(L)(B$,36) `A$(L)"*"A$(L)"":890#eL200A$(L)"":LL11j:646,15Uo"";20);" "qt20);" IST FULL... "~20);" CLOSE FILE. "20);" AND RE-OPEN. "20);" "T12000::100"ARIABLES HAVE BEEN CLEARED.....":T11100:353280,14:53281,6:"">"":W*********PRINT LISTmP$(16):Z$(13)v3,4#3,(27);"1";(15)%ST1281450&3:3,4,7(3,(27)"C"P$"05"L$(27)"D")3*3,(28),S1L1*23,P$"00"S;P$"05"A$(S);P$"48"S(L2)P$"53"A$(S(L2))<ASL211360CFSSP3,(24):3\Z100x" "y" (T) TO TOGGLE DEVICE NO. "z" ":"";27);"DEV ="DN;"":646,10::"NY EY FOR IRECTORY.....":&X$:X$""1408@X$"T" 30000:1400RX$"T"1414n646,13:828:X1800:646,15:"";26);" "26);" F1 TO CONT. "26);" "R$:R$""1426R$(133)100 R$(133)1426 34 " "U " TATUS ";ST;" "s " UT PRINTER ON-LINE " " " 646,14:::"ETURN TO ONTINUE" X$:X$(13)1460 X$(13)3:100!@"";1);" "A!E1);" AME OF EQ. ILE TO BE "p!J1);" "::!O1):646,3:KM$::!R15,DN,15!T2,DN,2,"0:"KM$",S,R"!Y20000!^#2,X$!cX$;!hST642:15:1660!r1630'"|646,1:"";15);" KEY TO CONTINUE....";"X$:X$""1670D"100["***PRINT SEQ FILE""";1);" ""1);" AME OF EQ. ILE TO BE ""1);" "::#1):646,3:KM$::#15,DN,152#2,DN,2,"0:"KM$",S,R"H#3,4:3,(27);"1"e#ST1282:3:15:1451p#20000~#3:3,4,7#3,X$;##2,X$#X$;#ST643," ":2:3:15:1760#1730#646,1:"";15);" KEY TO CONTINUE...."$X$:X$""1670$1008$ **** DELETE ENTRY MODULEE$ ""l$ 3);" "$ 3);" NTRY NO. TO BE DELETED "$3);" (ZZZ) TO EXIT...... "$3);" "%::3):646,3:X$:X$"ZZZ"100%X(X$)%A$(X)""*%!IXL1<%&A$(I)A$(I1)H%+:LL1Q%:890f% N15,A1,B2$,C1,D1v%*NA1121000|%4N%R"":646,15%R" "%R" ISK RROR TATUS....... "%R" "&&R646,14::::&0R9);B2$::7&DR9);"RACK "C1O&NR9);"ECTOR "D1g&SR9);"ODE O. "A1&XR::3);" NY KEY FOR MENU..."&]RX$:X$""21085&bR2:3:15:100&a&aDN853280,7&aDN953280,10'a ** CHANGE DEVICE NO.!'a"HANGE DEVICE NO?":D'a"CURRENT DEVICE IS";DN;"":d'a"(T) TO TOGGLE DEVICE NO."'a"(ETURN TO ONTINUE)"'aX$:X$""25070'aX$"T"25690'bX$(13)25110' bX$"T"X$(13)25070'bDN8846,DN:25130:53280,7( bDN9846,DN:25270:53280,104(*b ** DEVICE 8 MENUK(4b"EVICE 8 ENU"b(>b:"D) IRECTORY"w(Hb"S) AIN MENU"(Rb"R) ROCEED WITH /"(\b"G) O BACK TO DEV CHANGE"(fb"E) ND (OOT PRG IF DESIRED)(pbX$:X$""25200)zbX$"D"25760)bX$"S" 100#)bX$"G"250202)bX$"E" A)bX$"R" T)bX$"D"25130k)b ** DEVICE 9 MENU)b"EVICE 9 ENU")b:"D) IRECTORY")b"S) AIN MENU")b"R) ROCEED WITH /")b"G) O BACK TO DEV CHANGE"*b"M) OTO OOT IR."*b"P) OTO UB-IRECTORY"0*c"E) NDE*cX$:X$""25360X*cX$"D"25760i*$cX$"S" 100{*.cX$"G"25020*8cX$"M"25450*BcX$"P"25490*LcX$"E" *VcX$"R" *`cX$"D"25270*jc ** CHANGE TO ROOT+tc15,9,15:15,"/":15,A,B$,C,D:15:*+~c PRINTA;B$;C;D:PRINTC+c646,3:25760:25270Z+c ** CHANGE TO SUB+c:"HICH UB-IRECTORY.... (CBM) FILE?"+c:NA$+c15,9,15,"/0:"NA$:15,A,B$,C,D:15+c"":25760:25270+Zd ** DEVICE CHANGE ,ddTD(82818):TD8DN9,ndTD9DN8,,xdDN853280,7@,dDN953280,10O,d82818,DNZ,d25020,d ** JUMP TO DIRECTORY ML ROUTINE,d646,3:"IRECTORY OF DEV.";DN,d:828:646,1,d:"NY KEY.....",dX$:X$""25840,d646,7-eX$"""":-0u ** DEVICE CHANGE7-:uTD(82818):TD8DN9F-DuTD9DN8Y-NuDN853280,7m-XuDN953280,10|-bu82818,DN-lu