00000000: 39 30 30 30 20 2F 2F 44 45 4C 45 54 45 20 22 50 |9000 //DELETE "P|
00000010: 52 4F 43 2E 46 58 2D 38 30 27 43 4D 44 53 22 0D |ROC.FX-80'CMDS".|
00000020: 39 30 31 30 20 2F 2F 4C 49 53 54 20 20 20 22 50 |9010 //LIST "P|
00000030: 52 4F 43 2E 46 58 2D 38 30 27 43 4D 44 53 22 0D |ROC.FX-80'CMDS".|
00000040: 39 30 32 30 20 2F 2F 42 59 20 CD 41 52 4B 20 C8 |9020 //BY .ARK .|
00000050: 2E 20 C6 49 4E 4C 45 59 0D 39 30 33 30 20 2F 2F |. .INLEY.9030 //|
00000060: 0D 39 30 34 30 20 50 52 4F 43 20 42 45 45 50 20 |.9040 PROC BEEP |
00000070: 0D 39 30 35 30 20 20 20 50 52 49 4E 54 20 43 48 |.9050 PRINT CH|
00000080: 52 24 28 37 29 2C 0D 39 30 36 30 20 45 4E 44 50 |R$(7),.9060 ENDP|
00000090: 52 4F 43 20 42 45 45 50 0D 39 30 37 30 20 2F 2F |ROC BEEP.9070 //|
000000A0: 0D 39 30 38 30 20 50 52 4F 43 20 42 41 43 4B 53 |.9080 PROC BACKS|
000000B0: 50 41 43 45 20 0D 39 30 39 30 20 20 20 50 52 49 |PACE .9090 PRI|
000000C0: 4E 54 20 43 48 52 24 28 38 29 2C 0D 39 31 30 30 |NT CHR$(8),.9100|
000000D0: 20 45 4E 44 50 52 4F 43 20 42 41 43 4B 53 50 41 | ENDPROC BACKSPA|
000000E0: 43 45 0D 39 31 31 30 20 2F 2F 0D 39 31 32 30 20 |CE.9110 //.9120 |
000000F0: 50 52 4F 43 20 45 4E 4C 41 52 47 45 20 0D 39 31 |PROC ENLARGE .91|
00000100: 33 30 20 20 20 50 52 49 4E 54 20 43 48 52 24 28 |30 PRINT CHR$(|
00000110: 32 37 29 2C 43 48 52 24 28 31 34 29 2C 0D 39 31 |27),CHR$(14),.91|
00000120: 34 30 20 45 4E 44 50 52 4F 43 20 45 4E 4C 41 52 |40 ENDPROC ENLAR|
00000130: 47 45 0D 39 31 35 30 20 2F 2F 0D 39 31 36 30 20 |GE.9150 //.9160 |
00000140: 50 52 4F 43 20 55 4E 45 4E 4C 41 52 47 45 20 0D |PROC UNENLARGE .|
00000150: 39 31 37 30 20 20 20 50 52 49 4E 54 20 43 48 52 |9170 PRINT CHR|
00000160: 24 28 32 37 29 2C 43 48 52 24 28 32 30 29 2C 0D |$(27),CHR$(20),.|
00000170: 39 31 38 30 20 45 4E 44 50 52 4F 43 20 55 4E 45 |9180 ENDPROC UNE|
00000180: 4E 4C 41 52 47 45 0D 39 31 39 30 20 2F 2F 0D 39 |NLARGE.9190 //.9|
00000190: 32 30 30 20 50 52 4F 43 20 43 4F 4E 44 45 4E 53 |200 PROC CONDENS|
000001A0: 45 20 0D 39 32 31 30 20 20 20 50 52 49 4E 54 20 |E .9210 PRINT |
000001B0: 43 48 52 24 28 32 37 29 2C 43 48 52 24 28 31 35 |CHR$(27),CHR$(15|
000001C0: 29 2C 0D 39 32 32 30 20 45 4E 44 50 52 4F 43 20 |),.9220 ENDPROC |
000001D0: 43 4F 4E 44 45 4E 53 45 0D 39 32 33 30 20 2F 2F |CONDENSE.9230 //|
000001E0: 0D 39 32 34 30 20 50 52 4F 43 20 55 4E 43 4F 4E |.9240 PROC UNCON|
000001F0: 44 45 4E 53 45 20 0D 39 32 35 30 20 20 20 50 52 |DENSE .9250 PR|
00000200: 49 4E 54 20 43 48 52 24 28 32 37 29 2C 43 48 52 |INT CHR$(27),CHR|
00000210: 24 28 31 38 29 2C 0D 39 32 36 30 20 45 4E 44 50 |$(18),.9260 ENDP|
00000220: 52 4F 43 20 55 4E 43 4F 4E 44 45 4E 53 45 0D 39 |ROC UNCONDENSE.9|
00000230: 32 37 30 20 2F 2F 0D 39 32 38 30 20 50 52 4F 43 |270 //.9280 PROC|
00000240: 20 55 4E 44 45 52 4C 49 4E 45 20 0D 39 32 39 30 | UNDERLINE .9290|
00000250: 20 20 20 50 52 49 4E 54 20 43 48 52 24 28 32 37 | PRINT CHR$(27|
00000260: 29 2C 22 2D 22 2C 43 48 52 24 28 31 29 2C 0D 39 |),"-",CHR$(1),.9|
00000270: 33 30 30 20 45 4E 44 50 52 4F 43 20 55 4E 44 45 |300 ENDPROC UNDE|
00000280: 52 4C 49 4E 45 0D 39 33 31 30 20 2F 2F 0D 39 33 |RLINE.9310 //.93|
00000290: 32 30 20 50 52 4F 43 20 4E 4F 4E 55 4E 44 45 52 |20 PROC NONUNDER|
000002A0: 4C 49 4E 45 20 0D 39 33 33 30 20 20 20 50 52 49 |LINE .9330 PRI|
000002B0: 4E 54 20 43 48 52 24 28 32 37 29 2C 22 2D 22 2C |NT CHR$(27),"-",|
000002C0: 43 48 52 24 28 30 29 2C 0D 39 33 34 30 20 45 4E |CHR$(0),.9340 EN|
000002D0: 44 50 52 4F 43 20 4E 4F 4E 55 4E 44 45 52 4C 49 |DPROC NONUNDERLI|
000002E0: 4E 45 0D 39 33 35 30 20 2F 2F 0D 39 33 36 30 20 |NE.9350 //.9360 |
000002F0: 50 52 4F 43 20 45 4D 50 48 41 53 49 5A 45 20 0D |PROC EMPHASIZE .|
00000300: 39 33 37 30 20 20 20 50 52 49 4E 54 20 43 48 52 |9370 PRINT CHR|
00000310: 24 28 32 37 29 2C 22 C5 22 2C 0D 39 33 38 30 20 |$(27),".",.9380 |
00000320: 45 4E 44 50 52 4F 43 20 45 4D 50 48 41 53 49 5A |ENDPROC EMPHASIZ|
00000330: 45 0D 39 33 39 30 20 2F 2F 0D 39 34 30 30 20 50 |E.9390 //.9400 P|
00000340: 52 4F 43 20 55 4E 45 4D 50 48 41 53 49 5A 45 20 |ROC UNEMPHASIZE |
00000350: 0D 39 34 31 30 20 20 20 50 52 49 4E 54 20 43 48 |.9410 PRINT CH|
00000360: 52 24 28 32 37 29 2C 22 C6 22 2C 0D 39 34 32 30 |R$(27),".",.9420|
00000370: 20 45 4E 44 50 52 4F 43 20 55 4E 45 4D 50 48 41 | ENDPROC UNEMPHA|
00000380: 53 49 5A 45 0D 39 34 33 30 20 2F 2F 0D 39 34 34 |SIZE.9430 //.944|
00000390: 30 20 50 52 4F 43 20 42 4F 4C 44 20 0D 39 34 35 |0 PROC BOLD .945|
000003A0: 30 20 20 20 50 52 49 4E 54 20 43 48 52 24 28 32 |0 PRINT CHR$(2|
000003B0: 37 29 2C 22 C7 22 2C 0D 39 34 36 30 20 45 4E 44 |7),".",.9460 END|
000003C0: 50 52 4F 43 20 42 4F 4C 44 0D 39 34 37 30 20 2F |PROC BOLD.9470 /|
000003D0: 2F 0D 39 34 38 30 20 50 52 4F 43 20 55 4E 42 4F |/.9480 PROC UNBO|
000003E0: 4C 44 20 0D 39 34 39 30 20 20 20 50 52 49 4E 54 |LD .9490 PRINT|
000003F0: 20 43 48 52 24 28 32 37 29 2C 22 C8 22 2C 0D 39 | CHR$(27),".",.9|
00000400: 35 30 30 20 45 4E 44 50 52 4F 43 20 55 4E 42 4F |500 ENDPROC UNBO|
00000410: 4C 44 0D 39 35 31 30 20 2F 2F 0D 39 35 32 30 20 |LD.9510 //.9520 |
00000420: 50 52 4F 43 20 45 4C 49 54 45 20 0D 39 35 33 30 |PROC ELITE .9530|
00000430: 20 20 20 50 52 49 4E 54 20 43 48 52 24 28 32 37 | PRINT CHR$(27|
00000440: 29 2C 22 CD 22 2C 0D 39 35 34 30 20 45 4E 44 50 |),".",.9540 ENDP|
00000450: 52 4F 43 20 45 4C 49 54 45 0D 39 35 35 30 20 2F |ROC ELITE.9550 /|
00000460: 2F 0D 39 35 36 30 20 50 52 4F 43 20 50 49 43 41 |/.9560 PROC PICA|
00000470: 20 0D 39 35 37 30 20 20 20 50 52 49 4E 54 20 43 | .9570 PRINT C|
00000480: 48 52 24 28 32 37 29 2C 22 D0 22 2C 0D 39 35 38 |HR$(27),".",.958|
00000490: 30 20 45 4E 44 50 52 4F 43 20 50 49 43 41 0D 39 |0 ENDPROC PICA.9|
000004A0: 35 39 30 20 2F 2F 0D 39 36 30 30 20 50 52 4F 43 |590 //.9600 PROC|
000004B0: 20 53 55 50 45 52 53 43 52 49 50 54 20 0D 39 36 | SUPERSCRIPT .96|
000004C0: 31 30 20 20 20 50 52 49 4E 54 20 43 48 52 24 28 |10 PRINT CHR$(|
000004D0: 32 37 29 2C 22 D3 22 2C 43 48 52 24 28 30 29 2C |27),".",CHR$(0),|
000004E0: 0D 39 36 32 30 20 45 4E 44 50 52 4F 43 20 53 55 |.9620 ENDPROC SU|
000004F0: 50 45 52 53 43 52 49 50 54 0D 39 36 33 30 20 2F |PERSCRIPT.9630 /|
00000500: 2F 0D 39 36 34 30 20 50 52 4F 43 20 45 4E 44 53 |/.9640 PROC ENDS|
00000510: 43 52 49 50 54 20 0D 39 36 35 30 20 20 20 50 52 |CRIPT .9650 PR|
00000520: 49 4E 54 20 43 48 52 24 28 32 37 29 2C 22 D4 22 |INT CHR$(27),"."|
00000530: 2C 0D 39 36 36 30 20 45 4E 44 50 52 4F 43 20 45 |,.9660 ENDPROC E|
00000540: 4E 44 53 43 52 49 50 54 0D 39 36 37 30 20 2F 2F |NDSCRIPT.9670 //|
00000550: 0D 39 36 38 30 20 50 52 4F 43 20 53 55 42 53 43 |.9680 PROC SUBSC|
00000560: 52 49 50 54 20 0D 39 36 39 30 20 20 20 50 52 49 |RIPT .9690 PRI|
00000570: 4E 54 20 43 48 52 24 28 32 37 29 2C 22 D3 22 2C |NT CHR$(27),".",|
00000580: 43 48 52 24 28 31 29 2C 0D 39 37 30 30 20 45 4E |CHR$(1),.9700 EN|
00000590: 44 50 52 4F 43 20 53 55 42 53 43 52 49 50 54 0D |DPROC SUBSCRIPT.|
000005A0: 39 37 31 30 20 2F 2F 0D 39 37 32 30 20 50 52 4F |9710 //.9720 PRO|
000005B0: 43 20 50 52 4F 50 4F 52 54 49 4F 4E 41 4C 20 0D |C PROPORTIONAL .|
000005C0: 39 37 33 30 20 20 20 50 52 49 4E 54 20 43 48 52 |9730 PRINT CHR|
000005D0: 24 28 32 37 29 2C 22 50 22 2C 43 48 52 24 28 31 |$(27),"P",CHR$(1|
000005E0: 29 2C 0D 39 37 34 30 20 45 4E 44 50 52 4F 43 20 |),.9740 ENDPROC |
000005F0: 50 52 4F 50 4F 52 54 49 4F 4E 41 4C 0D 39 37 35 |PROPORTIONAL.975|
00000600: 30 20 2F 2F 0D 39 37 36 30 20 50 52 4F 43 20 55 |0 //.9760 PROC U|
00000610: 4E 50 52 4F 50 4F 52 54 49 4F 4E 41 4C 20 0D 39 |NPROPORTIONAL .9|
00000620: 37 37 30 20 20 20 50 52 49 4E 54 20 43 48 52 24 |770 PRINT CHR$|
00000630: 28 32 37 29 2C 22 50 22 2C 43 48 52 24 28 30 29 |(27),"P",CHR$(0)|
00000640: 2C 0D 39 37 38 30 20 45 4E 44 50 52 4F 43 20 55 |,.9780 ENDPROC U|
00000650: 4E 50 52 4F 50 4F 52 54 49 4F 4E 4C 0D 39 37 39 |NPROPORTIONL.979|
00000660: 30 20 2F 2F 0D |0 //. |
9000 //DELETE "PROC.FX-80'CMDS".9010 //L
IST "PROC.FX-80'CMDS".9020 //BY MARK H
. FINLEY.9030 //.9040 PROC BEEP .9050
PRINT CHR$(7),.9060 ENDPROC BEEP.9070 //
.9080 PROC BACKSPACE .9090 PRINT CHR$(
8),.9100 ENDPROC BACKSPACE.9110 //.9120
PROC ENLARGE .9130 PRINT CHR$(27),CHR$
(14),.9140 ENDPROC ENLARGE.9150 //.9160
PROC UNENLARGE .9170 PRINT CHR$(27),CH
R$(20),.9180 ENDPROC UNENLARGE.9190 //.9
200 PROC CONDENSE .9210 PRINT CHR$(27)
,CHR$(15),.9220 ENDPROC CONDENSE.9230 //
.9240 PROC UNCONDENSE .9250 PRINT CHR$
(27),CHR$(18),.9260 ENDPROC UNCONDENSE.9
270 //.9280 PROC UNDERLINE .9290 PRINT
CHR$(27),"-",CHR$(1),.9300 ENDPROC UNDE
RLINE.9310 //.9320 PROC NONUNDERLINE .93
30 PRINT CHR$(27),"-",CHR$(0),.9340 EN
DPROC NONUNDERLINE.9350 //.9360 PROC EMP
HASIZE .9370 PRINT CHR$(27),"E",.9380
ENDPROC EMPHASIZE.9390 //.9400 PROC UNEM
PHASIZE .9410 PRINT CHR$(27),"F",.9420
ENDPROC UNEMPHASIZE.9430 //.9440 PROC B
OLD .9450 PRINT CHR$(27),"G",.9460 END
PROC BOLD.9470 //.9480 PROC UNBOLD .9490
PRINT CHR$(27),"H",.9500 ENDPROC UNBO
LD.9510 //.9520 PROC ELITE .9530 PRINT
CHR$(27),"M",.9540 ENDPROC ELITE.9550 /
/.9560 PROC PICA .9570 PRINT CHR$(27),
"P",.9580 ENDPROC PICA.9590 //.9600 PROC
SUPERSCRIPT .9610 PRINT CHR$(27),"S",
CHR$(0),.9620 ENDPROC SUPERSCRIPT.9630 /
/.9640 PROC ENDSCRIPT .9650 PRINT CHR$
(27),"T",.9660 ENDPROC ENDSCRIPT.9670 //
.9680 PROC SUBSCRIPT .9690 PRINT CHR$(
27),"S",CHR$(1),.9700 ENDPROC SUBSCRIPT.
9710 //.9720 PROC PROPORTIONAL .9730 P
RINT CHR$(27),"P",CHR$(1),.9740 ENDPROC
PROPORTIONAL.9750 //.9760 PROC UNPROPORT
IONAL .9770 PRINT CHR$(27),"P",CHR$(0)
,.9780 ENDPROC UNPROPORTIONL.9790 //.
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL