home *** CD-ROM | disk | FTP | other *** search
- 1 PRINT"[147]":I=828
- 2 READA:IFA=256THEN4
- 3 POKEI,A:I=I+1:GOTO2
- 4 IFPEEK(65440)=135THENPOKE924,189
- 6 DATA 169,1,32,195,255,169,36
- 7 DATA 141,240,3,169,48,141,241
- 8 DATA 3,169,1,162,8,160,0
- 9 DATA 32,186,255,169,2,162,240
- 10 DATA 160,3,32,189,255,32,192
- 11 DATA 255,169,64,32,144,255,162
- 12 DATA 1,32,198,255,32,144,255
- 13 DATA 32,207,255,32,207,255,32
- 14 DATA 207,255,32,207,255,201,0
- 15 DATA 240,58,32,204,255,32,228
- 16 DATA 255,201,32,208,3,32,196
- 17 DATA 3,162,1,32,198,255,32
- 18 DATA 207,255,168,32,207,255,72
- 19 DATA 152,170,104,32,205,221,169
- 20 DATA 32,32,210,255,32,207,255
- 21 DATA 201,0,208,8,169,13,32
- 22 DATA 210,255,76,115,3,32,210
- 23 DATA 255,76,162,3,169,1,32
- 24 DATA 195,255,32,204,255,169,204
- 25 DATA 133,178,96,32,228,255,201
- 26 DATA 32,208,249,96,256
- 27 REM *** BY KARL J MOHR III
- 28 REM *** 1340 5TH AVENUE
- 30 REM *** 1-815-397-0093
- 31 REM *** THIS PRG WAS SET UP TO ACCOMODATE THE OKIDATA 120 PRINTER
- 32 REM *** THE STRANGE OPEN AND CLOSE SEQUENCES IN THE PRINT MODS HAD TO BE
- 33 REM *** THERE IN ORDER TO TAKE ADVANTAGE OF READING THE ST VARIABLE
- 34 REM *** IT SEEMS THAT THE ST VAR. DOESN'T WORK RIGHT WHEN THE
- 35 REM *** SECONDARY ADDRESS OF 7 IS USED
- 36 REM *** YOU MAY POSSIBLY HAVE TO RECONFIGURE THE PRINT MODS
- 49 DN=8
- 50 DIMA$(200):DN=PEEK(828+18)
- 55 POKE53280,0:POKE53281,0
- 60 PRINTCHR$(14)
- 100 PRINT"[147]":POKE646,1:POKE53280,0
- 110 PRINTSPC(2);"1541/1581 [196]UAL [196]RIVE [204]IST [208]ROCESSOR"
- 130 PRINT:PRINT:PRINTSPC(16);"[195]OMMAND:":PRINT:PRINT
- 140 PRINT" 1) RETRIEVE LIST FROM DISK "
- 150 PRINT" [159] 2) SAVE LIST TO DISK "
- 160 PRINT" [158] 3) START NEW LIST "
- 170 PRINT" [156] 4) SEE PRESENT LIST IN MEMORY "
- 180 PRINT" [155] 5) CHANGE ENTRY IN LIST "
- 190 PRINT" [150] 6) CONTINUE LIST "
- 200 PRINT" [154] 7) DELETE ENTRY "
- 201 PRINT" [153] 8) GET PRINTOUT "
- 202 PRINT" [152] 9) SEE FILES IN DIRECTORY "
- 203 PRINT" [159] [210]) READ ANY SEQ. FILE "
- 204 PRINT" [208]) READ & PRINT SEQ. FILE "
- 205 PRINT" [211]) SCRATCH DISK FILE "
- 207 PRINT" [158] [196]) DISK OPTIONS "
- 208 PRINT" [155] [197]) END "
- 210 POKE646,3
- 215 GETK$:IFK$=""THEN 215
- 220 IFK$="1"THEN600
- 230 IFK$="2"THEN700
- 240 IFK$="3"THEN800
- 250 IFK$="4"THEN890
- 260 IFK$="5"THEN1000
- 270 IFK$="6"THEN1100
- 280 IFK$="7"THEN1800
- 281 IFK$="8"THEN1300
- 286 IFK$="9"THEN1400
- 287 IFK$="R"THEN1600
- 288 IFK$="P"THEN1700
- 289 IFK$="E"THEN1200
- 290 IFK$="S"THEN400
- 292 IFK$="D"THENGOSUB25000:GOTO100
- 295 IFK$<"1"ORK$>"8"THEN215
- 400 REM ** SCRATCH dr FILES
- 402 PRINT"[153][147]";TAB(3);" "
- 404 PRINTTAB(3);" [196]ISK [205]ODE: [211][195][210][193][212][195][200] [198][201][204][197][211] "
- 405 PRINTTAB(3);" [198]ILE TO BE [211]CRATCHED.... "
- 406 PRINTTAB(3);" "
- 407 POKE646,1
- 409 PRINT:PRINT:PRINTTAB(3):INPUTNL$
- 411 PRINT:PRINT:PRINT" [193]RE YOU SURE? [217] OR [206]"
- 412 GETS$:IFS$=""THEN412
- 413 IFS$="Y"THEN420
- 414 IFS$="N"THEN100
- 415 IFS$<>"Y"THEN412
- 420 OPEN15,DN,15
- 425 PRINT#15,"S0:"+NL$
- 430 GOSUB20000
- 435 CLOSE15
- 436 POKE646,10:PRINT:PRINT:PRINTTAB(3);NL$;" HAS BEEN SCRATCHED !":FORT=1TO1500:NEXT
- 440 GOTO100
- 600 FORL=1TO48:A$(L)="":NEXT
- 602 PRINT"[153][147]"
- 603 PRINTTAB(3);" [196]ISK [205]ODE: [210][197][212][210][201][197][214][197] "
- 604 PRINTTAB(4):PRINT"(\) FOR DISK OPTIONS...":PRINTTAB(4);"([193]NY KEY) TO CONTINUE.."
- 605 GETX$:IFX$=""THEN605
- 606 IFX$="\"THENGOSUB25000
- 607 IFX$<>"\"THEN608
- 608 PRINT"[147][196]EVICE NO. =";DN:PRINT"[197]NTER [198]ILENAME TO [204]OAD...."
- 609 POKE646,1:PRINT:PRINT:PRINTTAB(3):INPUTNL$
- 612 OPEN15,DN,15
- 615 OPEN2,DN,2,"0:"+NL$+",S,R"
- 616 IFST=-128THENPRINT"DEVICE NOT PRESENT":GOTO100
- 617 GOSUB20000
- 620 INPUT#2,L:INPUT#2,L$
- 630 FORS=1TOL-1
- 640 INPUT#2,A$(S)
- 650 NEXT
- 660 CLOSE2:CLOSE15
- 670 GOTO890
- 700 PRINT"[153][147]"
- 701 PRINTTAB(3);"[196]ISK [205]ODE: [211][193][214][197] ":PRINTTAB(3);"(\) FOR DISK OPTIONS...
- 702 [153][163]3);"ATNNY KEY TO CONTINUE...."
- 703 [161]X$:[139]X$[178]""[167]703
- 704 [139]X$[178]"\"[167][141]25000
- 705 [139]X$[179][177]"\"[167]706
- 706 [153]"LOADSTR$EVICE NO. =";DN:[153]"VALNTER FILENAME TO SAVE....":[151]646,1
- 707 [153]:[153]:[153][163]3):[133]NL$:[139]NL$[178]"ZZZ"[167]100
- 708 [159]15,DN,15:
- 710 [159]2,DN,2,"@0:"[170]NL$[170]",S,W"
- 712 [141]20000
- 715 [152]2,L:[152]2,L$
- 720 [129]S[178]1[164]L[171]1
- 730 [152]2,A$(S)
- 740 [130]
- 750 [160]2:[160]15
- 760 [137]100
- 800 [153]"LOADVALNTER (null)IST (null)ITLE...."
- 801 [153]:[153]:[133]L$
- 802 [153]"LOADDEF "
- 803 [153]" VALNTER LIST.... "
- 805 [153]" (null)IMIT ENTRY TO 36 CHARACTERS "
- 810 [153]" (null)RESS '*' TO STOP "
- 812 [153]" ":[153]:[151]646,3
- 830 [129]L[178]1[164]200:A$(L)[178]"":[130]
- 831 [129]L[178]1[164]200
- 832 [133]A$(L):[139]A$(L)[178]""[167]A$(L)[178]" "
- 833 B$[178]A$(L):[139][195](B$)[178][177]36[167]A$(L)[178][200](B$,36)
- 834 [139]A$(L)[178]"*"[167]A$(L)[178]"":[137]900
- 838 [130]
- 840 [137]1135
- 890 CD$[178]"":[151]646,3
- 900 [143] ** d} AT 890
- 902 [153]"LOADDEF(null)RESS (S) TO START AND STOP LIST..."
- 903 [153]"(null)RESS (M) TO GO BACK TO MENU..."
- 904 [161]X$:[139]X$[178]""[167]904
- 905 [139]X$[178]"S"[167]908
- 906 [139]X$[178]"M"[167]100
- 907 [139]X$[179][177]"S"[167]904
- 908 [151]646,1:[153]"LOAD";L$:[153]"OPEN":[129]X[178]1[164]800:[130]
- 910 [153]"LOAD":[129]S[178]1[164]L[171]1:[153]S;A$(S):[129]X[178]1[164]50:[130]
- 912 [161]X$
- 915 [139]X$[178]"S"[167]925
- 920 [137]935
- 925 [161]X$:[139]X$[178]""[167]925
- 927 [139]X$[178]"S"[167]935
- 930 [139]X$[179][177]"S"[167]925
- 935 [130]:[151]646,15
- 940 [153]"";[163]28);" "
- 945 [153][163]28);" (null)RINTOUT? "
- 950 [153][163]28);" ((null)ES/(null)O) "
- 955 [153][163]28);" "
- 960 [161]R$:[139]R$[178]""[167]960
- 965 [139]R$[178]"Y"[167]1300
- 970 [139]R$[178]"N"[167]100
- 980 [139]R$[179][177]"N"[176]R$[179][177]"Y"[167]960
- 1000 [143]************CHANGE ENTRY
- 1003 [151]646,15
- 1005 [153]"LOAD "
- 1010 [153]" CHANGE WHICH ITEM? "
- 1015 [153]" (ZZZ) TO EXIT... "
- 1016 [153]" "
- 1017 [151]646,3
- 1020 [153]:[153]:[133]V$:[153]:[153]
- 1025 [139]V$[178]"ZZZ"[167]100
- 1026 V[178][197](V$)
- 1030 [153]"ITEM";V;"IS";A$(V)
- 1035 [151]646,1
- 1040 [153]:[153]:[133]"CHANGE TO ";B$
- 1055 A$(V)[178]B$:[139][195](B$)[177]36[167]A$(V)[178][200](B$,36)
- 1060 [137]890
- 1100 [143]*************CONTINUE LIST
- 1101 [153]"LOAD";" LENONTINUE (null)IST AT LENURSOR.... ":[129]T[178]1[164]1300:[130]:[153]"OPEN"
- 1102 [129]S[178]1[164]L[171]1
- 1103 [153]A$(S):[130]
- 1105 Y[178]L
- 1106 [129]L[178]Y[164]200
- 1110 [133]A$(L)
- 1115 B$[178]A$(L):[139][195](B$)[178][177]36[167]A$(L)[178][200](B$,36)
- 1120 [139]A$(L)[178]"*"[167]A$(L)[178]"":[137]890
- 1125 [139]L[177]200[167]A$(L)[178]"":L[178]L[171]1
- 1130 [130]:[151]646,15
- 1135 [153]"";[163]20);" "
- 1140 [153][163]20);" (null)IST FULL... "
- 1150 [153][163]20);" CLOSE FILE. "
- 1155 [153][163]20);" AND RE-OPEN. "
- 1157 [153][163]20);" "
- 1160 [129]T[178]1[164]2000:[130]:[137]100
- 1200 [153]"LOAD(null)ARIABLES HAVE BEEN CLEARED.....":[129]T[178]1[164]1100:[130]
- 1210 [151]53280,14:[151]53281,6:[153]"LOAD"
- 1220 [153]"":[128]
- 1300 [143]*********PRINT LIST
- 1305 P$[178][199](16):Z$[178][199](13)
- 1310 [159]3,4
- 1315 [152]3,[199](27);"1";[199](15)
- 1317 [139]ST[178][171]128[167]1450
- 1318 [160]3:[159]3,4,7
- 1320 [152]3,[199](27)"C"P$"05"L$[199](27)"D"
- 1321 [152]3
- 1322 [152]3,[199](28)
- 1324 [129]S[178]1[164]L[171]1
- 1330 [152]3,P$"00"S;P$"05"A$(S);P$"48"S[170][181](L[173]2)P$"53"A$(S[170][181](L[173]2))
- 1345 [139]S[177]L[173]2[171]1[167]1360
- 1350 [130]S
- 1360 [152]3,[199](24):[160]3
- 1370 [137]100
- 1400 [153]"LOADOPEN "
- 1401 [153]" (T) TO TOGGLE DEVICE NO. "
- 1402 [153]" ":[153]"ONON";[163]27);"DEV ="DN;"OPEN"
- 1407 [153]:[151]646,10:[153]:[153]"ATNNY (null)EY FOR STR$IRECTORY.....":[153]
- 1408 [161]X$:[139]X$[178]""[167]1408
- 1409 [139]X$[178]"T"[167][141] 30000:[137]1400
- 1410 [139]X$[179][177]"T"[167]1414
- 1414 [151]646,13:[158]828:[129]X[178]1[164]800:[130]
- 1417 [151]646,15:[153]"ONONONON";[163]26);" "
- 1420 [153][163]26);" F1 TO CONT. "
- 1424 [153][163]26);" "
- 1426 [161]R$:[139]R$[178]""[167]1426
- 1428 [139]R$[178][199](133)[167]100
- 1430 [139]R$[179][177][199](133)[167]1426
- 1450 [160]3
- 1451 [153]"LOADLIST "
- 1452 [153]" (null)TATUS ";ST;"CMD "
- 1454 [153]" (null)UT PRINTER ON-LINE "
- 1456 [153]" "
- 1458 [151]646,14:[153]:[153]:[153]"(null)ETURN TO LENONTINUE"
- 1460 [161]X$:[139]X$[179][177][199](13)[167]1460
- 1462 [139]X$[178][199](13)[167][160]3:[137]100
- 1600 [153]"LOAD";[163]1);"LIST "
- 1605 [153][163]1);" (null)AME OF (null)EQ. ASCILE TO BE (null)VALATNSTR$ "
- 1610 [153][163]1);" ":[153]:[153]
- 1615 [153][163]1):[151]646,3:[133]KM$:[153]:[153]
- 1618 [159]15,DN,15
- 1620 [159]2,DN,2,"0:"[170]KM$[170]",S,R"
- 1625 [141]20000
- 1630 [161]#2,X$
- 1635 [153]X$;
- 1640 [139]ST[178]64[167][160]2:[160]15:[137]1660
- 1650 [137]1630
- 1660 [151]646,1:[153]"ON";[163]15);" ATN(null)(null) WAIT KEY TO CONTINUE...."
- 1670 [161]X$:[139]X$[178]""[167]1670
- 1680 [137]100
- 1700 [143]***PRINT SEQ FILE
- 1701 [153]"LOAD";[163]1);"LIST "
- 1705 [153][163]1);" (null)AME OF (null)EQ. ASCILE TO BE (null)(null)RIGHT$(null)(null)VALSTR$ "
- 1710 [153][163]1);" ":[153]:[153]
- 1715 [153][163]1):[151]646,3:[133]KM$:[153]:[153]
- 1718 [159]15,DN,15
- 1720 [159]2,DN,2,"0:"[170]KM$[170]",S,R"
- 1723 [159]3,4:[152]3,[199](27);"1"
- 1724 [139]ST[178][171]128[167][160]2:[160]3:[160]15:[137]1451
- 1725 [141]20000
- 1726 [160]3:[159]3,4,7
- 1730 [152]3,X$;
- 1732 [161]#2,X$
- 1735 [153]X$;
- 1740 [139]ST[178]64[167][152]3," ":[160]2:[160]3:[160]15:[137]1760
- 1750 [137]1730
- 1760 [151]646,1:[153]"ON";[163]15);" ATN(null)(null) WAIT KEY TO CONTINUE...."
- 1770 [161]X$:[139]X$[178]""[167]1670
- 1780 [137]100
- 1800 [143] **** DELETE ENTRY MODULE
- 1802 [153]"LOAD"
- 1804 [153][163]3);"LIST "
- 1805 [153][163]3);" VALNTRY NO. TO BE DELETED "
- 1806 [153][163]3);" (ZZZ) TO EXIT...... "
- 1807 [153][163]3);" "
- 1810 [153]:[153]:[153][163]3):[151]646,3:[133]X$:[139]X$[178]"ZZZ"[167]100
- 1815 X[178][197](X$)
- 1820 A$(X)[178]""
- 1825 [129]I[178]X[164]L[171]1
- 1830 A$(I)[178]A$(I[170]1)
- 1835 [130]:L[178]L[171]1
- 1850 [137]890
- 20000 [132]15,A1,B2$,C1,D1
- 20010 [139]A1[177]1[167]21000
- 20020 [142]
- 21000 [153]"LOAD":[151]646,15
- 21010 [153]" "
- 21015 [153]" STR$ISK VALRROR (null)TATUS....... "
- 21020 [153]" "
- 21030 [151]646,14:[153]:[153]:[153]:[153]
- 21040 [153][163]9);B2$:[153]:[153]
- 21060 [153][163]9);"(null)RACK "C1
- 21070 [153][163]9);"(null)ECTOR "D1
- 21075 [153][163]9);"LENODE (null)O. "A1
- 21080 [153]:[153]:[153][163]3);"LIST ATNNY WAITSYS KEY FOR MENU..."
- 21085 [161]X$:[139]X$[178]""[167]21085
- 21090 [160]2:[160]3:[160]15:[137]100
- 25000 [143]
- 25010 [139]DN[178]8[167][151]53280,7
- 25015 [139]DN[178]9[167][151]53280,10
- 25020 [143] ** CHANGE DEVICE NO.
- 25030 [153]"LOADLENHANGE DEVICE NO?OPEN":[153]
- 25040 [153]"CURRENT DEVICE ISDEF";DN;"OPEN":[153]
- 25050 [153]"(T) TO TOGGLE DEVICE NO."
- 25060 [153]"((null)ETURN TO LENONTINUE)"
- 25070 [161]X$:[139]X$[178]""[167]25070
- 25080 [139]X$[178]"T"[167]25690
- 25090 [139]X$[178][199](13)[167]25110
- 25100 [139]X$[179][177]"T"[175]X$[179][177][199](13)[167]25070
- 25110 [139]DN[178]8[167][151]846,DN:[137]25130:[151]53280,7
- 25120 [139]DN[178]9[167][151]846,DN:[137]25270:[151]53280,10
- 25130 [143] ** DEVICE 8 MENU
- 25140 [153]"SYSSTR$EVICE 8 (null)ENU"
- 25150 [153]:[153]"D) STR$IRECTORY"
- 25160 [153]"S) (null)AIN MENU"
- 25170 [153]"R) (null)ROCEED WITH RIGHT$/(null)"
- 25180 [153]"G) CHR$O BACK TO DEV CHANGE"
- 25190 [153]"E) VALND (PEEKOOT PRG IF DESIRED)
- 25200 GETX$:IFX$=""THEN25200
- 25210 IFX$="D"THENGOSUB25760
- 25220 IFX$="S"THEN 100
- 25230 IFX$="G"THEN25020
- 25240 IFX$="E"THEN END
- 25250 IFX$="R"THEN RETURN
- 25260 IFX$<>"D"THEN25130
- 25270 REM ** DEVICE 9 MENU
- 25280 PRINT"[158][196]EVICE 9 [205]ENU"
- 25290 PRINT:PRINT"D) [196]IRECTORY"
- 25300 PRINT"S) [205]AIN MENU"
- 25310 PRINT"R) [208]ROCEED WITH [201]/[207]"
- 25320 PRINT"G) [199]O BACK TO DEV CHANGE"
- 25330 PRINT"M) [199]OTO [210]OOT [196]IR.
- 25340 [153]"P) CHR$OTO (null)UB-STR$IRECTORY"
- 25350 [153]"E) VALND
- 25360 GETX$:IFX$=""THEN25360
- 25370 IFX$="D"THENGOSUB25760
- 25380 IFX$="S"THEN 100
- 25390 IFX$="G"THEN25020
- 25400 IFX$="M"THEN25450
- 25410 IFX$="P"THEN25490
- 25420 IFX$="E"THEN END
- 25430 IFX$="R"THEN RETURN
- 25440 IFX$<>"D"THEN25270
- 25450 REM ** CHANGE TO ROOT
- 25460 OPEN15,9,15:PRINT#15,"/":INPUT#15,A,B$,C,D:CLOSE15:PRINT
- 25470 REM PRINTA;B$;C;D:PRINT
- 25480 POKE646,3:GOSUB25760:GOTO25270
- 25490 REM ** CHANGE TO SUB
- 25500 PRINT:PRINT"[153][215]HICH [211]UB-[196]IRECTORY.... (CBM) FILE?[158]"
- 25510 PRINT:INPUTNA$
- 25520 OPEN15,9,15,"/0:"+NA$:INPUT#15,A,B$,C,D:CLOSE15
- 25530 PRINT"[147]":GOSUB25760:GOTO25270
- 25690 REM ** DEVICE CHANGE
- 25700 TD=PEEK(828+18):IFTD=8THENDN=9
- 25710 IFTD=9THENDN=8
- 25720 IFDN=8THENPOKE53280,7
- 25730 IFDN=9THENPOKE53280,10
- 25740 POKE828+18,DN
- 25750 GOTO25020
- 25760 REM ** JUMP TO DIRECTORY ML ROUTINE
- 25770 POKE646,3:PRINT"[147][196]IRECTORY OF DEV.";DN
- 25780 PRINT:SYS828:POKE646,1
- 25790 PRINT:PRINT"[193]NY KEY....."
- 25840 GETX$:IFX$=""THEN25840
- 25850 POKE646,7
- 25860 IFX$<>""THENPRINT"[145][145][145]":RETURN
- 30000 REM ** DEVICE CHANGE
- 30010 TD=PEEK(828+18):IFTD=8THENDN=9
- 30020 IFTD=9THENDN=8
- 30030 IFDN=8THENPOKE53280,7
- 30040 IFDN=9THENPOKE53280,10
- 30050 POKE828+18,DN
- 30060 RETURN
-