3170 IF FL=0 THEN |
|
|
|
|
|
|
|
|
|
| ||||||||
3180 | BEEP |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
| |
3190 | CC=CC+l | :IF | CC=127 | THEN | CC=33 |
|
|
|
|
|
|
| ||||||
3200 | GOT0 | 1920 |
|
|
|
|
|
|
|
|
|
|
|
|
|
| ||
3210 | ||||||||||||||||||
3220 | CLS :LOCATE 1,l :PRINT "SAVE TO FILE?" |
|
|
|
| |||||||||||||
3230 | S=O | :PX=2 :PY=l :SD$="Yes" | :Sl$="No" | :GOSUB | 2820 |
| ||||||||||||
3240 | IF | S | THEN | 3310 |
|
|
|
|
|
|
|
|
|
|
|
| ||
3250 | LOCATE 5,lO :PRINT "Output file name [";FI$;") "; |
| ||||||||||||||||
3260 | INPUT | FO$ |
|
|
|
|
|
|
|
|
|
|
|
|
|
| ||
3270 | IF | FO$="" AND FI$="" THEN 3250 |
|
|
|
|
|
| ||||||||||
3280 | IF | FO$="" THEN FO$=FI$ |
|
|
|
|
|
|
|
|
|
| ||||||
3290 | OPEN FO$ FOR OUTPUT AS #1 |
|
|
|
|
|
|
|
| |||||||||
3300 | GOSUB 3410 :CLOSE #l |
|
|
|
|
|
|
|
|
|
| |||||||
3310 | ' |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
3320 | LOCATE | 7,l |
|
|
|
|
|
|
| (DIP | SWITCH |
| HUST BE | OFF)" | ||||
3330 | "DOWNLOAD | TO | PRINTER? |
| ||||||||||||||
3340 | S=O | :PX=8 :PY=l :SO$="Yes" | :Sl$="No" | :GOSUB | 2820 |
| ||||||||||||
3350 | IF | S | THEN | END |
|
|
|
|
|
|
|
|
|
|
|
| ||
3360 | LOCATE 11,l :PRINT "Select I/F board 'I |
|
|
|
| |||||||||||||
3370 | S=PB | :SO$="COLOR" |
| :Sl$="RONOCRO" | :PX=12 | :PY=l | :GOSUB | 2820 :PB=S | ||||||||||
3380 | GOSUB 3480 :LPRINT E$;"3":CHR$(SO); |
|
|
|
|
| ||||||||||||
3390 | FOR CC=33 TO 126 :LPRINT CHR$(CC):" ";:NEXT CC |
| ||||||||||||||||
3400 | LPRINT | STRING$(lO,lO) | :END |
|
|
|
|
|
|
| ||||||||
3410 | Output to | Diskette | ||||||||||||||||
|
|
|
|
|
|
|
| |||||||||||
3420 | PRINT#l,HD$; |
|
|
|
|
|
|
|
|
|
|
|
|
| ||||
3430 | FOR | CC=33 | TO | 126 |
|
|
|
|
|
|
|
|
|
|
|
| ||
3440 | IF | A(C |
| THEN | 3460 |
|
|
|
|
|
|
|
|
|
| |||
3450 | PRINT#l,E$;"&";CHR$(O);STRING$(2,CC);A$(CC);P$(CC): |
| ||||||||||||||||
3460 | NEXT | CC |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
| |
3470 | PRINT#l,E$;"%l";:RETURN |
|
| |||||||||||||||
3460 |
| printer | ||||||||||||||||
3490 IF QUA>0 OR SCR THEN 3510 |
|
|
|
|
|
|
|
| ||||||||||
3500 | IF | PT=l | THEN | LPRINT E$;"M"; ELSE | IF PT=2 | THEN | LPRINT | CHR$(15); | ||||||||||
3510 | LPRINT HD$; |
|
|
|
|
|
|
|
|
|
|
|
|
| ||||
3520 | FOR | CC=33 | TO | 126 |
|
|
|
|
|
|
|
|
|
|
|
| ||
3530 | IF | A(CC)<O | THEN | 3570 |
|
|
|
|
|
|
|
|
|
| ||||
3540 | LPRINT E$;"&";CHR$(O):STRING$(2,CC); |
|
|
|
|
|
| |||||||||||
3550 | FOR | Y=l | TO | 3 | :Z=ASC(HID$(A$(CC),Y,l)) | :GOSUB |
| 3590 :NEXT Y | ||||||||||
3560 | FOR Y=l TO LEN(P$(CC)) | :Z=ASC(BID$(P$(CC),Y,l)) | :GOSUB 3590 :NEXT Y | |||||||||||||||
3570 | NEXT | CC |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
| |
3580 | LPRINT E$;"%l";:RETURN |
|
|
|
|
|
|
|
|
|
| |||||||
3590 | ' |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
3600 | IF NOT PB THEN 3630 |
|
|
|
|
|
|
|
|
|
| |||||||
3610 | PPuWIP(hH3BD) | :IF PP<128 | THEN | 3610 |
|
|
|
|
| |||||||||
3620 | OUT | &HJBC,Z | :OUT | &H3BE,5 |
| :OUT | 6H3BE.4 | :GOTO | 3650 |
| ||||||||
3630 | PP=INP(&H379) | :IF | PP<128 | THEN | 3630 |
|
|
|
|
| ||||||||
3640 | OUT | &H378,Z | :OUT | 6H37A.5 |
| :OUT | 6iH37A.4 |
|
|
|
|
| ||||||
3650 | RETURN |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
| ||
3660 |
| |||||||||||||||||
3670 | LOCATE | X,Y |
|
| CS$;:RETURN |
|
|
|
|
| ||||||||
3680 | LOCATE | BX,BY |
| CS$;:RETURN |
|
|
|
|
|
96