home *** CD-ROM | disk | FTP | other *** search
- 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]
-