home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
8bitfiles.net/archives
/
archives.tar
/
archives
/
genie-commodore-file-library
/
C64Toolkit
/
BI-DIRECTIONAL-FILE-READ
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2019-04-13
|
6KB
|
199 lines
30 PRINT"[147]"
40 PRINTCHR$(14)
42 SYS 7792
45 X2=30:X1=5:Y1=9:Y2=3:GOSUB1750
50 PRINTTAB(X1+1)" (C) 1989 [204]AMBERT [203]LEIN
60 [153][163]X1[170]1)"RELEASE TO THE PUBLIC DOMAIN
70 PRINTTAB(X1+1)" NOT TO BE SOLD FOR PROFIT
80 [134]RC$(100),P$(100)
84 A$(0)[178]"SYS PEEKI-STR$IRECTIONAL ASCILE (null)EADER"
85 A$(1)[178]"OPEN (C) 1989"
86 A$(2)[178] "LIST (null)AMBERT (null)LEIN"
90 SW[178]40:PW[178]80:LF$[178]"YES":CR$[178]"NO"
100 [139]DV[177]12[167] 130
110 [139]DV[179]8 [167] 130
120 [137]140
130 DV [178]8
140 [151] 6266,DV:[159]15,DV,15
150 SA[178]32768
160 [129]T[178]1[164]100:P$(T)[178]"":[130]
170 MG$[178]" LOAD"
180 [129]T[178]1[164]1500:[130]
190 RV$[178]"PRINT":H$[178]""
200 [151]53280,0:[151]53281,0
210 [141]1100
220 [153]"LOAD
230 POKE 6938,0:IFLF$="YES"THENPOKE 6938,10
240 POKE 6939,0:IFCR$="YES"THENPOKE 6939,13
250 PRINT"[154]";:POKE 6291+1,40
260 X1=4:X2=32:Y1=1:Y2=20:POKE646,15
265 POKE 6501+1,191
270 GOSUB1750
280 X1=6:X2=28:Y1=3:Y2=17:POKE646,11
285 POKE 6501+1 ,166 :GOSUB1750
287 POKE 6501+1,32
288 Y2=1:Y1=-2
289 FORX=0TO2:POKE646,X+2
290 X2=LEN(A$(X))+2:X1=20-(X2/2):Y1=Y1+4
291 GOSUB1750:PRINTTAB(X1+2)A$(X):NEXT
300 PRINT"[154]";
320 X1=11:X2=18:Y1=13:Y2=6
330 POKE646,6:GOSUB 1750
340 POKE646,14
350 PRINTTAB(X1+02);"[204][146]OAD FILE"
360 PRINTTAB(X1+02);"[214][146]IEW FILE"
370 PRINTTAB(X1+02);"[208][146]RINT FILE"
380 PRINTTAB(X1+02);"[195][146]HANGE [208]ARAMETERS"
382 PRINTTAB(X1+02);"[195][206][212][210][204] [209][146] [209]UIT"
385 X1=17:X2=6 :Y1=20:Y2=1:GOSUB1750
387 PRINTTAB(X1+2)"[156][205][197][206][213]"
390 R=LEN(RN$)
395 A$(1)=RC$(0)
397 A$(2)=RN$
400 GETA$:IFA$=""THEN400
405 IFA$=""THENCLOSE15:STOP
410 IFA$="L"THEN1240
420 IFA$="[204]"THEN1240
430 IF A$="V"THEN500
440 IF A$="[214]"THEN500
450 IFA$="P"THEN560
460 IFA$="[208]"THEN560
470 IFA$="C"THEN620
480 IFA$="[195]"THEN620
490 GOTO400
500 POKE 6926,SW
505 POKE646,14 :POKE 7803,0
510 PRINT"[147]";
520 SYS 6629
550 GOTO220
560 OPEN4,4,7:PRINT"[147] PRINTING... [210]UN/[211]TOP TO [193]BORT"
565 POKE 7803,1
570 POKE 6926,PW
580 PRINT#4,CHR$(27)+CHR$(78)+CHR$(06): REM SKIP PERFORATION
590 SYS 6629
600 CLOSE4
610 GOTO 220
620 PRINT"[147]"
630 X1=10:X2=20:Y1=5:Y2=1
640 POKE646,3:GOSUB1750
650 POKE646,14:
660 PRINTTAB(X1+3)"[208][193][210][193][205][197][212][197][210][211] [205][197][206][213]"
670 PRINT:PRINT
680 PRINTTAB(X1+1);:PRINT"[211]CREEN WIDTH "SW"[157][157]";:LS$=STR$(SW)
690 FORT=1TOLEN(LS$):PRINT"[157]";:NEXT
700 INPUTSW
710 PRINTTAB(X1+1);"[208]RINTER WIDTH "PW"[157][157]";:LS$=STR$(PW)
720 FORT=1TOLEN(LS$):PRINT"[157]";:NEXT
730 INPUTPW
740 PRINTTAB(X1+1);:PRINT"[196]EVICE NO. "DV"[157][157]";:LS$=STR$(DV)
750 FORT=1TOLEN(LS$):PRINT"[157]";:NEXT
760 INPUTDV
770 PRINTTAB(X1+1);:PRINT"[211]TRIP CARRAIGE RETURNS "CR$;"[157][157]";
780 FORT=1TOLEN(CR$):PRINT"[157]";:NEXT
790 INPUTCR$
800 PRINTTAB(X1+1);:PRINT"[211]TRIP LINE FEEDS "LF$"[157][157]";
810 FORT=1TOLEN(LF$):PRINT"[157]";:NEXT
820 INPUTLF$
830 X1=11:X2=18:Y1=22:Y2=1
840 POKE646,2:GOSUB1750
850 IFLEFT$(CR$,1)="Y"THEN880
860 IFLEFT$(CR$,1)="[217]"THEN880
870 CR$="NO":GOTO890
880 CR$="YES"
890 IFLEFT$(LF$,1)="Y"THEN920
900 IFLEFT$(LF$,1)="[217]"THEN920
910 LF$="NO":GOTO930
920 LF$="YES"
930 PRINTTAB(X1+2)"[211]AVE [208]ARAMETERS?"
940 GETA$:IFA$="N"THEN220
950 IFA$="[206]"THEN220
960 IFA$="Y"THEN990
970 IFA$="[217]"THEN990
980 GOTO940
990 OPEN8,8,8,"@0:[208][193][210][205][211],S,W"
1000 PRINT#8,SW
1010 PRINT#8,PW
1020 PRINT#8,DV
1030 PRINT#8,CR$
1040 PRINT#8,LF$
1050 PRINT#8:CLOSE8
1060 POKE646,5:GOSUB1750
1070 PRINTTAB(X1+1)"[208]ARAMETERS [211]AVED"
1080 FORT=1TO900:NEXT
1090 GOTO 220
1100 OPEN8,8,8,"[208][193][210][205][211],S,R"
1110 GOSUB1700
1120 IFC=0THEN 1150
1130 PRINT:PRINTB$;:FORT=1TO900:NEXT
1140 GOTO1200
1150 INPUT#8,SW
1160 INPUT#8,PW
1170 INPUT#8,DV
1180 INPUT#8,CR$
1190 INPUT#8,LF$
1200 CLOSE8
1210 :GOSUB1720
1220 RETURN
1230 PRINT"[147]":GOTO250
1240 PRINT"[147]":X1=21:X2=14:Y1=1:Y2=5 :POKE646,12:GOSUB1750
1250 P$(1)=RV$
1260 PRINT:POKE646,15
1270 PRINTTAB(X1+2)"[195]URSOR/[210]ETURN"
1280 PRINTTAB(X1+2)"TO"MG$" [198]ILE"
1285 PRINT
1290 PRINTTAB(X1+2)"[210][213][206]/[211][212][208] [205][197][206][213][154]"
1300 SYS 6082
1310 POKE646,06:X1=10:X2=17:Y1=02:Y2=1
1320 E=PEEK(254)
1325 A$(1)=""+RC$(0)
1330 GOSUB1700:IFC<>0THEN NT$="NOT":GOTO1715
1340 PRINT"[155]";
1350 IFE<>0THEN1400
1360 X1=28:X2=09:Y1=0:Y2=7:GOSUB1750
1370 PRINT:PRINT
1380 PRINTTAB(X1+1)" [206]O [211]EQ.":PRINTTAB(X1+1)"FILES ON":PRINTTAB(X1+1)" DISK
1390 NT$[178]"NOT":[137]1715
1400 X1[178]1:X2[178]18:Y1[178]1:Y2[178]E[170]2:[151]646,6:[139]Y2[177]20[167]Y2[178]20
1410 LG[178]0:BG[178]0:A[178]1
1420 [139]E[177]19[167]LG[178]E[171]19
1430 [141]1750
1440 P$(A[170]BG)[178]RV$
1450 ED[178]E[171]LG[170]BG:[139]ED[177]E[167]ED[178]E
1460 [153]H$: [129]T[178]1[170]BG[164]ED
1470 [153][163]X1[170]2);P$(T);RC$(T)""
1480 [130]
1490 [161]A$:[139]A$[178]""[167]1490
1500 [139]A$[178][199](13)[167]1610
1510 P$(II[170]BG)[178]"":P$(1[170]BG)[178]""
1520 [139][194](145)[178]127 [167]220
1530 [139]A$[178][199](17)[167]A[178]A[170]1: [139]A[178]20[167]BG[178]19:A[178]1:[141]1750
1540 [139]A$[178][199](17)[167] [139]A[177]E[167]A[178]1:BG[178]0:[137]1430
1550 [139]A$[178][199](145)[167]A[178]A[171]1:[139]A[179]1[167][139]BG[178]19 [167] BG[178]0:A[178]19:[141]1750
1560 [139]A[179]1[175]E[177]19[167]BG[178]19:A[178]1:[141]1750
1570 [139]A[170]BG[177]E[167]1410
1580 [139]A[179]1[167]A[178]E:[141]1750
1590 P$(A[170]BG)[178]RV$:II[178]A
1600 [137]1450
1610 RN$[178]RC$(A[170]BG):P$(A[170]BG)[178]""
1615 A$(2)[178]""[170] RN$
1617 [141]1750:[153][163]X1[170]1)"(null)OADING..."
1618 [153][163]X1[170]1)"(null)UN/(null)TOP ATNBORTS"
1620 [159]1,8,2,RN$ :C[178]0
1630 [141]1700
1640 [139]C[178]1[167][160]1: :[137]1715
1650 [158] 6543
1660 [160]1
1670 [141]1700
1680 [153][163]X1[170]1)" STR$ONE CONT" :[141]1720
1690 [137]220
1700 [132]15,A$,B$,C,D
1710 [142]
1715 [129]T[178]1[164]900:[130]:[137]220
1720 [158] 6268
1730 [142]
1740 [143] WINDOW
1750 [143]
1760 [151] 6535,X1:[151] 6537,X2:[151] 6536,Y1:[151] 6538,Y2
1770 [158] 6373
1780 [142]