home *** CD-ROM | disk | FTP | other *** search
open in: 
MacOS 8.1
|
Win98
|
DOS
view JSON data
|
view as text
This file was processed as: LBR Archive
(archive/lbr).
You can browse this item here: CRFONTS.LBR
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 66%
| dexvert
| LBR Archive (archive/lbr)
| ext
| Supported |
| 1%
| dexvert
| EAGLE Library (other/eaglePCBLibrary)
| ext
| Unsupported |
| 1%
| dexvert
| Micro Focus COBOL library (other/microFocusCobolLibrary)
| ext
| Unsupported |
| 1%
| dexvert
| Micro Focus COBOL Library (other/microFocusCOBOLLibrary)
| ext
| Unsupported |
| 100%
| file
| data
| default
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 2a 2a 2a 2a 2a 2a 2a | 2a 44 49 52 00 00 01 00 |.*******|*DIR....|
|00000010| 30 32 2f 31 31 2f 38 35 | 31 37 3a 35 32 3a 34 38 |02/11/85|17:52:48|
|00000020| 00 43 52 46 4f 4e 54 53 | 20 50 41 53 01 00 7b 00 |.CRFONTS| PAS..{.|
|00000030| 31 30 2f 31 30 2f 38 34 | 30 34 3a 31 37 3a 34 38 |10/10/84|04:17:48|
|00000040| 00 43 52 46 4f 4e 54 53 | 20 44 4f 43 7c 00 17 00 |.CRFONTS| DOC|...|
|00000050| 31 30 2f 31 30 2f 38 34 | 30 34 3a 31 39 3a 30 32 |10/10/84|04:19:02|
|00000060| ff 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000080| 50 52 4f 47 52 41 4d 20 | 46 4f 4e 54 53 28 49 4e |PROGRAM |FONTS(IN|
|00000090| 50 55 54 2c 4f 55 54 50 | 55 54 29 3b 0d 0a 43 4f |PUT,OUTP|UT);..CO|
|000000a0| 4e 53 54 0d 0a 20 20 20 | 20 20 20 4b 45 59 31 3d |NST.. | KEY1=|
|000000b0| 27 54 4f 47 47 4c 45 27 | 3b 20 4b 45 59 32 3d 27 |'TOGGLE'|; KEY2='|
|000000c0| 20 27 3b 20 4b 45 59 33 | 3d 27 53 48 4c 54 27 3b | '; KEY3|='SHLT';|
|000000d0| 20 4b 45 59 34 3d 27 53 | 48 52 54 27 3b 20 4b 45 | KEY4='S|HRT'; KE|
|000000e0| 59 35 3d 27 53 48 55 50 | 27 3b 0d 0a 20 20 20 20 |Y5='SHUP|';.. |
|000000f0| 20 20 4b 45 59 36 3d 27 | 53 48 44 4e 27 3b 20 4b | KEY6='|SHDN'; K|
|00000100| 45 59 37 3d 27 43 4c 52 | 27 3b 20 4b 45 59 38 3d |EY7='CLR|'; KEY8=|
|00000110| 27 46 49 4c 4c 27 3b 20 | 4b 45 59 39 3d 27 23 27 |'FILL'; |KEY9='#'|
|00000120| 3b 20 4b 45 59 31 30 3d | 27 4d 45 4e 55 27 3b 0d |; KEY10=|'MENU';.|
|00000130| 0a 20 20 20 20 20 20 4b | 45 59 49 4e 53 3d 27 2b |. K|EYINS='+|
|00000140| 31 27 3b 20 4b 45 59 44 | 45 4c 3d 27 2d 31 27 3b |1'; KEYD|EL='-1';|
|00000150| 0d 0a 0d 0a 20 20 20 20 | 20 20 4d 41 58 46 4f 4e |.... | MAXFON|
|00000160| 54 3d 32 35 35 3b 20 42 | 49 54 31 3d 30 3b 20 42 |T=255; B|IT1=0; B|
|00000170| 49 54 38 3d 37 3b 0d 0a | 0d 0a 20 20 20 20 20 20 |IT8=7;..|.. |
|00000180| 44 4f 54 3d 32 32 3b 20 | 48 4c 49 4e 45 3d 32 30 |DOT=22; |HLINE=20|
|00000190| 35 3b 20 56 4c 49 4e 45 | 3d 31 38 36 3b 20 4c 55 |5; VLINE|=186; LU|
|000001a0| 43 3d 32 30 31 3b 20 52 | 55 43 3d 31 38 37 3b 20 |C=201; R|UC=187; |
|000001b0| 52 4c 43 3d 31 38 38 3b | 20 4c 4c 43 3d 32 30 30 |RLC=188;| LLC=200|
|000001c0| 3b 0d 0a 20 7b 20 20 20 | 20 20 20 20 20 20 20 20 |;.. { | |
|000001d0| 20 20 20 20 20 20 20 20 | cd 20 20 20 20 20 20 20 | |. |
|000001e0| 20 20 20 ba 20 20 20 20 | 20 20 20 20 c9 20 20 20 | . | . |
|000001f0| 20 20 20 20 20 bb 20 20 | 20 20 20 20 20 20 bc 20 | . | . |
|00000200| 20 20 20 20 20 20 20 c8 | 20 20 20 20 7d 0d 0a 0d | .| }...|
|00000210| 0a 20 20 20 20 20 20 7b | 20 4c 4f 43 41 54 49 4f |. {| LOCATIO|
|00000220| 4e 20 4f 46 20 46 52 41 | 4d 45 2e 20 4c 55 43 52 |N OF FRA|ME. LUCR|
|00000230| 30 20 26 20 4c 55 43 43 | 30 20 4c 4f 43 41 54 45 |0 & LUCC|0 LOCATE|
|00000240| 20 55 50 50 45 52 20 4c | 45 46 54 2d 48 41 4e 44 | UPPER L|EFT-HAND|
|00000250| 20 43 4f 52 4e 45 52 2c | 20 57 48 49 4c 45 0d 0a | CORNER,| WHILE..|
|00000260| 20 20 20 20 20 20 20 20 | 48 53 54 45 50 20 26 20 | |HSTEP & |
|00000270| 56 53 54 45 50 20 44 45 | 54 45 52 4d 49 4e 45 20 |VSTEP DE|TERMINE |
|00000280| 49 54 53 20 53 49 5a 45 | 2e 20 7d 0d 0a 0d 0a 20 |ITS SIZE|. }.... |
|00000290| 20 20 20 20 20 4c 55 43 | 52 30 3d 33 3b 20 4c 55 | LUC|R0=3; LU|
|000002a0| 43 43 30 3d 34 3b 20 48 | 53 54 45 50 3d 32 3b 20 |CC0=4; H|STEP=2; |
|000002b0| 56 53 54 45 50 3d 31 3b | 0d 0a 0d 0a 20 20 20 20 |VSTEP=1;|.... |
|000002c0| 20 20 4d 45 4e 55 52 3d | 35 3b 20 4d 45 4e 55 43 | MENUR=|5; MENUC|
|000002d0| 3d 34 30 3b 0d 0a 0d 0a | 54 59 50 45 0d 0a 20 20 |=40;....|TYPE.. |
|000002e0| 20 20 42 49 47 53 54 52 | 20 3d 20 53 54 52 49 4e | BIGSTR| = STRIN|
|000002f0| 47 5b 38 30 5d 3b 0d 0a | 20 20 20 20 42 59 54 45 |G[80];..| BYTE|
|00000300| 42 49 54 53 20 3d 20 42 | 49 54 31 2e 2e 42 49 54 |BITS = B|IT1..BIT|
|00000310| 38 3b 0d 0a 20 20 20 20 | 50 41 54 54 45 52 4e 5f |8;.. |PATTERN_|
|00000320| 53 45 54 20 3d 20 53 45 | 54 20 4f 46 20 42 59 54 |SET = SE|T OF BYT|
|00000330| 45 42 49 54 53 3b 20 43 | 48 41 52 5f 50 41 54 54 |EBITS; C|HAR_PATT|
|00000340| 45 52 4e 20 3d 20 41 52 | 52 41 59 5b 31 2e 2e 38 |ERN = AR|RAY[1..8|
|00000350| 5d 20 4f 46 20 50 41 54 | 54 45 52 4e 5f 53 45 54 |] OF PAT|TERN_SET|
|00000360| 3b 0d 0a 20 20 20 20 46 | 49 4c 45 5f 4e 41 4d 45 |;.. F|ILE_NAME|
|00000370| 5f 54 59 50 45 20 3d 20 | 53 54 52 49 4e 47 5b 31 |_TYPE = |STRING[1|
|00000380| 34 5d 3b 0d 0a 20 20 20 | 20 43 48 41 52 5f 50 41 |4];.. | CHAR_PA|
|00000390| 54 54 45 52 4e 5f 46 49 | 4c 45 20 3d 20 46 49 4c |TTERN_FI|LE = FIL|
|000003a0| 45 20 4f 46 20 43 48 41 | 52 5f 50 41 54 54 45 52 |E OF CHA|R_PATTER|
|000003b0| 4e 3b 0d 0a 20 20 20 20 | 52 45 47 5f 4c 45 4e 47 |N;.. |REG_LENG|
|000003c0| 54 48 20 3d 20 28 52 45 | 47 5f 57 4f 52 44 2c 52 |TH = (RE|G_WORD,R|
|000003d0| 45 47 5f 42 59 54 45 29 | 3b 0d 0a 20 20 20 20 52 |EG_BYTE)|;.. R|
|000003e0| 45 47 50 41 43 4b 20 3d | 20 52 45 43 4f 52 44 20 |EGPACK =| RECORD |
|000003f0| 43 41 53 45 20 52 45 47 | 5f 4c 45 4e 47 54 48 20 |CASE REG|_LENGTH |
|00000400| 4f 46 0d 0a 20 20 20 20 | 20 20 20 20 20 20 20 20 |OF.. | |
|00000410| 20 20 20 20 20 20 20 20 | 20 52 45 47 5f 57 4f 52 | | REG_WOR|
|00000420| 44 3a 20 28 41 58 2c 42 | 58 2c 43 58 2c 44 58 2c |D: (AX,B|X,CX,DX,|
|00000430| 42 50 58 2c 53 49 58 2c | 44 49 58 2c 44 53 58 2c |BPX,SIX,|DIX,DSX,|
|00000440| 45 53 58 2c 46 4c 41 47 | 58 3a 20 49 4e 54 45 47 |ESX,FLAG|X: INTEG|
|00000450| 45 52 29 3b 0d 0a 20 20 | 20 20 20 20 20 20 20 20 |ER);.. | |
|00000460| 20 20 20 20 20 20 20 20 | 20 20 20 52 45 47 5f 42 | | REG_B|
|00000470| 59 54 45 3a 20 28 41 4c | 2c 41 48 2c 42 4c 2c 42 |YTE: (AL|,AH,BL,B|
|00000480| 48 2c 43 4c 2c 43 48 2c | 44 4c 2c 44 48 3a 42 59 |H,CL,CH,|DL,DH:BY|
|00000490| 54 45 3b 0d 0a 20 20 20 | 20 20 20 20 20 20 20 20 |TE;.. | |
|000004a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000004b0| 20 20 20 20 20 42 50 2c | 53 49 2c 44 49 2c 44 53 | BP,|SI,DI,DS|
|000004c0| 2c 45 53 2c 46 4c 41 47 | 3a 49 4e 54 45 47 45 52 |,ES,FLAG|:INTEGER|
|000004d0| 29 3b 0d 0a 20 20 20 20 | 20 20 20 20 20 20 20 20 |);.. | |
|000004e0| 20 20 20 20 20 20 20 20 | 20 45 4e 44 3b 0d 0a 0d | | END;...|
|000004f0| 0a 20 20 20 4b 45 59 53 | 20 3d 20 28 4e 4f 4b 45 |. KEYS| = (NOKE|
|00000500| 59 2c 4e 4f 54 46 43 54 | 2c 0d 0a 20 20 20 20 20 |Y,NOTFCT|,.. |
|00000510| 20 20 20 20 20 20 46 31 | 2c 46 32 2c 46 33 2c 46 | F1|,F2,F3,F|
|00000520| 34 2c 46 35 2c 46 36 2c | 46 37 2c 46 38 2c 46 39 |4,F5,F6,|F7,F8,F9|
|00000530| 2c 46 31 30 2c 0d 0a 20 | 20 20 20 20 20 20 20 20 |,F10,.. | |
|00000540| 20 20 48 4f 4d 45 2c 55 | 50 2c 50 47 55 50 2c 4c | HOME,U|P,PGUP,L|
|00000550| 54 2c 52 54 2c 45 4e 2c | 44 4e 2c 50 47 44 4e 2c |T,RT,EN,|DN,PGDN,|
|00000560| 49 4e 53 2c 44 45 4c 29 | 3b 0d 0a 0d 0a 20 20 20 |INS,DEL)|;.... |
|00000570| 4f 4e 5f 4f 46 46 20 3d | 20 28 4f 4e 2c 4f 46 46 |ON_OFF =| (ON,OFF|
|00000580| 29 3b 0d 0a 0d 0a 56 41 | 52 0d 0a 20 20 20 20 46 |);....VA|R.. F|
|00000590| 4f 4e 54 53 3a 20 41 52 | 52 41 59 5b 30 2e 2e 4d |ONTS: AR|RAY[0..M|
|000005a0| 41 58 46 4f 4e 54 5d 20 | 4f 46 20 43 48 41 52 5f |AXFONT] |OF CHAR_|
|000005b0| 50 41 54 54 45 52 4e 3b | 0d 0a 20 20 20 20 46 49 |PATTERN;|.. FI|
|000005c0| 4c 45 4e 41 4d 45 31 2c | 46 49 4c 45 4e 41 4d 45 |LENAME1,|FILENAME|
|000005d0| 32 3a 20 46 49 4c 45 5f | 4e 41 4d 45 5f 54 59 50 |2: FILE_|NAME_TYP|
|000005e0| 45 3b 0d 0a 20 20 20 20 | 46 49 4c 45 31 2c 46 49 |E;.. |FILE1,FI|
|000005f0| 4c 45 32 3a 43 48 41 52 | 5f 50 41 54 54 45 52 4e |LE2:CHAR|_PATTERN|
|00000600| 5f 46 49 4c 45 3b 0d 0a | 20 20 20 20 46 4f 4e 54 |_FILE;..| FONT|
|00000610| 4e 4f 2c 46 4f 4e 54 4e | 52 2c 46 4f 4e 54 4e 43 |NO,FONTN|R,FONTNC|
|00000620| 2c 58 59 52 2c 58 59 43 | 3a 20 49 4e 54 45 47 45 |,XYR,XYC|: INTEGE|
|00000630| 52 3b 0d 0a 20 20 20 20 | 4b 45 59 3a 4b 45 59 53 |R;.. |KEY:KEYS|
|00000640| 3b 20 43 48 2c 43 48 58 | 3a 43 48 41 52 3b 0d 0a |; CH,CHX|:CHAR;..|
|00000650| 20 20 20 20 49 2c 4a 3a | 49 4e 54 45 47 45 52 3b | I,J:|INTEGER;|
|00000660| 0d 0a 20 20 20 20 43 55 | 52 52 4f 57 2c 43 55 52 |.. CU|RROW,CUR|
|00000670| 43 4f 4c 3a 49 4e 54 45 | 47 45 52 3b 20 7b 20 43 |COL:INTE|GER; { C|
|00000680| 55 52 52 45 4e 54 20 4c | 4f 47 49 43 41 4c 20 43 |URRENT L|OGICAL C|
|00000690| 55 52 53 4f 52 20 50 4f | 53 49 54 49 4f 4e 20 7d |URSOR PO|SITION }|
|000006a0| 0d 0a 20 20 20 20 51 55 | 49 54 3a 42 4f 4f 4c 45 |.. QU|IT:BOOLE|
|000006b0| 41 4e 3b 0d 0a 0d 0a 7b | 2a 2a 2a 2a 2a 2a 2a 2a |AN;....{|********|
|000006c0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000006d0| 2a 2a 2a 20 50 20 52 20 | 4f 20 43 20 45 20 44 20 |*** P R |O C E D |
|000006e0| 55 20 52 20 45 20 53 20 | 20 2a 2a 2a 2a 2a 2a 2a |U R E S | *******|
|000006f0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000700| 2a 2a 2a 7d 0d 0a 50 52 | 4f 43 45 44 55 52 45 20 |***}..PR|OCEDURE |
|00000710| 52 45 56 45 52 53 45 3b | 20 7b 20 43 48 41 4e 47 |REVERSE;| { CHANG|
|00000720| 45 53 20 4f 55 54 50 55 | 54 20 54 4f 20 52 45 56 |ES OUTPU|T TO REV|
|00000730| 45 52 53 45 20 56 49 44 | 45 4f 20 7d 0d 0a 20 20 |ERSE VID|EO }.. |
|00000740| 20 20 20 20 20 20 20 20 | 42 45 47 49 4e 20 54 45 | |BEGIN TE|
|00000750| 58 54 43 4f 4c 4f 52 28 | 42 4c 41 43 4b 29 3b 20 |XTCOLOR(|BLACK); |
|00000760| 54 45 58 54 42 41 43 4b | 47 52 4f 55 4e 44 28 57 |TEXTBACK|GROUND(W|
|00000770| 48 49 54 45 29 3b 20 45 | 4e 44 3b 0d 0a 0d 0a 50 |HITE); E|ND;....P|
|00000780| 52 4f 43 45 44 55 52 45 | 20 4e 4f 52 4d 41 4c 3b |ROCEDURE| NORMAL;|
|00000790| 20 7b 20 43 48 41 4e 47 | 45 53 20 4f 55 54 50 55 | { CHANG|ES OUTPU|
|000007a0| 54 20 54 4f 20 4e 4f 52 | 4d 41 4c 20 56 49 44 45 |T TO NOR|MAL VIDE|
|000007b0| 4f 20 7d 0d 0a 20 20 20 | 20 20 20 20 20 20 20 42 |O }.. | B|
|000007c0| 45 47 49 4e 20 54 45 58 | 54 43 4f 4c 4f 52 28 57 |EGIN TEX|TCOLOR(W|
|000007d0| 48 49 54 45 29 3b 20 54 | 45 58 54 42 41 43 4b 47 |HITE); T|EXTBACKG|
|000007e0| 52 4f 55 4e 44 28 42 4c | 41 43 4b 29 3b 20 45 4e |ROUND(BL|ACK); EN|
|000007f0| 44 3b 0d 0a 0d 0a 46 55 | 4e 43 54 49 4f 4e 20 47 |D;....FU|NCTION G|
|00000800| 45 54 4b 45 59 28 56 41 | 52 20 43 48 58 2c 43 48 |ETKEY(VA|R CHX,CH|
|00000810| 3a 43 48 41 52 29 3a 20 | 4b 45 59 53 3b 0d 0a 43 |:CHAR): |KEYS;..C|
|00000820| 4f 4e 53 54 20 45 53 43 | 3d 32 37 3b 0d 0a 42 45 |ONST ESC|=27;..BE|
|00000830| 47 49 4e 0d 0a 49 46 20 | 4b 45 59 50 52 45 53 53 |GIN..IF |KEYPRESS|
|00000840| 45 44 20 54 48 45 4e 20 | 42 45 47 49 4e 20 20 7b |ED THEN |BEGIN {|
|00000850| 20 52 45 41 44 20 4b 45 | 59 42 4f 41 52 44 2c 20 | READ KE|YBOARD, |
|00000860| 41 4e 44 20 4d 41 50 20 | 49 4e 54 4f 20 27 4b 45 |AND MAP |INTO 'KE|
|00000870| 59 53 27 20 54 59 50 45 | 20 7d 0d 0a 20 20 20 52 |YS' TYPE| }.. R|
|00000880| 45 41 44 28 4b 42 44 2c | 43 48 29 3b 20 43 48 58 |EAD(KBD,|CH); CHX|
|00000890| 3a 3d 43 48 52 28 30 29 | 3b 0d 0a 20 20 20 49 46 |:=CHR(0)|;.. IF|
|000008a0| 20 4f 52 44 28 43 48 29 | 3d 45 53 43 20 54 48 45 | ORD(CH)|=ESC THE|
|000008b0| 4e 0d 0a 20 20 20 20 20 | 20 49 46 20 4b 45 59 50 |N.. | IF KEYP|
|000008c0| 52 45 53 53 45 44 20 54 | 48 45 4e 20 42 45 47 49 |RESSED T|HEN BEGI|
|000008d0| 4e 20 43 48 58 3a 3d 43 | 48 3b 20 52 45 41 44 28 |N CHX:=C|H; READ(|
|000008e0| 4b 42 44 2c 43 48 29 20 | 45 4e 44 3b 0d 0a 0d 0a |KBD,CH) |END;....|
|000008f0| 20 20 20 49 46 20 43 48 | 58 3d 43 48 52 28 30 29 | IF CH|X=CHR(0)|
|00000900| 20 54 48 45 4e 20 47 45 | 54 4b 45 59 3a 3d 4e 4f | THEN GE|TKEY:=NO|
|00000910| 54 46 43 54 0d 0a 20 20 | 20 45 4c 53 45 20 43 41 |TFCT.. | ELSE CA|
|00000920| 53 45 20 43 48 20 4f 46 | 0d 0a 20 20 20 20 20 20 |SE CH OF|.. |
|00000930| 20 20 27 3b 27 3a 20 20 | 47 45 54 4b 45 59 3a 3d | ';': |GETKEY:=|
|00000940| 46 31 3b 0d 0a 20 20 20 | 20 20 20 20 20 27 3c 27 |F1;.. | '<'|
|00000950| 3a 20 20 47 45 54 4b 45 | 59 3a 3d 46 32 3b 0d 0a |: GETKE|Y:=F2;..|
|00000960| 20 20 20 20 20 20 20 20 | 27 3d 27 3a 20 20 47 45 | |'=': GE|
|00000970| 54 4b 45 59 3a 3d 46 33 | 3b 0d 0a 20 20 20 20 20 |TKEY:=F3|;.. |
|00000980| 20 20 20 27 3e 27 3a 20 | 20 47 45 54 4b 45 59 3a | '>': | GETKEY:|
|00000990| 3d 46 34 3b 0d 0a 20 20 | 20 20 20 20 20 20 27 3f |=F4;.. | '?|
|000009a0| 27 3a 20 20 47 45 54 4b | 45 59 3a 3d 46 35 3b 0d |': GETK|EY:=F5;.|
|000009b0| 0a 20 20 20 20 20 20 20 | 20 27 40 27 3a 20 20 47 |. | '@': G|
|000009c0| 45 54 4b 45 59 3a 3d 46 | 36 3b 0d 0a 20 20 20 20 |ETKEY:=F|6;.. |
|000009d0| 20 20 20 20 27 41 27 3a | 20 20 47 45 54 4b 45 59 | 'A':| GETKEY|
|000009e0| 3a 3d 46 37 3b 0d 0a 20 | 20 20 20 20 20 20 20 27 |:=F7;.. | '|
|000009f0| 42 27 3a 20 20 47 45 54 | 4b 45 59 3a 3d 46 38 3b |B': GET|KEY:=F8;|
|00000a00| 0d 0a 20 20 20 20 20 20 | 20 20 27 43 27 3a 20 20 |.. | 'C': |
|00000a10| 47 45 54 4b 45 59 3a 3d | 46 39 3b 0d 0a 20 20 20 |GETKEY:=|F9;.. |
|00000a20| 20 20 20 20 20 27 44 27 | 3a 20 20 47 45 54 4b 45 | 'D'|: GETKE|
|00000a30| 59 3a 3d 46 31 30 3b 0d | 0a 20 20 20 20 20 20 20 |Y:=F10;.|. |
|00000a40| 20 27 47 27 3a 20 20 47 | 45 54 4b 45 59 3a 3d 48 | 'G': G|ETKEY:=H|
|00000a50| 4f 4d 45 3b 0d 0a 20 20 | 20 20 20 20 20 20 27 48 |OME;.. | 'H|
|00000a60| 27 3a 20 20 47 45 54 4b | 45 59 3a 3d 55 50 3b 0d |': GETK|EY:=UP;.|
|00000a70| 0a 20 20 20 20 20 20 20 | 20 27 49 27 3a 20 20 47 |. | 'I': G|
|00000a80| 45 54 4b 45 59 3a 3d 50 | 47 55 50 3b 0d 0a 20 20 |ETKEY:=P|GUP;.. |
|00000a90| 20 20 20 20 20 20 27 4b | 27 3a 20 20 47 45 54 4b | 'K|': GETK|
|00000aa0| 45 59 3a 3d 4c 54 3b 0d | 0a 20 20 20 20 20 20 20 |EY:=LT;.|. |
|00000ab0| 20 27 4d 27 3a 20 20 47 | 45 54 4b 45 59 3a 3d 52 | 'M': G|ETKEY:=R|
|00000ac0| 54 3b 0d 0a 20 20 20 20 | 20 20 20 20 27 4f 27 3a |T;.. | 'O':|
|00000ad0| 20 20 47 45 54 4b 45 59 | 3a 3d 45 4e 3b 0d 0a 20 | GETKEY|:=EN;.. |
|00000ae0| 20 20 20 20 20 20 20 27 | 50 27 3a 20 20 47 45 54 | '|P': GET|
|00000af0| 4b 45 59 3a 3d 44 4e 3b | 0d 0a 20 20 20 20 20 20 |KEY:=DN;|.. |
|00000b00| 20 20 27 51 27 3a 20 20 | 47 45 54 4b 45 59 3a 3d | 'Q': |GETKEY:=|
|00000b10| 50 47 44 4e 3b 0d 0a 20 | 20 20 20 20 20 20 20 27 |PGDN;.. | '|
|00000b20| 52 27 3a 20 20 47 45 54 | 4b 45 59 3a 3d 49 4e 53 |R': GET|KEY:=INS|
|00000b30| 3b 0d 0a 20 20 20 20 20 | 20 20 20 27 53 27 3a 20 |;.. | 'S': |
|00000b40| 20 47 45 54 4b 45 59 3a | 3d 44 45 4c 3b 0d 0a 20 | GETKEY:|=DEL;.. |
|00000b50| 20 20 20 20 20 20 20 45 | 4c 53 45 20 47 45 54 4b | E|LSE GETK|
|00000b60| 45 59 3a 3d 4e 4f 54 46 | 43 54 3b 0d 0a 20 20 20 |EY:=NOTF|CT;.. |
|00000b70| 20 20 20 20 20 45 4e 44 | 20 7b 20 43 41 53 45 20 | END| { CASE |
|00000b80| 7d 0d 0a 20 20 20 20 45 | 4e 44 20 7b 4b 45 59 50 |}.. E|ND {KEYP|
|00000b90| 52 45 53 53 45 44 7d 0d | 0a 45 4c 53 45 20 47 45 |RESSED}.|.ELSE GE|
|00000ba0| 54 4b 45 59 3a 3d 4e 4f | 4b 45 59 3b 0d 0a 45 4e |TKEY:=NO|KEY;..EN|
|00000bb0| 44 3b 20 7b 47 45 54 4b | 45 59 7d 0d 0a 0d 0a 50 |D; {GETK|EY}....P|
|00000bc0| 52 4f 43 45 44 55 52 45 | 20 42 4c 49 4e 4b 56 49 |ROCEDURE| BLINKVI|
|00000bd0| 44 45 4f 3b 0d 0a 20 20 | 20 20 20 20 20 20 20 20 |DEO;.. | |
|00000be0| 42 45 47 49 4e 20 54 45 | 58 54 43 4f 4c 4f 52 28 |BEGIN TE|XTCOLOR(|
|00000bf0| 57 48 49 54 45 2b 42 4c | 49 4e 4b 29 20 45 4e 44 |WHITE+BL|INK) END|
|00000c00| 3b 0d 0a 0d 0a 46 55 4e | 43 54 49 4f 4e 20 4c 4f |;....FUN|CTION LO|
|00000c10| 43 41 54 45 5f 52 4f 57 | 28 49 3a 49 4e 54 45 47 |CATE_ROW|(I:INTEG|
|00000c20| 45 52 29 3a 20 49 4e 54 | 45 47 45 52 3b 0d 0a 20 |ER): INT|EGER;.. |
|00000c30| 20 20 20 20 20 20 20 20 | 42 45 47 49 4e 20 4c 4f | |BEGIN LO|
|00000c40| 43 41 54 45 5f 52 4f 57 | 3a 3d 4c 55 43 52 30 2b |CATE_ROW|:=LUCR0+|
|00000c50| 56 53 54 45 50 2a 49 3b | 20 45 4e 44 3b 0d 0a 0d |VSTEP*I;| END;...|
|00000c60| 0a 46 55 4e 43 54 49 4f | 4e 20 4c 4f 43 41 54 45 |.FUNCTIO|N LOCATE|
|00000c70| 5f 43 4f 4c 28 49 3a 42 | 59 54 45 42 49 54 53 29 |_COL(I:B|YTEBITS)|
|00000c80| 3a 20 49 4e 54 45 47 45 | 52 3b 0d 0a 20 20 20 20 |: INTEGE|R;.. |
|00000c90| 20 20 20 20 20 42 45 47 | 49 4e 20 4c 4f 43 41 54 | BEG|IN LOCAT|
|00000ca0| 45 5f 43 4f 4c 3a 3d 4c | 55 43 43 30 2b 48 53 54 |E_COL:=L|UCC0+HST|
|00000cb0| 45 50 2a 28 49 2b 31 29 | 3b 20 45 4e 44 3b 0d 0a |EP*(I+1)|; END;..|
|00000cc0| 0d 0a 50 52 4f 43 45 44 | 55 52 45 20 47 4f 54 4f |..PROCED|URE GOTO|
|00000cd0| 52 43 28 52 4f 57 2c 43 | 4f 4c 3a 49 4e 54 45 47 |RC(ROW,C|OL:INTEG|
|00000ce0| 45 52 29 3b 0d 0a 20 20 | 20 20 20 20 20 20 20 20 |ER);.. | |
|00000cf0| 42 45 47 49 4e 20 47 4f | 54 4f 58 59 28 43 4f 4c |BEGIN GO|TOXY(COL|
|00000d00| 2c 52 4f 57 29 3b 20 45 | 4e 44 3b 0d 0a 0d 0a 7b |,ROW); E|ND;....{|
|00000d10| 2a 2a 2a 2a 20 52 45 56 | 45 52 53 45 20 54 48 45 |**** REV|ERSE THE|
|00000d20| 20 42 49 54 53 20 49 4e | 20 41 20 53 45 54 20 54 | BITS IN| A SET T|
|00000d30| 59 50 45 2e 20 20 54 48 | 45 20 42 49 54 20 4e 55 |YPE. TH|E BIT NU|
|00000d40| 4d 42 45 52 49 4e 47 20 | 46 4f 52 20 47 52 41 50 |MBERING |FOR GRAP|
|00000d50| 48 49 43 53 0d 0a 20 20 | 20 20 20 20 50 41 54 54 |HICS.. | PATT|
|00000d60| 45 52 4e 53 20 49 53 20 | 41 20 4d 49 52 52 4f 52 |ERNS IS |A MIRROR|
|00000d70| 20 49 4d 41 47 45 20 4f | 46 20 54 48 45 20 42 49 | IMAGE O|F THE BI|
|00000d80| 54 20 4e 55 4d 42 45 52 | 49 4e 47 20 46 4f 52 20 |T NUMBER|ING FOR |
|00000d90| 50 41 53 43 41 4c 20 53 | 45 54 53 2e 20 7d 0d 0a |PASCAL S|ETS. }..|
|00000da0| 50 52 4f 43 45 44 55 52 | 45 20 52 45 56 46 4f 4e |PROCEDUR|E REVFON|
|00000db0| 54 28 46 4f 4e 54 3a 43 | 48 41 52 5f 50 41 54 54 |T(FONT:C|HAR_PATT|
|00000dc0| 45 52 4e 3b 56 41 52 20 | 54 46 4f 4e 54 3a 43 48 |ERN;VAR |TFONT:CH|
|00000dd0| 41 52 5f 50 41 54 54 45 | 52 4e 29 3b 0d 0a 56 41 |AR_PATTE|RN);..VA|
|00000de0| 52 20 49 3a 49 4e 54 45 | 47 45 52 3b 0d 0a 0d 0a |R I:INTE|GER;....|
|00000df0| 7b 2a 7d 20 50 52 4f 43 | 45 44 55 52 45 20 52 45 |{*} PROC|EDURE RE|
|00000e00| 56 53 45 54 28 50 53 45 | 54 3a 50 41 54 54 45 52 |VSET(PSE|T:PATTER|
|00000e10| 4e 5f 53 45 54 3b 56 41 | 52 20 54 50 53 45 54 3a |N_SET;VA|R TPSET:|
|00000e20| 50 41 54 54 45 52 4e 5f | 53 45 54 29 3b 0d 0a 20 |PATTERN_|SET);.. |
|00000e30| 20 20 20 56 41 52 20 49 | 3a 42 59 54 45 42 49 54 | VAR I|:BYTEBIT|
|00000e40| 53 3b 0d 0a 20 20 20 20 | 42 45 47 49 4e 20 54 50 |S;.. |BEGIN TP|
|00000e50| 53 45 54 3a 3d 5b 5d 3b | 0d 0a 20 20 20 20 20 20 |SET:=[];|.. |
|00000e60| 20 20 20 20 46 4f 52 20 | 49 3a 3d 42 49 54 31 20 | FOR |I:=BIT1 |
|00000e70| 54 4f 20 42 49 54 38 20 | 44 4f 20 49 46 20 49 20 |TO BIT8 |DO IF I |
|00000e80| 49 4e 20 50 53 45 54 20 | 54 48 45 4e 20 54 50 53 |IN PSET |THEN TPS|
|00000e90| 45 54 3a 3d 54 50 53 45 | 54 20 2b 20 5b 42 49 54 |ET:=TPSE|T + [BIT|
|00000ea0| 38 2d 49 5d 3b 0d 0a 20 | 20 20 20 45 4e 44 3b 0d |8-I];.. | END;.|
|00000eb0| 0a 0d 0a 42 45 47 49 4e | 0d 0a 20 20 20 46 4f 52 |...BEGIN|.. FOR|
|00000ec0| 20 49 3a 3d 31 20 54 4f | 20 38 20 44 4f 20 52 45 | I:=1 TO| 8 DO RE|
|00000ed0| 56 53 45 54 28 46 4f 4e | 54 5b 49 5d 2c 54 46 4f |VSET(FON|T[I],TFO|
|00000ee0| 4e 54 5b 49 5d 29 3b 0d | 0a 45 4e 44 3b 0d 0a 0d |NT[I]);.|.END;...|
|00000ef0| 0a 50 52 4f 43 45 44 55 | 52 45 20 44 49 53 50 4c |.PROCEDU|RE DISPL|
|00000f00| 41 59 5f 43 4f 4f 52 44 | 28 52 4f 57 3a 49 4e 54 |AY_COORD|(ROW:INT|
|00000f10| 45 47 45 52 3b 43 4f 4c | 3a 42 59 54 45 42 49 54 |EGER;COL|:BYTEBIT|
|00000f20| 53 29 3b 0d 0a 56 41 52 | 20 58 2c 59 3a 49 4e 54 |S);..VAR| X,Y:INT|
|00000f30| 45 47 45 52 3b 0d 0a 42 | 45 47 49 4e 20 58 3a 3d |EGER;..B|EGIN X:=|
|00000f40| 57 48 45 52 45 58 3b 20 | 59 3a 3d 57 48 45 52 45 |WHEREX; |Y:=WHERE|
|00000f50| 59 3b 20 47 4f 54 4f 52 | 43 28 58 59 52 2c 58 59 |Y; GOTOR|C(XYR,XY|
|00000f60| 43 29 3b 20 52 45 56 45 | 52 53 45 3b 0d 0a 20 20 |C); REVE|RSE;.. |
|00000f70| 20 20 20 20 57 52 49 54 | 45 28 27 20 27 2c 52 4f | WRIT|E(' ',RO|
|00000f80| 57 3a 31 2c 27 2c 27 2c | 43 4f 4c 2b 31 3a 31 2c |W:1,',',|COL+1:1,|
|00000f90| 27 20 27 29 3b 20 4e 4f | 52 4d 41 4c 3b 0d 0a 20 |' '); NO|RMAL;.. |
|00000fa0| 20 20 20 20 20 47 4f 54 | 4f 58 59 28 58 2c 59 29 | GOT|OXY(X,Y)|
|00000fb0| 3b 20 45 4e 44 3b 0d 0a | 0d 0a 50 52 4f 43 45 44 |; END;..|..PROCED|
|00000fc0| 55 52 45 20 44 4f 54 5f | 43 4c 52 28 49 3a 49 4e |URE DOT_|CLR(I:IN|
|00000fd0| 54 45 47 45 52 3b 4a 3a | 42 59 54 45 42 49 54 53 |TEGER;J:|BYTEBITS|
|00000fe0| 3b 20 43 55 52 53 4f 52 | 3a 4f 4e 5f 4f 46 46 29 |; CURSOR|:ON_OFF)|
|00000ff0| 3b 0d 0a 20 20 20 20 20 | 20 20 20 20 20 42 45 47 |;.. | BEG|
|00001000| 49 4e 20 46 4f 4e 54 53 | 5b 46 4f 4e 54 4e 4f 5d |IN FONTS|[FONTNO]|
|00001010| 5b 49 5d 3a 3d 20 46 4f | 4e 54 53 5b 46 4f 4e 54 |[I]:= FO|NTS[FONT|
|00001020| 4e 4f 5d 5b 49 5d 20 2d | 20 5b 4a 5d 3b 0d 0a 20 |NO][I] -| [J];.. |
|00001030| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 47 | | G|
|00001040| 4f 54 4f 52 43 28 4c 4f | 43 41 54 45 5f 52 4f 57 |OTORC(LO|CATE_ROW|
|00001050| 28 49 29 2c 4c 4f 43 41 | 54 45 5f 43 4f 4c 28 4a |(I),LOCA|TE_COL(J|
|00001060| 29 29 3b 0d 0a 20 20 20 | 20 20 20 20 20 20 20 20 |));.. | |
|00001070| 20 20 20 20 20 49 46 20 | 43 55 52 53 4f 52 3d 4f | IF |CURSOR=O|
|00001080| 4e 20 54 48 45 4e 20 42 | 45 47 49 4e 0d 0a 20 20 |N THEN B|EGIN.. |
|00001090| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000010a0| 20 44 49 53 50 4c 41 59 | 5f 43 4f 4f 52 44 28 49 | DISPLAY|_COORD(I|
|000010b0| 2c 4a 29 3b 20 42 4c 49 | 4e 4b 56 49 44 45 4f 3b |,J); BLI|NKVIDEO;|
|000010c0| 20 57 52 49 54 45 28 43 | 48 52 28 44 4f 54 29 29 | WRITE(C|HR(DOT))|
|000010d0| 3b 20 4e 4f 52 4d 41 4c | 3b 20 45 4e 44 0d 0a 20 |; NORMAL|; END.. |
|000010e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 45 | | E|
|000010f0| 4c 53 45 20 57 52 49 54 | 45 28 27 20 27 29 3b 0d |LSE WRIT|E(' ');.|
|00001100| 0a 20 20 20 20 20 20 20 | 20 20 20 45 4e 44 3b 0d |. | END;.|
|00001110| 0a 0d 0a 50 52 4f 43 45 | 44 55 52 45 20 44 4f 54 |...PROCE|DURE DOT|
|00001120| 5f 53 45 54 28 49 3a 49 | 4e 54 45 47 45 52 3b 4a |_SET(I:I|NTEGER;J|
|00001130| 3a 42 59 54 45 42 49 54 | 53 3b 20 43 55 52 53 4f |:BYTEBIT|S; CURSO|
|00001140| 52 3a 4f 4e 5f 4f 46 46 | 29 3b 0d 0a 20 20 20 20 |R:ON_OFF|);.. |
|00001150| 20 20 20 20 20 20 42 45 | 47 49 4e 20 46 4f 4e 54 | BE|GIN FONT|
|00001160| 53 5b 46 4f 4e 54 4e 4f | 2c 49 5d 20 3a 3d 20 46 |S[FONTNO|,I] := F|
|00001170| 4f 4e 54 53 5b 46 4f 4e | 54 4e 4f 2c 49 5d 20 2b |ONTS[FON|TNO,I] +|
|00001180| 20 5b 4a 5d 3b 0d 0a 20 | 20 20 20 20 20 20 20 20 | [J];.. | |
|00001190| 20 20 20 20 20 20 20 47 | 4f 54 4f 52 43 28 4c 4f | G|OTORC(LO|
|000011a0| 43 41 54 45 5f 52 4f 57 | 28 49 29 2c 4c 4f 43 41 |CATE_ROW|(I),LOCA|
|000011b0| 54 45 5f 43 4f 4c 28 4a | 29 29 3b 0d 0a 20 20 20 |TE_COL(J|));.. |
|000011c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 49 46 20 | | IF |
|000011d0| 43 55 52 53 4f 52 3d 4f | 4e 20 54 48 45 4e 20 42 |CURSOR=O|N THEN B|
|000011e0| 45 47 49 4e 0d 0a 20 20 | 20 20 20 20 20 20 20 20 |EGIN.. | |
|000011f0| 20 20 20 20 20 20 20 20 | 20 44 49 53 50 4c 41 59 | | DISPLAY|
|00001200| 5f 43 4f 4f 52 44 28 49 | 2c 4a 29 3b 20 48 49 47 |_COORD(I|,J); HIG|
|00001210| 48 56 49 44 45 4f 20 45 | 4e 44 0d 0a 20 20 20 20 |HVIDEO E|ND.. |
|00001220| 20 20 20 20 20 20 20 20 | 20 20 20 20 45 4c 53 45 | | ELSE|
|00001230| 20 4c 4f 57 56 49 44 45 | 4f 3b 0d 0a 20 20 20 20 | LOWVIDE|O;.. |
|00001240| 20 20 20 20 20 20 20 20 | 20 20 20 20 57 52 49 54 | | WRIT|
|00001250| 45 28 43 48 52 28 44 4f | 54 29 29 3b 0d 0a 20 20 |E(CHR(DO|T));.. |
|00001260| 20 20 20 20 20 20 20 20 | 4e 4f 52 4d 41 4c 3b 0d | |NORMAL;.|
|00001270| 0a 20 20 20 20 20 20 20 | 20 20 20 45 4e 44 3b 0d |. | END;.|
|00001280| 0a 0d 0a 50 52 4f 43 45 | 44 55 52 45 20 44 4f 54 |...PROCE|DURE DOT|
|00001290| 5f 43 55 52 53 4f 52 28 | 52 4f 57 3a 49 4e 54 45 |_CURSOR(|ROW:INTE|
|000012a0| 47 45 52 3b 43 4f 4c 3a | 42 59 54 45 42 49 54 53 |GER;COL:|BYTEBITS|
|000012b0| 3b 43 55 52 53 4f 52 3a | 4f 4e 5f 4f 46 46 29 3b |;CURSOR:|ON_OFF);|
|000012c0| 0d 0a 20 20 20 20 20 20 | 20 20 20 20 42 45 47 49 |.. | BEGI|
|000012d0| 4e 20 47 4f 54 4f 52 43 | 28 4c 4f 43 41 54 45 5f |N GOTORC|(LOCATE_|
|000012e0| 52 4f 57 28 52 4f 57 29 | 2c 4c 4f 43 41 54 45 5f |ROW(ROW)|,LOCATE_|
|000012f0| 43 4f 4c 28 43 4f 4c 29 | 29 3b 0d 0a 20 20 20 20 |COL(COL)|);.. |
|00001300| 20 20 20 20 20 20 20 20 | 20 20 20 20 49 46 20 43 | | IF C|
|00001310| 4f 4c 20 49 4e 20 46 4f | 4e 54 53 5b 46 4f 4e 54 |OL IN FO|NTS[FONT|
|00001320| 4e 4f 2c 52 4f 57 5d 20 | 54 48 45 4e 20 42 45 47 |NO,ROW] |THEN BEG|
|00001330| 49 4e 0d 0a 20 20 20 20 | 20 20 20 20 20 20 20 20 |IN.. | |
|00001340| 20 20 20 20 20 20 20 49 | 46 20 43 55 52 53 4f 52 | I|F CURSOR|
|00001350| 3d 4f 4e 20 54 48 45 4e | 20 42 45 47 49 4e 0d 0a |=ON THEN| BEGIN..|
|00001360| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00001370| 20 20 20 20 20 20 44 49 | 53 50 4c 41 59 5f 43 4f | DI|SPLAY_CO|
|00001380| 4f 52 44 28 52 4f 57 2c | 43 4f 4c 29 3b 20 48 49 |ORD(ROW,|COL); HI|
|00001390| 47 48 56 49 44 45 4f 20 | 45 4e 44 0d 0a 20 20 20 |GHVIDEO |END.. |
|000013a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000013b0| 45 4c 53 45 20 4c 4f 57 | 56 49 44 45 4f 3b 20 57 |ELSE LOW|VIDEO; W|
|000013c0| 52 49 54 45 28 43 48 52 | 28 44 4f 54 29 29 20 45 |RITE(CHR|(DOT)) E|
|000013d0| 4e 44 0d 0a 20 20 20 20 | 20 20 20 20 20 20 20 20 |ND.. | |
|000013e0| 20 20 20 20 45 4c 53 45 | 20 49 46 20 43 55 52 53 | ELSE| IF CURS|
|000013f0| 4f 52 3d 4f 4e 20 54 48 | 45 4e 20 42 45 47 49 4e |OR=ON TH|EN BEGIN|
|00001400| 0d 0a 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.. | |
|00001410| 20 20 20 20 20 20 20 20 | 20 20 44 49 53 50 4c 41 | | DISPLA|
|00001420| 59 5f 43 4f 4f 52 44 28 | 52 4f 57 2c 43 4f 4c 29 |Y_COORD(|ROW,COL)|
|00001430| 3b 42 4c 49 4e 4b 56 49 | 44 45 4f 3b 20 57 52 49 |;BLINKVI|DEO; WRI|
|00001440| 54 45 28 43 48 52 28 44 | 4f 54 29 29 3b 20 45 4e |TE(CHR(D|OT)); EN|
|00001450| 44 0d 0a 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |D.. | |
|00001460| 20 20 20 20 20 20 20 20 | 45 4c 53 45 20 57 52 49 | |ELSE WRI|
|00001470| 54 45 28 27 20 27 29 3b | 0d 0a 20 20 20 20 20 20 |TE(' ');|.. |
|00001480| 20 20 20 20 20 4e 4f 52 | 4d 41 4c 3b 0d 0a 20 20 | NOR|MAL;.. |
|00001490| 20 20 20 20 20 20 20 20 | 20 45 4e 44 3b 0d 0a 0d | | END;...|
|000014a0| 0a 50 52 4f 43 45 44 55 | 52 45 20 4c 49 4e 45 32 |.PROCEDU|RE LINE2|
|000014b0| 35 3b 20 7b 20 50 52 49 | 4e 54 4f 55 54 20 54 48 |5; { PRI|NTOUT TH|
|000014c0| 45 20 4c 49 4e 45 20 32 | 35 20 49 4e 46 4f 52 4d |E LINE 2|5 INFORM|
|000014d0| 41 54 49 4f 4e 20 7d 0d | 0a 56 41 52 20 4b 45 59 |ATION }.|.VAR KEY|
|000014e0| 4e 4f 3a 49 4e 54 45 47 | 45 52 3b 0d 0a 20 20 50 |NO:INTEG|ER;.. P|
|000014f0| 52 4f 43 45 44 55 52 45 | 20 57 52 49 54 45 4b 45 |ROCEDURE| WRITEKE|
|00001500| 59 28 4b 45 59 3a 42 49 | 47 53 54 52 29 3b 0d 0a |Y(KEY:BI|GSTR);..|
|00001510| 20 20 20 20 20 20 20 20 | 20 20 20 20 42 45 47 49 | | BEGI|
|00001520| 4e 20 4e 4f 52 4d 41 4c | 3b 20 4b 45 59 4e 4f 3a |N NORMAL|; KEYNO:|
|00001530| 3d 4b 45 59 4e 4f 2b 31 | 3b 0d 0a 20 20 20 20 20 |=KEYNO+1|;.. |
|00001540| 20 20 20 20 20 20 20 49 | 46 20 4b 45 59 4e 4f 3c | I|F KEYNO<|
|00001550| 3e 31 20 54 48 45 4e 20 | 57 52 49 54 45 28 27 20 |>1 THEN |WRITE(' |
|00001560| 27 29 3b 0d 0a 20 20 20 | 20 20 20 20 20 20 20 20 |');.. | |
|00001570| 20 49 46 20 4b 45 59 4e | 4f 3c 3d 31 30 20 54 48 | IF KEYN|O<=10 TH|
|00001580| 45 4e 20 57 52 49 54 45 | 28 4b 45 59 4e 4f 3a 31 |EN WRITE|(KEYNO:1|
|00001590| 29 0d 0a 20 20 20 20 20 | 20 20 20 20 20 20 20 45 |).. | E|
|000015a0| 4c 53 45 20 49 46 20 4b | 45 59 4e 4f 3d 31 31 20 |LSE IF K|EYNO=11 |
|000015b0| 54 48 45 4e 20 57 52 49 | 54 45 28 27 49 4e 53 27 |THEN WRI|TE('INS'|
|000015c0| 29 20 45 4c 53 45 20 57 | 52 49 54 45 28 27 44 45 |) ELSE W|RITE('DE|
|000015d0| 4c 27 29 3b 0d 0a 20 20 | 20 20 20 20 20 20 20 20 |L');.. | |
|000015e0| 20 20 52 45 56 45 52 53 | 45 3b 20 57 52 49 54 45 | REVERS|E; WRITE|
|000015f0| 28 4b 45 59 29 3b 20 4e | 4f 52 4d 41 4c 3b 20 45 |(KEY); N|ORMAL; E|
|00001600| 4e 44 3b 0d 0a 0d 0a 42 | 45 47 49 4e 0d 0a 20 20 |ND;....B|EGIN.. |
|00001610| 20 47 4f 54 4f 58 59 28 | 31 2c 32 35 29 3b 20 20 | GOTOXY(|1,25); |
|00001620| 4b 45 59 4e 4f 3a 3d 30 | 3b 0d 0a 20 20 20 57 52 |KEYNO:=0|;.. WR|
|00001630| 49 54 45 4b 45 59 28 4b | 45 59 31 29 3b 20 57 52 |ITEKEY(K|EY1); WR|
|00001640| 49 54 45 4b 45 59 28 4b | 45 59 32 29 3b 20 57 52 |ITEKEY(K|EY2); WR|
|00001650| 49 54 45 4b 45 59 28 4b | 45 59 33 29 3b 20 57 52 |ITEKEY(K|EY3); WR|
|00001660| 49 54 45 4b 45 59 28 4b | 45 59 34 29 3b 20 57 52 |ITEKEY(K|EY4); WR|
|00001670| 49 54 45 4b 45 59 28 4b | 45 59 35 29 3b 0d 0a 20 |ITEKEY(K|EY5);.. |
|00001680| 20 20 57 52 49 54 45 4b | 45 59 28 4b 45 59 36 29 | WRITEK|EY(KEY6)|
|00001690| 3b 20 57 52 49 54 45 4b | 45 59 28 4b 45 59 37 29 |; WRITEK|EY(KEY7)|
|000016a0| 3b 20 57 52 49 54 45 4b | 45 59 28 4b 45 59 38 29 |; WRITEK|EY(KEY8)|
|000016b0| 3b 20 57 52 49 54 45 4b | 45 59 28 4b 45 59 39 29 |; WRITEK|EY(KEY9)|
|000016c0| 3b 20 57 52 49 54 45 4b | 45 59 28 4b 45 59 31 30 |; WRITEK|EY(KEY10|
|000016d0| 29 3b 0d 0a 20 20 20 57 | 52 49 54 45 4b 45 59 28 |);.. W|RITEKEY(|
|000016e0| 4b 45 59 49 4e 53 29 3b | 20 57 52 49 54 45 4b 45 |KEYINS);| WRITEKE|
|000016f0| 59 28 4b 45 59 44 45 4c | 29 3b 0d 0a 45 4e 44 3b |Y(KEYDEL|);..END;|
|00001700| 20 7b 4c 49 4e 45 32 35 | 7d 0d 0a 0d 0a 50 52 4f | {LINE25|}....PRO|
|00001710| 43 45 44 55 52 45 20 44 | 49 53 50 4c 41 59 5f 42 |CEDURE D|ISPLAY_B|
|00001720| 4f 52 44 45 52 3b 0d 0a | 56 41 52 20 49 2c 52 54 |ORDER;..|VAR I,RT|
|00001730| 43 4f 4c 2c 42 54 4d 52 | 4f 57 3a 49 4e 54 45 47 |COL,BTMR|OW:INTEG|
|00001740| 45 52 3b 0d 0a 42 45 47 | 49 4e 0d 0a 20 20 20 48 |ER;..BEG|IN.. H|
|00001750| 49 47 48 56 49 44 45 4f | 3b 0d 0a 0d 0a 20 20 20 |IGHVIDEO|;.... |
|00001760| 7b 20 57 52 49 54 45 20 | 4f 55 54 20 43 4f 52 4e |{ WRITE |OUT CORN|
|00001770| 45 52 20 43 48 41 52 41 | 43 54 45 52 53 20 7d 0d |ER CHARA|CTERS }.|
|00001780| 0a 20 20 20 47 4f 54 4f | 52 43 28 4c 55 43 52 30 |. GOTO|RC(LUCR0|
|00001790| 2c 4c 55 43 43 30 29 3b | 20 57 52 49 54 45 28 43 |,LUCC0);| WRITE(C|
|000017a0| 48 52 28 4c 55 43 29 29 | 3b 0d 0a 20 20 20 52 54 |HR(LUC))|;.. RT|
|000017b0| 43 4f 4c 3a 3d 4c 55 43 | 43 30 2b 39 2a 48 53 54 |COL:=LUC|C0+9*HST|
|000017c0| 45 50 3b 20 47 4f 54 4f | 52 43 28 4c 55 43 52 30 |EP; GOTO|RC(LUCR0|
|000017d0| 2c 52 54 43 4f 4c 29 3b | 20 57 52 49 54 45 28 43 |,RTCOL);| WRITE(C|
|000017e0| 48 52 28 52 55 43 29 29 | 3b 0d 0a 20 20 20 42 54 |HR(RUC))|;.. BT|
|000017f0| 4d 52 4f 57 3a 3d 4c 55 | 43 52 30 2b 39 2a 56 53 |MROW:=LU|CR0+9*VS|
|00001800| 54 45 50 3b 20 47 4f 54 | 4f 52 43 28 42 54 4d 52 |TEP; GOT|ORC(BTMR|
|00001810| 4f 57 2c 4c 55 43 43 30 | 29 3b 20 57 52 49 54 45 |OW,LUCC0|); WRITE|
|00001820| 28 43 48 52 28 4c 4c 43 | 29 29 3b 0d 0a 20 20 20 |(CHR(LLC|));.. |
|00001830| 47 4f 54 4f 52 43 28 42 | 54 4d 52 4f 57 2c 52 54 |GOTORC(B|TMROW,RT|
|00001840| 43 4f 4c 29 3b 20 57 52 | 49 54 45 28 43 48 52 28 |COL); WR|ITE(CHR(|
|00001850| 52 4c 43 29 29 3b 0d 0a | 0d 0a 20 20 20 7b 20 57 |RLC));..|.. { W|
|00001860| 52 49 54 45 20 4f 55 54 | 20 4c 49 4e 45 53 20 4f |RITE OUT| LINES O|
|00001870| 46 20 46 52 41 4d 45 20 | 7d 0d 0a 20 20 20 46 4f |F FRAME |}.. FO|
|00001880| 52 20 49 3a 3d 4c 55 43 | 43 30 2b 31 20 54 4f 20 |R I:=LUC|C0+1 TO |
|00001890| 52 54 43 4f 4c 2d 31 20 | 44 4f 20 42 45 47 49 4e |RTCOL-1 |DO BEGIN|
|000018a0| 0d 0a 20 20 20 20 20 20 | 20 47 4f 54 4f 52 43 28 |.. | GOTORC(|
|000018b0| 4c 55 43 52 30 2c 49 29 | 3b 20 57 52 49 54 45 28 |LUCR0,I)|; WRITE(|
|000018c0| 43 48 52 28 48 4c 49 4e | 45 29 29 3b 20 47 4f 54 |CHR(HLIN|E)); GOT|
|000018d0| 4f 52 43 28 42 54 4d 52 | 4f 57 2c 49 29 3b 20 57 |ORC(BTMR|OW,I); W|
|000018e0| 52 49 54 45 28 43 48 52 | 28 48 4c 49 4e 45 29 29 |RITE(CHR|(HLINE))|
|000018f0| 3b 20 45 4e 44 3b 0d 0a | 20 20 20 46 4f 52 20 49 |; END;..| FOR I|
|00001900| 3a 3d 4c 55 43 52 30 2b | 31 20 54 4f 20 42 54 4d |:=LUCR0+|1 TO BTM|
|00001910| 52 4f 57 2d 31 20 44 4f | 20 42 45 47 49 4e 0d 0a |ROW-1 DO| BEGIN..|
|00001920| 20 20 20 20 20 20 20 47 | 4f 54 4f 52 43 28 49 2c | G|OTORC(I,|
|00001930| 4c 55 43 43 30 29 3b 20 | 57 52 49 54 45 28 43 48 |LUCC0); |WRITE(CH|
|00001940| 52 28 56 4c 49 4e 45 29 | 29 3b 20 47 4f 54 4f 52 |R(VLINE)|); GOTOR|
|00001950| 43 28 49 2c 52 54 43 4f | 4c 29 3b 20 57 52 49 54 |C(I,RTCO|L); WRIT|
|00001960| 45 28 43 48 52 28 56 4c | 49 4e 45 29 29 3b 20 45 |E(CHR(VL|INE)); E|
|00001970| 4e 44 3b 0d 0a 0d 0a 20 | 20 20 7b 20 49 4e 49 54 |ND;.... | { INIT|
|00001980| 49 41 4c 49 5a 45 20 54 | 48 45 20 53 43 52 45 45 |IALIZE T|HE SCREE|
|00001990| 4e 20 50 4f 53 49 54 49 | 4f 4e 20 4f 46 20 54 48 |N POSITI|ON OF TH|
|000019a0| 45 20 46 4f 4e 54 20 4e | 55 4d 42 45 52 20 7d 0d |E FONT N|UMBER }.|
|000019b0| 0a 20 20 20 46 4f 4e 54 | 4e 52 3a 3d 4c 55 43 52 |. FONT|NR:=LUCR|
|000019c0| 30 2d 31 3b 20 46 4f 4e | 54 4e 43 3a 3d 52 54 43 |0-1; FON|TNC:=RTC|
|000019d0| 4f 4c 2d 34 3b 0d 0a 20 | 20 20 58 59 52 3a 3d 46 |OL-4;.. | XYR:=F|
|000019e0| 4f 4e 54 4e 52 3b 20 58 | 59 43 3a 3d 4c 55 43 43 |ONTNR; X|YC:=LUCC|
|000019f0| 30 3b 0d 0a 0d 0a 45 4e | 44 3b 20 7b 20 44 49 53 |0;....EN|D; { DIS|
|00001a00| 50 4c 41 59 5f 42 4f 52 | 44 45 52 20 7d 0d 0a 0d |PLAY_BOR|DER }...|
|00001a10| 0a 50 52 4f 43 45 44 55 | 52 45 20 44 49 53 50 4c |.PROCEDU|RE DISPL|
|00001a20| 41 59 5f 46 4f 4e 54 4e | 4f 28 46 4f 4e 54 4e 4f |AY_FONTN|O(FONTNO|
|00001a30| 3a 49 4e 54 45 47 45 52 | 29 3b 0d 0a 20 20 20 20 |:INTEGER|);.. |
|00001a40| 20 20 20 20 20 20 42 45 | 47 49 4e 20 52 45 56 45 | BE|GIN REVE|
|00001a50| 52 53 45 3b 20 47 4f 54 | 4f 52 43 28 46 4f 4e 54 |RSE; GOT|ORC(FONT|
|00001a60| 4e 52 2c 46 4f 4e 54 4e | 43 29 3b 20 57 52 49 54 |NR,FONTN|C); WRIT|
|00001a70| 45 28 27 20 27 2c 46 4f | 4e 54 4e 4f 3a 33 2c 27 |E(' ',FO|NTNO:3,'|
|00001a80| 20 27 29 3b 20 4e 4f 52 | 4d 41 4c 3b 20 45 4e 44 | '); NOR|MAL; END|
|00001a90| 3b 0d 0a 0d 0a 50 52 4f | 43 45 44 55 52 45 20 44 |;....PRO|CEDURE D|
|00001aa0| 49 53 50 4c 41 59 5f 46 | 4f 4e 54 53 28 46 4f 4e |ISPLAY_F|ONTS(FON|
|00001ab0| 54 3a 43 48 41 52 5f 50 | 41 54 54 45 52 4e 29 3b |T:CHAR_P|ATTERN);|
|00001ac0| 0d 0a 56 41 52 20 49 2c | 52 4f 57 3a 49 4e 54 45 |..VAR I,|ROW:INTE|
|00001ad0| 47 45 52 3b 20 43 4f 4c | 2c 4a 3a 42 59 54 45 42 |GER; COL|,J:BYTEB|
|00001ae0| 49 54 53 3b 0d 0a 42 45 | 47 49 4e 0d 0a 20 20 20 |ITS;..BE|GIN.. |
|00001af0| 20 4c 4f 57 56 49 44 45 | 4f 3b 0d 0a 20 20 20 20 | LOWVIDE|O;.. |
|00001b00| 46 4f 52 20 49 3a 3d 31 | 20 54 4f 20 38 20 44 4f |FOR I:=1| TO 8 DO|
|00001b10| 20 42 45 47 49 4e 0d 0a | 20 20 20 20 20 20 20 20 | BEGIN..| |
|00001b20| 52 4f 57 3a 3d 4c 4f 43 | 41 54 45 5f 52 4f 57 28 |ROW:=LOC|ATE_ROW(|
|00001b30| 49 29 3b 20 7b 20 47 45 | 54 20 53 43 52 45 45 4e |I); { GE|T SCREEN|
|00001b40| 20 50 4f 53 49 54 49 4f | 4e 20 4f 46 20 54 48 45 | POSITIO|N OF THE|
|00001b50| 20 49 74 68 20 52 4f 57 | 20 7d 0d 0a 20 20 20 20 | Ith ROW| }.. |
|00001b60| 20 20 20 20 46 4f 52 20 | 4a 3a 3d 42 49 54 31 20 | FOR |J:=BIT1 |
|00001b70| 54 4f 20 42 49 54 38 20 | 44 4f 20 42 45 47 49 4e |TO BIT8 |DO BEGIN|
|00001b80| 0d 0a 20 20 20 20 20 20 | 20 20 20 20 20 20 43 4f |.. | CO|
|00001b90| 4c 3a 3d 4c 4f 43 41 54 | 45 5f 43 4f 4c 28 4a 29 |L:=LOCAT|E_COL(J)|
|00001ba0| 3b 20 7b 20 47 45 54 20 | 53 43 52 45 45 4e 20 50 |; { GET |SCREEN P|
|00001bb0| 4f 53 49 54 49 4f 4e 20 | 4f 46 20 54 48 45 20 4a |OSITION |OF THE J|
|00001bc0| 74 68 20 43 4f 4c 55 4d | 4e 20 7d 0d 0a 20 20 20 |th COLUM|N }.. |
|00001bd0| 20 20 20 20 20 20 20 20 | 20 47 4f 54 4f 52 43 28 | | GOTORC(|
|00001be0| 52 4f 57 2c 43 4f 4c 29 | 3b 0d 0a 20 20 20 20 20 |ROW,COL)|;.. |
|00001bf0| 20 20 20 20 20 20 20 49 | 46 20 4a 20 49 4e 20 46 | I|F J IN F|
|00001c00| 4f 4e 54 5b 49 5d 20 54 | 48 45 4e 20 57 52 49 54 |ONT[I] T|HEN WRIT|
|00001c10| 45 28 43 48 52 28 44 4f | 54 29 29 20 45 4c 53 45 |E(CHR(DO|T)) ELSE|
|00001c20| 20 57 52 49 54 45 28 27 | 20 27 29 3b 0d 0a 20 20 | WRITE('| ');.. |
|00001c30| 20 20 20 20 20 20 20 20 | 20 20 45 4e 44 3b 0d 0a | | END;..|
|00001c40| 20 20 20 20 20 20 20 20 | 45 4e 44 3b 0d 0a 20 20 | |END;.. |
|00001c50| 20 20 43 55 52 52 4f 57 | 3a 3d 31 3b 20 43 55 52 | CURROW|:=1; CUR|
|00001c60| 43 4f 4c 3a 3d 42 49 54 | 31 3b 20 44 4f 54 5f 43 |COL:=BIT|1; DOT_C|
|00001c70| 55 52 53 4f 52 28 43 55 | 52 52 4f 57 2c 43 55 52 |URSOR(CU|RROW,CUR|
|00001c80| 43 4f 4c 2c 4f 4e 29 3b | 0d 0a 45 4e 44 3b 20 7b |COL,ON);|..END; {|
|00001c90| 20 44 49 53 50 4c 41 59 | 20 41 20 46 4f 4e 54 20 | DISPLAY| A FONT |
|00001ca0| 7d 0d 0a 0d 0a 50 52 4f | 43 45 44 55 52 45 20 44 |}....PRO|CEDURE D|
|00001cb0| 49 53 50 4c 41 59 5f 46 | 4f 4e 54 28 46 4f 4e 54 |ISPLAY_F|ONT(FONT|
|00001cc0| 4e 4f 3a 49 4e 54 45 47 | 45 52 29 3b 0d 0a 42 45 |NO:INTEG|ER);..BE|
|00001cd0| 47 49 4e 20 44 49 53 50 | 4c 41 59 5f 46 4f 4e 54 |GIN DISP|LAY_FONT|
|00001ce0| 53 28 46 4f 4e 54 53 5b | 46 4f 4e 54 4e 4f 5d 29 |S(FONTS[|FONTNO])|
|00001cf0| 3b 20 45 4e 44 3b 0d 0a | 0d 0a 50 52 4f 43 45 44 |; END;..|..PROCED|
|00001d00| 55 52 45 20 4d 45 4e 55 | 53 3b 0d 0a 4c 41 42 45 |URE MENU|S;..LABE|
|00001d10| 4c 20 54 4f 5f 4c 42 4c | 2c 46 52 4f 4d 5f 4c 42 |L TO_LBL|,FROM_LB|
|00001d20| 4c 2c 4e 55 4d 5f 4c 42 | 4c 3b 0d 0a 43 4f 4e 53 |L,NUM_LB|L;..CONS|
|00001d30| 54 20 52 4f 4d 4f 46 53 | 3d 24 46 41 36 45 3b 20 |T ROMOFS|=$FA6E; |
|00001d40| 52 4f 4d 53 45 47 3d 24 | 46 30 30 30 3b 0d 0a 56 |ROMSEG=$|F000;..V|
|00001d50| 41 52 20 43 4d 44 3a 31 | 2e 2e 34 3b 20 51 52 4f |AR CMD:1|..4; QRO|
|00001d60| 57 3a 49 4e 54 45 47 45 | 52 3b 0d 0a 20 20 20 20 |W:INTEGE|R;.. |
|00001d70| 46 4f 4e 54 3a 43 48 41 | 52 5f 50 41 54 54 45 52 |FONT:CHA|R_PATTER|
|00001d80| 4e 3b 0d 0a 20 20 20 20 | 53 46 4f 4e 54 2c 44 46 |N;.. |SFONT,DF|
|00001d90| 4f 4e 54 2c 43 4f 44 45 | 2c 4e 55 4d 2c 49 2c 53 |ONT,CODE|,NUM,I,S|
|00001da0| 54 52 50 4f 53 2c 58 50 | 4f 53 2c 59 50 4f 53 3a |TRPOS,XP|OS,YPOS:|
|00001db0| 49 4e 54 45 47 45 52 3b | 0d 0a 20 20 20 20 49 4e |INTEGER;|.. IN|
|00001dc0| 53 54 52 49 4e 47 3a 20 | 53 54 52 49 4e 47 5b 38 |STRING: |STRING[8|
|00001dd0| 30 5d 3b 0d 0a 20 20 20 | 20 52 4f 4d 3a 42 4f 4f |0];.. | ROM:BOO|
|00001de0| 4c 45 41 4e 3b 0d 0a 20 | 20 20 20 50 41 54 54 45 |LEAN;.. | PATTE|
|00001df0| 52 4e 3a 20 50 41 54 54 | 45 52 4e 5f 53 45 54 3b |RN: PATT|ERN_SET;|
|00001e00| 20 4d 45 4d 42 59 54 45 | 3a 42 59 54 45 20 41 42 | MEMBYTE|:BYTE AB|
|00001e10| 53 4f 4c 55 54 45 20 50 | 41 54 54 45 52 4e 3b 0d |SOLUTE P|ATTERN;.|
|00001e20| 0a 20 20 20 20 41 4e 53 | 3a 43 48 41 52 3b 0d 0a |. ANS|:CHAR;..|
|00001e30| 20 20 20 20 46 49 4c 45 | 4e 41 4d 45 3a 46 49 4c | FILE|NAME:FIL|
|00001e40| 45 5f 4e 41 4d 45 5f 54 | 59 50 45 3b 0d 0a 0d 0a |E_NAME_T|YPE;....|
|00001e50| 20 20 7b 2a 7d 50 52 4f | 43 45 44 55 52 45 20 57 | {*}PRO|CEDURE W|
|00001e60| 52 49 54 45 5f 4f 50 54 | 49 4f 4e 28 52 4f 57 3a |RITE_OPT|ION(ROW:|
|00001e70| 49 4e 54 45 47 45 52 3b | 53 54 52 3a 42 49 47 53 |INTEGER;|STR:BIGS|
|00001e80| 54 52 29 3b 0d 0a 20 20 | 42 45 47 49 4e 0d 0a 20 |TR);.. |BEGIN.. |
|00001e90| 20 20 20 20 47 4f 54 4f | 52 43 28 52 4f 57 2c 4d | GOTO|RC(ROW,M|
|00001ea0| 45 4e 55 43 29 3b 20 57 | 52 49 54 45 28 53 54 52 |ENUC); W|RITE(STR|
|00001eb0| 29 3b 20 45 4e 44 3b 0d | 0a 20 20 7b 2a 7d 50 52 |); END;.|. {*}PR|
|00001ec0| 4f 43 45 44 55 52 45 20 | 43 4c 45 41 52 5f 52 4f |OCEDURE |CLEAR_RO|
|00001ed0| 57 53 28 52 4f 57 3a 49 | 4e 54 45 47 45 52 29 3b |WS(ROW:I|NTEGER);|
|00001ee0| 0d 0a 20 20 56 41 52 20 | 49 3a 49 4e 54 45 47 45 |.. VAR |I:INTEGE|
|00001ef0| 52 3b 0d 0a 20 20 42 45 | 47 49 4e 0d 0a 20 20 20 |R;.. BE|GIN.. |
|00001f00| 20 20 20 46 4f 52 20 49 | 3a 3d 52 4f 57 20 54 4f | FOR I|:=ROW TO|
|00001f10| 20 32 34 20 44 4f 20 42 | 45 47 49 4e 20 47 4f 54 | 24 DO B|EGIN GOT|
|00001f20| 4f 52 43 28 49 2c 4d 45 | 4e 55 43 29 3b 20 43 4c |ORC(I,ME|NUC); CL|
|00001f30| 52 45 4f 4c 3b 20 45 4e | 44 3b 0d 0a 20 20 45 4e |REOL; EN|D;.. EN|
|00001f40| 44 3b 0d 0a 20 20 7b 2a | 7d 46 55 4e 43 54 49 4f |D;.. {*|}FUNCTIO|
|00001f50| 4e 20 4f 50 45 4e 5f 49 | 4e 50 55 54 5f 46 49 4c |N OPEN_I|NPUT_FIL|
|00001f60| 45 28 56 41 52 20 46 49 | 4c 45 56 41 52 3a 43 48 |E(VAR FI|LEVAR:CH|
|00001f70| 41 52 5f 50 41 54 54 45 | 52 4e 5f 46 49 4c 45 3b |AR_PATTE|RN_FILE;|
|00001f80| 46 49 4c 45 4e 41 4d 45 | 3a 46 49 4c 45 5f 4e 41 |FILENAME|:FILE_NA|
|00001f90| 4d 45 5f 54 59 50 45 29 | 3a 42 4f 4f 4c 45 41 4e |ME_TYPE)|:BOOLEAN|
|00001fa0| 3b 0d 0a 20 20 42 45 47 | 49 4e 0d 0a 20 20 20 20 |;.. BEG|IN.. |
|00001fb0| 20 20 4f 50 45 4e 5f 49 | 4e 50 55 54 5f 46 49 4c | OPEN_I|NPUT_FIL|
|00001fc0| 45 3a 3d 54 52 55 45 3b | 0d 0a 20 20 20 20 20 20 |E:=TRUE;|.. |
|00001fd0| 41 53 53 49 47 4e 28 46 | 49 4c 45 56 41 52 2c 46 |ASSIGN(F|ILEVAR,F|
|00001fe0| 49 4c 45 4e 41 4d 45 29 | 3b 20 7b 24 49 2d 7d 20 |ILENAME)|; {$I-} |
|00001ff0| 52 45 53 45 54 28 46 49 | 4c 45 56 41 52 29 3b 20 |RESET(FI|LEVAR); |
|00002000| 7b 24 49 2b 7d 0d 0a 20 | 20 20 20 20 20 49 46 20 |{$I+}.. | IF |
|00002010| 49 4f 52 45 53 55 4c 54 | 20 3c 3e 20 30 20 54 48 |IORESULT| <> 0 TH|
|00002020| 45 4e 20 42 45 47 49 4e | 0d 0a 20 20 20 20 20 20 |EN BEGIN|.. |
|00002030| 20 20 20 47 4f 54 4f 52 | 43 28 32 34 2c 4d 45 4e | GOTOR|C(24,MEN|
|00002040| 55 43 29 3b 20 57 52 49 | 54 45 28 27 4e 4f 4e 2d |UC); WRI|TE('NON-|
|00002050| 45 58 49 53 54 45 4e 54 | 20 46 49 4c 45 27 29 3b |EXISTENT| FILE');|
|00002060| 20 4f 50 45 4e 5f 49 4e | 50 55 54 5f 46 49 4c 45 | OPEN_IN|PUT_FILE|
|00002070| 3a 3d 46 41 4c 53 45 20 | 45 4e 44 3b 0d 0a 20 20 |:=FALSE |END;.. |
|00002080| 45 4e 44 3b 0d 0a 20 20 | 7b 2a 7d 50 52 4f 43 45 |END;.. |{*}PROCE|
|00002090| 44 55 52 45 20 53 54 52 | 49 50 5f 4c 42 4c 41 4e |DURE STR|IP_LBLAN|
|000020a0| 4b 53 28 56 41 52 20 53 | 54 52 3a 42 49 47 53 54 |KS(VAR S|TR:BIGST|
|000020b0| 52 29 3b 0d 0a 20 20 20 | 20 20 56 41 52 20 49 3a |R);.. | VAR I:|
|000020c0| 49 4e 54 45 47 45 52 3b | 20 44 4f 4e 45 3a 42 4f |INTEGER;| DONE:BO|
|000020d0| 4f 4c 45 41 4e 3b 0d 0a | 20 20 20 20 20 42 45 47 |OLEAN;..| BEG|
|000020e0| 49 4e 20 44 4f 4e 45 3a | 3d 46 41 4c 53 45 3b 0d |IN DONE:|=FALSE;.|
|000020f0| 0a 20 20 20 20 20 20 20 | 20 20 20 20 57 48 49 4c |. | WHIL|
|00002100| 45 20 28 53 54 52 5b 31 | 5d 3d 27 20 27 29 20 41 |E (STR[1|]=' ') A|
|00002110| 4e 44 20 28 4e 4f 54 20 | 44 4f 4e 45 29 20 44 4f |ND (NOT |DONE) DO|
|00002120| 0d 0a 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.. | |
|00002130| 20 20 20 42 45 47 49 4e | 20 4d 4f 56 45 28 53 54 | BEGIN| MOVE(ST|
|00002140| 52 5b 32 5d 2c 53 54 52 | 5b 31 5d 2c 4c 45 4e 47 |R[2],STR|[1],LENG|
|00002150| 54 48 28 53 54 52 29 2d | 31 29 3b 0d 0a 20 20 20 |TH(STR)-|1);.. |
|00002160| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00002170| 20 20 20 20 53 54 52 5b | 30 5d 3a 3d 43 48 52 28 | STR[|0]:=CHR(|
|00002180| 4f 52 44 28 53 54 52 5b | 30 5d 29 2d 31 29 3b 0d |ORD(STR[|0])-1);.|
|00002190| 0a 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |. | |
|000021a0| 20 20 20 20 20 20 20 20 | 49 46 20 4f 52 44 28 53 | |IF ORD(S|
|000021b0| 54 52 5b 30 5d 29 3c 3d | 30 20 54 48 45 4e 20 44 |TR[0])<=|0 THEN D|
|000021c0| 4f 4e 45 3a 3d 54 52 55 | 45 3b 20 45 4e 44 3b 0d |ONE:=TRU|E; END;.|
|000021d0| 0a 20 20 20 20 20 20 20 | 20 45 4e 44 3b 20 7b 20 |. | END; { |
|000021e0| 53 54 52 49 50 20 7d 0d | 0a 0d 0a 42 45 47 49 4e |STRIP }.|...BEGIN|
|000021f0| 0d 0a 20 20 20 20 20 57 | 52 49 54 45 5f 4f 50 54 |.. W|RITE_OPT|
|00002200| 49 4f 4e 28 4d 45 4e 55 | 52 2c 27 31 2e 20 51 55 |ION(MENU|R,'1. QU|
|00002210| 49 54 27 29 3b 0d 0a 20 | 20 20 20 20 57 52 49 54 |IT');.. | WRIT|
|00002220| 45 5f 4f 50 54 49 4f 4e | 28 4d 45 4e 55 52 2b 31 |E_OPTION|(MENUR+1|
|00002230| 2c 27 32 2e 20 52 45 41 | 44 20 46 49 4c 45 27 29 |,'2. REA|D FILE')|
|00002240| 3b 0d 0a 20 20 20 20 20 | 57 52 49 54 45 5f 4f 50 |;.. |WRITE_OP|
|00002250| 54 49 4f 4e 28 4d 45 4e | 55 52 2b 32 2c 20 27 33 |TION(MEN|UR+2, '3|
|00002260| 2e 20 57 52 49 54 45 20 | 46 49 4c 45 27 29 3b 0d |. WRITE |FILE');.|
|00002270| 0a 20 20 20 20 20 57 52 | 49 54 45 5f 4f 50 54 49 |. WR|ITE_OPTI|
|00002280| 4f 4e 28 4d 45 4e 55 52 | 2b 33 2c 27 34 2e 20 43 |ON(MENUR|+3,'4. C|
|00002290| 4f 50 59 20 46 4f 4e 54 | 53 27 29 3b 0d 0a 20 20 |OPY FONT|S');.. |
|000022a0| 20 20 20 57 52 49 54 45 | 5f 4f 50 54 49 4f 4e 28 | WRITE|_OPTION(|
|000022b0| 4d 45 4e 55 52 2b 35 2c | 27 43 4f 4d 4d 41 4e 44 |MENUR+5,|'COMMAND|
|000022c0| 3a 20 27 29 3b 0d 0a 20 | 20 20 20 20 52 45 41 44 |: ');.. | READ|
|000022d0| 28 43 4d 44 29 3b 0d 0a | 20 20 20 20 20 51 52 4f |(CMD);..| QRO|
|000022e0| 57 3a 3d 4d 45 4e 55 52 | 2b 37 3b 20 43 4c 45 41 |W:=MENUR|+7; CLEA|
|000022f0| 52 5f 52 4f 57 53 28 51 | 52 4f 57 29 3b 0d 0a 20 |R_ROWS(Q|ROW);.. |
|00002300| 20 20 20 20 43 41 53 45 | 20 43 4d 44 20 4f 46 0d | CASE| CMD OF.|
|00002310| 0a 20 20 20 20 20 31 3a | 20 42 45 47 49 4e 20 47 |. 1:| BEGIN G|
|00002320| 4f 54 4f 52 43 28 51 52 | 4f 57 2c 4d 45 4e 55 43 |OTORC(QR|OW,MENUC|
|00002330| 29 3b 20 57 52 49 54 45 | 28 27 53 55 52 45 20 3f |); WRITE|('SURE ?|
|00002340| 20 28 59 2f 4e 29 3a 20 | 27 29 3b 0d 0a 20 20 20 | (Y/N): |');.. |
|00002350| 20 20 20 20 20 20 20 20 | 20 20 20 52 45 41 44 28 | | READ(|
|00002360| 41 4e 53 29 3b 20 49 46 | 20 28 41 4e 53 3d 27 79 |ANS); IF| (ANS='y|
|00002370| 27 29 20 4f 52 20 28 41 | 4e 53 3d 27 59 27 29 20 |') OR (A|NS='Y') |
|00002380| 54 48 45 4e 20 51 55 49 | 54 3a 3d 54 52 55 45 3b |THEN QUI|T:=TRUE;|
|00002390| 20 45 4e 44 3b 0d 0a 20 | 20 20 20 20 32 3a 20 42 | END;.. | 2: B|
|000023a0| 45 47 49 4e 0d 0a 20 20 | 20 20 20 20 20 20 20 20 |EGIN.. | |
|000023b0| 47 4f 54 4f 52 43 28 51 | 52 4f 57 2c 4d 45 4e 55 |GOTORC(Q|ROW,MENU|
|000023c0| 43 29 3b 20 57 52 49 54 | 45 28 27 49 4e 50 55 54 |C); WRIT|E('INPUT|
|000023d0| 20 46 49 4c 45 4e 41 4d | 45 3a 27 29 3b 20 52 45 | FILENAM|E:'); RE|
|000023e0| 41 44 28 46 49 4c 45 4e | 41 4d 45 31 29 3b 0d 0a |AD(FILEN|AME1);..|
|000023f0| 20 20 20 20 20 20 20 20 | 20 20 49 46 20 4f 50 45 | | IF OPE|
|00002400| 4e 5f 49 4e 50 55 54 5f | 46 49 4c 45 28 46 49 4c |N_INPUT_|FILE(FIL|
|00002410| 45 31 2c 46 49 4c 45 4e | 41 4d 45 31 29 20 54 48 |E1,FILEN|AME1) TH|
|00002420| 45 4e 20 42 45 47 49 4e | 0d 0a 20 20 20 20 20 20 |EN BEGIN|.. |
|00002430| 20 20 20 20 20 20 20 44 | 46 4f 4e 54 3a 3d 30 3b | D|FONT:=0;|
|00002440| 20 57 48 49 4c 45 20 4e | 4f 54 20 45 4f 46 28 46 | WHILE N|OT EOF(F|
|00002450| 49 4c 45 31 29 20 44 4f | 20 42 45 47 49 4e 0d 0a |ILE1) DO| BEGIN..|
|00002460| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00002470| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 52 45 | | RE|
|00002480| 41 44 28 46 49 4c 45 31 | 2c 46 4f 4e 54 29 3b 0d |AD(FILE1|,FONT);.|
|00002490| 0a 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |. | |
|000024a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 52 | | R|
|000024b0| 45 56 46 4f 4e 54 28 46 | 4f 4e 54 2c 46 4f 4e 54 |EVFONT(F|ONT,FONT|
|000024c0| 53 5b 44 46 4f 4e 54 5d | 29 3b 0d 0a 20 20 20 20 |S[DFONT]|);.. |
|000024d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000024e0| 20 20 20 20 20 20 20 20 | 20 20 44 46 4f 4e 54 3a | | DFONT:|
|000024f0| 3d 28 44 46 4f 4e 54 2b | 31 29 20 4d 4f 44 20 32 |=(DFONT+|1) MOD 2|
|00002500| 35 36 3b 20 45 4e 44 3b | 0d 0a 20 20 20 20 20 20 |56; END;|.. |
|00002510| 20 20 20 20 20 20 20 43 | 4c 4f 53 45 20 28 46 49 | C|LOSE (FI|
|00002520| 4c 45 31 29 3b 20 45 4e | 44 3b 0d 0a 20 20 20 20 |LE1); EN|D;.. |
|00002530| 20 20 20 20 20 20 57 52 | 49 54 45 28 27 20 4f 4b | WR|ITE(' OK|
|00002540| 27 29 3b 20 44 49 53 50 | 4c 41 59 5f 46 4f 4e 54 |'); DISP|LAY_FONT|
|00002550| 28 46 4f 4e 54 4e 4f 29 | 3b 20 45 4e 44 3b 0d 0a |(FONTNO)|; END;..|
|00002560| 20 20 20 20 20 33 3a 20 | 42 45 47 49 4e 0d 0a 20 | 3: |BEGIN.. |
|00002570| 20 20 20 20 20 20 20 20 | 20 47 4f 54 4f 52 43 28 | | GOTORC(|
|00002580| 51 52 4f 57 2c 4d 45 4e | 55 43 29 3b 0d 0a 20 20 |QROW,MEN|UC);.. |
|00002590| 20 20 20 20 20 20 20 20 | 49 46 20 4c 45 4e 47 54 | |IF LENGT|
|000025a0| 48 28 46 49 4c 45 4e 41 | 4d 45 32 29 3d 30 20 54 |H(FILENA|ME2)=0 T|
|000025b0| 48 45 4e 20 46 49 4c 45 | 4e 41 4d 45 32 3a 3d 46 |HEN FILE|NAME2:=F|
|000025c0| 49 4c 45 4e 41 4d 45 31 | 3b 0d 0a 20 20 20 20 20 |ILENAME1|;.. |
|000025d0| 20 20 20 20 20 57 52 49 | 54 45 28 27 4f 55 54 50 | WRI|TE('OUTP|
|000025e0| 55 54 20 46 49 4c 45 4e | 41 4d 45 20 28 27 2c 46 |UT FILEN|AME (',F|
|000025f0| 49 4c 45 4e 41 4d 45 32 | 2c 27 29 3a 20 27 29 3b |ILENAME2|,'): ');|
|00002600| 20 52 45 41 44 28 46 49 | 4c 45 4e 41 4d 45 29 3b | READ(FI|LENAME);|
|00002610| 0d 0a 20 20 20 20 20 20 | 20 20 20 20 49 46 20 4c |.. | IF L|
|00002620| 45 4e 47 54 48 28 46 49 | 4c 45 4e 41 4d 45 29 3c |ENGTH(FI|LENAME)<|
|00002630| 3e 30 20 54 48 45 4e 20 | 46 49 4c 45 4e 41 4d 45 |>0 THEN |FILENAME|
|00002640| 32 3a 3d 46 49 4c 45 4e | 41 4d 45 3b 0d 0a 20 20 |2:=FILEN|AME;.. |
|00002650| 20 20 20 20 20 20 20 20 | 41 53 53 49 47 4e 28 46 | |ASSIGN(F|
|00002660| 49 4c 45 32 2c 46 49 4c | 45 4e 41 4d 45 32 29 3b |ILE2,FIL|ENAME2);|
|00002670| 20 52 45 57 52 49 54 45 | 28 46 49 4c 45 32 29 3b | REWRITE|(FILE2);|
|00002680| 0d 0a 20 20 20 20 20 20 | 20 20 20 20 46 4f 52 20 |.. | FOR |
|00002690| 53 46 4f 4e 54 3a 3d 30 | 20 54 4f 20 4d 41 58 46 |SFONT:=0| TO MAXF|
|000026a0| 4f 4e 54 20 44 4f 20 42 | 45 47 49 4e 0d 0a 20 20 |ONT DO B|EGIN.. |
|000026b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 52 45 56 46 | | REVF|
|000026c0| 4f 4e 54 28 46 4f 4e 54 | 53 5b 53 46 4f 4e 54 5d |ONT(FONT|S[SFONT]|
|000026d0| 2c 46 4f 4e 54 29 3b 20 | 57 52 49 54 45 28 46 49 |,FONT); |WRITE(FI|
|000026e0| 4c 45 32 2c 46 4f 4e 54 | 29 3b 20 45 4e 44 3b 0d |LE2,FONT|); END;.|
|000026f0| 0a 20 20 20 20 20 20 20 | 20 20 20 43 4c 4f 53 45 |. | CLOSE|
|00002700| 28 46 49 4c 45 32 29 3b | 20 57 52 49 54 45 28 27 |(FILE2);| WRITE('|
|00002710| 20 4f 4b 27 29 3b 20 45 | 4e 44 3b 0d 0a 20 20 20 | OK'); E|ND;.. |
|00002720| 20 20 34 3a 20 42 45 47 | 49 4e 0d 0a 54 4f 5f 4c | 4: BEG|IN..TO_L|
|00002730| 42 4c 3a 0d 0a 20 20 20 | 20 20 20 20 20 20 20 20 |BL:.. | |
|00002740| 47 4f 54 4f 52 43 28 51 | 52 4f 57 2c 4d 45 4e 55 |GOTORC(Q|ROW,MENU|
|00002750| 43 29 3b 20 57 52 49 54 | 45 28 27 54 4f 20 28 27 |C); WRIT|E('TO ('|
|00002760| 2c 46 4f 4e 54 4e 4f 3a | 31 2c 27 29 3a 27 29 3b |,FONTNO:|1,'):');|
|00002770| 0d 0a 20 20 20 20 20 20 | 20 20 20 20 20 44 46 4f |.. | DFO|
|00002780| 4e 54 3a 3d 46 4f 4e 54 | 4e 4f 3b 20 7b 24 49 2d |NT:=FONT|NO; {$I-|
|00002790| 7d 20 52 45 41 44 28 44 | 46 4f 4e 54 29 3b 20 7b |} READ(D|FONT); {|
|000027a0| 24 49 2b 7d 0d 0a 20 20 | 20 20 20 20 20 20 20 20 |$I+}.. | |
|000027b0| 20 49 46 20 49 4f 52 45 | 53 55 4c 54 20 3c 3e 20 | IF IORE|SULT <> |
|000027c0| 30 20 54 48 45 4e 20 47 | 4f 54 4f 20 54 4f 5f 4c |0 THEN G|OTO TO_L|
|000027d0| 42 4c 3b 0d 0a 0d 0a 46 | 52 4f 4d 5f 4c 42 4c 3a |BL;....F|ROM_LBL:|
|000027e0| 20 20 47 4f 54 4f 52 43 | 28 51 52 4f 57 2b 31 2c | GOTORC|(QROW+1,|
|000027f0| 4d 45 4e 55 43 29 3b 20 | 57 52 49 54 45 28 27 46 |MENUC); |WRITE('F|
|00002800| 52 4f 4d 20 28 3c 46 4f | 4e 54 23 3e 20 7c 20 52 |ROM (<FO|NT#> | R|
|00002810| 4f 4d 20 3c 46 4f 4e 54 | 23 3e 29 3a 27 29 3b 0d |OM <FONT|#>):');.|
|00002820| 0a 20 20 20 20 20 20 20 | 20 20 20 20 58 50 4f 53 |. | XPOS|
|00002830| 3a 3d 57 48 45 52 45 58 | 3b 20 59 50 4f 53 3a 3d |:=WHEREX|; YPOS:=|
|00002840| 57 48 45 52 45 59 3b 20 | 52 45 41 44 28 49 4e 53 |WHEREY; |READ(INS|
|00002850| 54 52 49 4e 47 29 3b 0d | 0a 20 20 20 20 20 20 20 |TRING);.|. |
|00002860| 20 20 20 20 7b 20 50 41 | 52 53 45 20 49 4e 53 54 | { PA|RSE INST|
|00002870| 52 49 4e 47 3b 20 49 46 | 20 43 4f 4e 54 41 49 4e |RING; IF| CONTAIN|
|00002880| 53 20 57 4f 52 44 20 27 | 52 4f 4d 27 20 54 48 45 |S WORD '|ROM' THE|
|00002890| 4e 20 43 4f 50 59 20 46 | 52 4f 4d 20 52 4f 4d 20 |N COPY F|ROM ROM |
|000028a0| 7d 0d 0a 20 20 20 20 20 | 20 20 20 20 20 20 53 54 |}.. | ST|
|000028b0| 52 50 4f 53 3a 3d 50 4f | 53 28 27 52 4f 4d 27 2c |RPOS:=PO|S('ROM',|
|000028c0| 49 4e 53 54 52 49 4e 47 | 29 3b 20 52 4f 4d 3a 3d |INSTRING|); ROM:=|
|000028d0| 46 41 4c 53 45 3b 0d 0a | 20 20 20 20 20 20 20 20 |FALSE;..| |
|000028e0| 20 20 20 49 46 20 53 54 | 52 50 4f 53 3c 3e 30 20 | IF ST|RPOS<>0 |
|000028f0| 54 48 45 4e 20 42 45 47 | 49 4e 20 52 4f 4d 3a 3d |THEN BEG|IN ROM:=|
|00002900| 54 52 55 45 3b 20 44 45 | 4c 45 54 45 28 49 4e 53 |TRUE; DE|LETE(INS|
|00002910| 54 52 49 4e 47 2c 53 54 | 52 50 4f 53 2c 33 29 3b |TRING,ST|RPOS,3);|
|00002920| 45 4e 44 3b 0d 0a 20 20 | 20 20 20 20 20 20 20 20 |END;.. | |
|00002930| 20 53 54 52 49 50 5f 4c | 42 4c 41 4e 4b 53 28 49 | STRIP_L|BLANKS(I|
|00002940| 4e 53 54 52 49 4e 47 29 | 3b 20 56 41 4c 28 49 4e |NSTRING)|; VAL(IN|
|00002950| 53 54 52 49 4e 47 2c 53 | 46 4f 4e 54 2c 43 4f 44 |STRING,S|FONT,COD|
|00002960| 45 29 3b 0d 0a 20 20 20 | 20 20 20 20 20 20 20 20 |E);.. | |
|00002970| 49 46 20 43 4f 44 45 3c | 3e 30 20 54 48 45 4e 20 |IF CODE<|>0 THEN |
|00002980| 42 45 47 49 4e 0d 0a 20 | 20 20 20 20 20 20 20 20 |BEGIN.. | |
|00002990| 20 20 20 20 20 47 4f 54 | 4f 58 59 28 58 50 4f 53 | GOT|OXY(XPOS|
|000029a0| 2c 59 50 4f 53 29 3b 20 | 43 4c 52 45 4f 4c 3b 20 |,YPOS); |CLREOL; |
|000029b0| 47 4f 54 4f 20 46 52 4f | 4d 5f 4c 42 4c 3b 20 45 |GOTO FRO|M_LBL; E|
|000029c0| 4e 44 3b 0d 0a 0d 0a 4e | 55 4d 5f 4c 42 4c 3a 0d |ND;....N|UM_LBL:.|
|000029d0| 0a 20 20 20 20 20 20 20 | 20 20 20 20 47 4f 54 4f |. | GOTO|
|000029e0| 52 43 28 51 52 4f 57 2b | 32 2c 4d 45 4e 55 43 29 |RC(QROW+|2,MENUC)|
|000029f0| 3b 20 57 52 49 54 45 28 | 27 4e 55 4d 20 28 31 29 |; WRITE(|'NUM (1)|
|00002a00| 3a 27 29 3b 20 4e 55 4d | 3a 3d 31 3b 20 7b 24 49 |:'); NUM|:=1; {$I|
|00002a10| 2d 7d 52 45 41 44 28 4e | 55 4d 29 3b 20 7b 24 49 |-}READ(N|UM); {$I|
|00002a20| 2b 7d 0d 0a 20 20 20 20 | 20 20 20 20 20 20 20 49 |+}.. | I|
|00002a30| 46 20 49 4f 52 45 53 55 | 4c 54 20 3c 3e 20 30 20 |F IORESU|LT <> 0 |
|00002a40| 54 48 45 4e 20 47 4f 54 | 4f 20 4e 55 4d 5f 4c 42 |THEN GOT|O NUM_LB|
|00002a50| 4c 3b 0d 0a 0d 0a 20 20 | 20 20 20 20 20 20 20 20 |L;.... | |
|00002a60| 20 49 46 20 52 4f 4d 20 | 54 48 45 4e 20 42 45 47 | IF ROM |THEN BEG|
|00002a70| 49 4e 0d 0a 20 20 20 20 | 20 20 20 20 20 20 20 20 |IN.. | |
|00002a80| 20 20 4d 4f 56 45 28 4d | 45 4d 5b 52 4f 4d 53 45 | MOVE(M|EM[ROMSE|
|00002a90| 47 3a 28 52 4f 4d 4f 46 | 53 2b 53 46 4f 4e 54 2a |G:(ROMOF|S+SFONT*|
|00002aa0| 38 29 5d 2c 46 4f 4e 54 | 53 5b 44 46 4f 4e 54 5d |8)],FONT|S[DFONT]|
|00002ab0| 2c 4e 55 4d 2a 38 29 3b | 0d 0a 20 20 20 20 20 20 |,NUM*8);|.. |
|00002ac0| 20 20 20 20 20 20 20 20 | 46 4f 52 20 49 3a 3d 44 | |FOR I:=D|
|00002ad0| 46 4f 4e 54 20 54 4f 20 | 44 46 4f 4e 54 2b 4e 55 |FONT TO |DFONT+NU|
|00002ae0| 4d 2d 31 20 44 4f 20 7b | 52 45 56 45 52 53 45 20 |M-1 DO {|REVERSE |
|00002af0| 42 49 54 20 50 41 54 54 | 45 52 4e 53 7d 0d 0a 20 |BIT PATT|ERNS}.. |
|00002b00| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00002b10| 20 52 45 56 46 4f 4e 54 | 28 46 4f 4e 54 53 5b 49 | REVFONT|(FONTS[I|
|00002b20| 5d 2c 46 4f 4e 54 53 5b | 49 5d 29 3b 0d 0a 20 20 |],FONTS[|I]);.. |
|00002b30| 20 20 20 20 20 20 20 20 | 20 20 20 20 45 4e 44 0d | | END.|
|00002b40| 0a 20 20 20 20 20 20 20 | 20 20 20 20 45 4c 53 45 |. | ELSE|
|00002b50| 20 4d 4f 56 45 28 46 4f | 4e 54 53 5b 53 46 4f 4e | MOVE(FO|NTS[SFON|
|00002b60| 54 5d 2c 46 4f 4e 54 53 | 5b 44 46 4f 4e 54 5d 2c |T],FONTS|[DFONT],|
|00002b70| 4e 55 4d 2a 38 29 3b 0d | 0a 20 20 20 20 20 20 20 |NUM*8);.|. |
|00002b80| 20 20 20 20 57 52 49 54 | 45 28 27 20 4f 4b 27 29 | WRIT|E(' OK')|
|00002b90| 3b 20 44 49 53 50 4c 41 | 59 5f 46 4f 4e 54 28 46 |; DISPLA|Y_FONT(F|
|00002ba0| 4f 4e 54 4e 4f 29 3b 20 | 45 4e 44 3b 20 7b 20 34 |ONTNO); |END; { 4|
|00002bb0| 20 7d 0d 0a 0d 0a 20 20 | 20 20 20 20 45 4c 53 45 | }.... | ELSE|
|00002bc0| 20 7b 20 44 4f 20 4e 4f | 54 48 49 4e 47 20 7d 20 | { DO NO|THING } |
|00002bd0| 45 4e 44 3b 20 7b 20 43 | 41 53 45 20 7d 0d 0a 45 |END; { C|ASE }..E|
|00002be0| 4e 44 3b 20 7b 20 4d 45 | 4e 55 53 20 7d 0d 0a 0d |ND; { ME|NUS }...|
|00002bf0| 0a 50 52 4f 43 45 44 55 | 52 45 20 50 45 52 46 4f |.PROCEDU|RE PERFO|
|00002c00| 52 4d 28 4b 45 59 3a 4b | 45 59 53 29 3b 20 7b 20 |RM(KEY:K|EYS); { |
|00002c10| 4d 41 4a 4f 52 20 52 4f | 55 54 49 4e 45 20 46 4f |MAJOR RO|UTINE FO|
|00002c20| 52 20 45 58 45 43 55 54 | 49 4e 47 20 54 48 45 20 |R EXECUT|ING THE |
|00002c30| 4e 4f 4e 2d 4d 45 4e 55 | 20 43 4f 4d 4d 41 4e 44 |NON-MENU| COMMAND|
|00002c40| 53 20 7d 0d 0a 56 41 52 | 20 49 3a 49 4e 54 45 47 |S }..VAR| I:INTEG|
|00002c50| 45 52 3b 20 4a 3a 42 59 | 54 45 42 49 54 53 3b 0d |ER; J:BY|TEBITS;.|
|00002c60| 0a 42 45 47 49 4e 0d 0a | 20 20 20 20 43 41 53 45 |.BEGIN..| CASE|
|00002c70| 20 4b 45 59 20 4f 46 0d | 0a 20 20 20 20 46 31 3a | KEY OF.|. F1:|
|00002c80| 20 7b 20 54 55 52 4e 20 | 4f 4e 20 42 49 54 20 7d | { TURN |ON BIT }|
|00002c90| 0d 0a 20 20 20 20 20 20 | 20 20 49 46 20 43 55 52 |.. | IF CUR|
|00002ca0| 43 4f 4c 20 49 4e 20 46 | 4f 4e 54 53 5b 46 4f 4e |COL IN F|ONTS[FON|
|00002cb0| 54 4e 4f 2c 43 55 52 52 | 4f 57 5d 20 54 48 45 4e |TNO,CURR|OW] THEN|
|00002cc0| 20 44 4f 54 5f 43 4c 52 | 28 43 55 52 52 4f 57 2c | DOT_CLR|(CURROW,|
|00002cd0| 43 55 52 43 4f 4c 2c 4f | 4e 29 0d 0a 20 20 20 20 |CURCOL,O|N).. |
|00002ce0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00002cf0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00002d00| 20 20 20 20 20 20 45 4c | 53 45 20 44 4f 54 5f 53 | EL|SE DOT_S|
|00002d10| 45 54 28 43 55 52 52 4f | 57 2c 43 55 52 43 4f 4c |ET(CURRO|W,CURCOL|
|00002d20| 2c 4f 4e 29 3b 0d 0a 20 | 20 20 20 46 32 3a 20 7b |,ON);.. | F2: {|
|00002d30| 20 4e 4f 54 48 49 4e 47 | 20 49 4d 50 4c 45 4d 45 | NOTHING| IMPLEME|
|00002d40| 4e 54 45 44 20 7d 3b 0d | 0a 20 20 20 20 46 33 3a |NTED };.|. F3:|
|00002d50| 20 42 45 47 49 4e 20 7b | 20 53 48 49 46 54 20 4c | BEGIN {| SHIFT L|
|00002d60| 45 46 54 20 7d 0d 0a 20 | 20 20 20 20 20 20 20 46 |EFT }.. | F|
|00002d70| 4f 52 20 4a 3a 3d 42 49 | 54 31 20 54 4f 20 42 49 |OR J:=BI|T1 TO BI|
|00002d80| 54 38 20 44 4f 20 46 4f | 52 20 49 3a 3d 31 20 54 |T8 DO FO|R I:=1 T|
|00002d90| 4f 20 38 20 44 4f 0d 0a | 20 20 20 20 20 20 20 20 |O 8 DO..| |
|00002da0| 20 20 20 20 49 46 20 4a | 3d 42 49 54 38 20 54 48 | IF J|=BIT8 TH|
|00002db0| 45 4e 20 44 4f 54 5f 43 | 4c 52 28 49 2c 4a 2c 4f |EN DOT_C|LR(I,J,O|
|00002dc0| 46 46 29 0d 0a 20 20 20 | 20 20 20 20 20 20 20 20 |FF).. | |
|00002dd0| 20 45 4c 53 45 20 49 46 | 20 4a 2b 31 20 49 4e 20 | ELSE IF| J+1 IN |
|00002de0| 46 4f 4e 54 53 5b 46 4f | 4e 54 4e 4f 2c 49 5d 20 |FONTS[FO|NTNO,I] |
|00002df0| 54 48 45 4e 20 44 4f 54 | 5f 53 45 54 28 49 2c 4a |THEN DOT|_SET(I,J|
|00002e00| 2c 4f 46 46 29 0d 0a 20 | 20 20 20 20 20 20 20 20 |,OFF).. | |
|00002e10| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00002e20| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00002e30| 20 20 45 4c 53 45 20 44 | 4f 54 5f 43 4c 52 28 49 | ELSE D|OT_CLR(I|
|00002e40| 2c 4a 2c 4f 46 46 29 3b | 0d 0a 20 20 20 20 20 20 |,J,OFF);|.. |
|00002e50| 20 20 44 4f 54 5f 43 55 | 52 53 4f 52 28 43 55 52 | DOT_CU|RSOR(CUR|
|00002e60| 52 4f 57 2c 43 55 52 43 | 4f 4c 2c 4f 4e 29 3b 20 |ROW,CURC|OL,ON); |
|00002e70| 45 4e 44 3b 0d 0a 20 20 | 20 20 46 34 3a 20 42 45 |END;.. | F4: BE|
|00002e80| 47 49 4e 20 7b 20 53 48 | 49 46 54 20 52 49 47 48 |GIN { SH|IFT RIGH|
|00002e90| 54 20 7d 0d 0a 20 20 20 | 20 20 20 20 20 46 4f 52 |T }.. | FOR|
|00002ea0| 20 4a 3a 3d 42 49 54 38 | 20 44 4f 57 4e 54 4f 20 | J:=BIT8| DOWNTO |
|00002eb0| 42 49 54 31 20 44 4f 20 | 46 4f 52 20 49 3a 3d 31 |BIT1 DO |FOR I:=1|
|00002ec0| 20 54 4f 20 38 20 44 4f | 0d 0a 20 20 20 20 20 20 | TO 8 DO|.. |
|00002ed0| 20 20 20 20 20 20 49 46 | 20 4a 3d 42 49 54 31 20 | IF| J=BIT1 |
|00002ee0| 54 48 45 4e 20 44 4f 54 | 5f 43 4c 52 28 49 2c 4a |THEN DOT|_CLR(I,J|
|00002ef0| 2c 4f 46 46 29 0d 0a 20 | 20 20 20 20 20 20 20 20 |,OFF).. | |
|00002f00| 20 20 20 45 4c 53 45 20 | 49 46 20 4a 2d 31 20 49 | ELSE |IF J-1 I|
|00002f10| 4e 20 46 4f 4e 54 53 5b | 46 4f 4e 54 4e 4f 2c 49 |N FONTS[|FONTNO,I|
|00002f20| 5d 20 54 48 45 4e 20 44 | 4f 54 5f 53 45 54 28 49 |] THEN D|OT_SET(I|
|00002f30| 2c 4a 2c 4f 46 46 29 0d | 0a 20 20 20 20 20 20 20 |,J,OFF).|. |
|00002f40| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00002f50| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00002f60| 20 20 20 20 45 4c 53 45 | 20 44 4f 54 5f 43 4c 52 | ELSE| DOT_CLR|
|00002f70| 28 49 2c 4a 2c 4f 46 46 | 29 3b 0d 0a 20 20 20 20 |(I,J,OFF|);.. |
|00002f80| 20 20 20 20 44 4f 54 5f | 43 55 52 53 4f 52 28 43 | DOT_|CURSOR(C|
|00002f90| 55 52 52 4f 57 2c 43 55 | 52 43 4f 4c 2c 4f 4e 29 |URROW,CU|RCOL,ON)|
|00002fa0| 3b 20 45 4e 44 3b 0d 0a | 20 20 20 20 46 35 3a 20 |; END;..| F5: |
|00002fb0| 42 45 47 49 4e 20 7b 20 | 53 48 49 46 54 20 55 50 |BEGIN { |SHIFT UP|
|00002fc0| 20 7d 0d 0a 20 20 20 20 | 20 20 20 20 46 4f 52 20 | }.. | FOR |
|00002fd0| 49 3a 3d 31 20 54 4f 20 | 38 20 44 4f 20 46 4f 52 |I:=1 TO |8 DO FOR|
|00002fe0| 20 4a 3a 3d 42 49 54 31 | 20 54 4f 20 42 49 54 38 | J:=BIT1| TO BIT8|
|00002ff0| 20 44 4f 0d 0a 20 20 20 | 20 20 20 20 20 20 20 20 | DO.. | |
|00003000| 20 49 46 20 49 3d 38 20 | 54 48 45 4e 20 44 4f 54 | IF I=8 |THEN DOT|
|00003010| 5f 43 4c 52 28 49 2c 4a | 2c 4f 46 46 29 0d 0a 20 |_CLR(I,J|,OFF).. |
|00003020| 20 20 20 20 20 20 20 20 | 20 20 20 45 4c 53 45 20 | | ELSE |
|00003030| 49 46 20 4a 20 49 4e 20 | 46 4f 4e 54 53 5b 46 4f |IF J IN |FONTS[FO|
|00003040| 4e 54 4e 4f 2c 49 2b 31 | 5d 20 54 48 45 4e 20 44 |NTNO,I+1|] THEN D|
|00003050| 4f 54 5f 53 45 54 28 49 | 2c 4a 2c 4f 46 46 29 0d |OT_SET(I|,J,OFF).|
|00003060| 0a 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |. | |
|00003070| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00003080| 20 20 20 20 20 20 20 20 | 20 20 20 20 45 4c 53 45 | | ELSE|
|00003090| 20 44 4f 54 5f 43 4c 52 | 28 49 2c 4a 2c 4f 46 46 | DOT_CLR|(I,J,OFF|
|000030a0| 29 3b 0d 0a 20 20 20 20 | 20 20 20 20 44 4f 54 5f |);.. | DOT_|
|000030b0| 43 55 52 53 4f 52 28 43 | 55 52 52 4f 57 2c 43 55 |CURSOR(C|URROW,CU|
|000030c0| 52 43 4f 4c 2c 4f 4e 29 | 3b 20 45 4e 44 3b 0d 0a |RCOL,ON)|; END;..|
|000030d0| 20 20 20 20 46 36 3a 20 | 42 45 47 49 4e 20 7b 20 | F6: |BEGIN { |
|000030e0| 53 48 49 46 54 20 44 4f | 57 4e 20 7d 0d 0a 20 20 |SHIFT DO|WN }.. |
|000030f0| 20 20 20 20 20 20 46 4f | 52 20 49 3a 3d 38 20 44 | FO|R I:=8 D|
|00003100| 4f 57 4e 54 4f 20 31 20 | 44 4f 20 46 4f 52 20 4a |OWNTO 1 |DO FOR J|
|00003110| 3a 3d 42 49 54 31 20 54 | 4f 20 42 49 54 38 20 44 |:=BIT1 T|O BIT8 D|
|00003120| 4f 0d 0a 20 20 20 20 20 | 20 20 20 20 20 20 20 49 |O.. | I|
|00003130| 46 20 49 3d 31 20 54 48 | 45 4e 20 44 4f 54 5f 43 |F I=1 TH|EN DOT_C|
|00003140| 4c 52 28 49 2c 4a 2c 4f | 46 46 29 0d 0a 20 20 20 |LR(I,J,O|FF).. |
|00003150| 20 20 20 20 20 20 20 20 | 20 45 4c 53 45 20 49 46 | | ELSE IF|
|00003160| 20 4a 20 49 4e 20 46 4f | 4e 54 53 5b 46 4f 4e 54 | J IN FO|NTS[FONT|
|00003170| 4e 4f 2c 49 2d 31 5d 20 | 54 48 45 4e 20 44 4f 54 |NO,I-1] |THEN DOT|
|00003180| 5f 53 45 54 28 49 2c 4a | 2c 4f 46 46 29 0d 0a 20 |_SET(I,J|,OFF).. |
|00003190| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000031a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000031b0| 20 20 20 20 20 20 20 20 | 20 20 45 4c 53 45 20 44 | | ELSE D|
|000031c0| 4f 54 5f 43 4c 52 28 49 | 2c 4a 2c 4f 46 46 29 3b |OT_CLR(I|,J,OFF);|
|000031d0| 0d 0a 20 20 20 20 20 20 | 20 20 44 4f 54 5f 43 55 |.. | DOT_CU|
|000031e0| 52 53 4f 52 28 43 55 52 | 52 4f 57 2c 43 55 52 43 |RSOR(CUR|ROW,CURC|
|000031f0| 4f 4c 2c 4f 4e 29 3b 20 | 45 4e 44 3b 0d 0a 20 20 |OL,ON); |END;.. |
|00003200| 20 20 46 37 3a 20 42 45 | 47 49 4e 20 7b 20 43 4c | F7: BE|GIN { CL|
|00003210| 45 41 52 20 46 4f 4e 54 | 20 7d 0d 0a 20 20 20 20 |EAR FONT| }.. |
|00003220| 20 20 20 20 46 4f 52 20 | 49 3a 3d 31 20 54 4f 20 | FOR |I:=1 TO |
|00003230| 38 20 44 4f 20 46 4f 52 | 20 4a 3a 3d 42 49 54 31 |8 DO FOR| J:=BIT1|
|00003240| 20 54 4f 20 42 49 54 38 | 20 44 4f 20 44 4f 54 5f | TO BIT8| DO DOT_|
|00003250| 43 4c 52 28 49 2c 4a 2c | 4f 46 46 29 3b 0d 0a 20 |CLR(I,J,|OFF);.. |
|00003260| 20 20 20 20 20 20 20 43 | 55 52 52 4f 57 3a 3d 31 | C|URROW:=1|
|00003270| 3b 20 43 55 52 43 4f 4c | 3a 3d 30 3b 20 44 4f 54 |; CURCOL|:=0; DOT|
|00003280| 5f 43 55 52 53 4f 52 28 | 31 2c 30 2c 4f 4e 29 3b |_CURSOR(|1,0,ON);|
|00003290| 20 45 4e 44 3b 0d 0a 20 | 20 20 20 46 38 3a 20 42 | END;.. | F8: B|
|000032a0| 45 47 49 4e 20 7b 20 46 | 49 4c 4c 20 46 4f 4e 54 |EGIN { F|ILL FONT|
|000032b0| 20 7d 0d 0a 20 20 20 20 | 20 20 20 20 46 4f 52 20 | }.. | FOR |
|000032c0| 49 3a 3d 31 20 54 4f 20 | 38 20 44 4f 20 46 4f 52 |I:=1 TO |8 DO FOR|
|000032d0| 20 4a 3a 3d 42 49 54 31 | 20 54 4f 20 42 49 54 38 | J:=BIT1| TO BIT8|
|000032e0| 20 44 4f 20 44 4f 54 5f | 53 45 54 28 49 2c 4a 2c | DO DOT_|SET(I,J,|
|000032f0| 4f 46 46 29 3b 0d 0a 20 | 20 20 20 20 20 20 20 43 |OFF);.. | C|
|00003300| 55 52 52 4f 57 3a 3d 31 | 3b 20 43 55 52 43 4f 4c |URROW:=1|; CURCOL|
|00003310| 3a 3d 30 3b 20 44 4f 54 | 5f 43 55 52 53 4f 52 28 |:=0; DOT|_CURSOR(|
|00003320| 31 2c 30 2c 4f 4e 29 3b | 20 45 4e 44 3b 0d 0a 20 |1,0,ON);| END;.. |
|00003330| 20 20 20 46 39 3a 20 7b | 20 47 45 54 20 4e 45 57 | F9: {| GET NEW|
|00003340| 20 46 4f 4e 54 20 4e 55 | 4d 42 45 52 20 54 4f 20 | FONT NU|MBER TO |
|00003350| 44 49 53 50 4c 41 59 20 | 7d 0d 0a 20 20 20 20 20 |DISPLAY |}.. |
|00003360| 20 20 20 42 45 47 49 4e | 20 47 4f 54 4f 52 43 28 | BEGIN| GOTORC(|
|00003370| 46 4f 4e 54 4e 52 2c 46 | 4f 4e 54 4e 43 29 3b 20 |FONTNR,F|ONTNC); |
|00003380| 52 45 56 45 52 53 45 3b | 20 52 45 41 44 28 46 4f |REVERSE;| READ(FO|
|00003390| 4e 54 4e 4f 29 3b 0d 0a | 20 20 20 20 20 20 20 20 |NTNO);..| |
|000033a0| 44 49 53 50 4c 41 59 5f | 46 4f 4e 54 4e 4f 28 46 |DISPLAY_|FONTNO(F|
|000033b0| 4f 4e 54 4e 4f 29 3b 20 | 44 49 53 50 4c 41 59 5f |ONTNO); |DISPLAY_|
|000033c0| 46 4f 4e 54 28 46 4f 4e | 54 4e 4f 29 20 45 4e 44 |FONT(FON|TNO) END|
|000033d0| 3b 0d 0a 20 20 20 20 49 | 4e 53 3a 7b 20 4e 45 58 |;.. I|NS:{ NEX|
|000033e0| 54 20 46 4f 4e 54 20 7d | 0d 0a 20 20 20 20 20 20 |T FONT }|.. |
|000033f0| 20 20 42 45 47 49 4e 20 | 46 4f 4e 54 4e 4f 3a 3d | BEGIN |FONTNO:=|
|00003400| 28 46 4f 4e 54 4e 4f 2b | 31 29 4d 4f 44 20 32 35 |(FONTNO+|1)MOD 25|
|00003410| 36 3b 0d 0a 20 20 20 20 | 20 20 20 20 44 49 53 50 |6;.. | DISP|
|00003420| 4c 41 59 5f 46 4f 4e 54 | 4e 4f 28 46 4f 4e 54 4e |LAY_FONT|NO(FONTN|
|00003430| 4f 29 3b 20 44 49 53 50 | 4c 41 59 5f 46 4f 4e 54 |O); DISP|LAY_FONT|
|00003440| 28 46 4f 4e 54 4e 4f 29 | 20 45 4e 44 3b 0d 0a 20 |(FONTNO)| END;.. |
|00003450| 20 20 20 44 45 4c 3a 7b | 20 50 52 45 56 49 4f 55 | DEL:{| PREVIOU|
|00003460| 53 20 46 4f 4e 54 20 7d | 0d 0a 20 20 20 20 20 20 |S FONT }|.. |
|00003470| 20 20 42 45 47 49 4e 20 | 46 4f 4e 54 4e 4f 3a 3d | BEGIN |FONTNO:=|
|00003480| 28 46 4f 4e 54 4e 4f 2b | 32 35 35 29 20 4d 4f 44 |(FONTNO+|255) MOD|
|00003490| 20 32 35 36 3b 0d 0a 20 | 20 20 20 20 20 20 20 44 | 256;.. | D|
|000034a0| 49 53 50 4c 41 59 5f 46 | 4f 4e 54 4e 4f 28 46 4f |ISPLAY_F|ONTNO(FO|
|000034b0| 4e 54 4e 4f 29 3b 20 44 | 49 53 50 4c 41 59 5f 46 |NTNO); D|ISPLAY_F|
|000034c0| 4f 4e 54 28 46 4f 4e 54 | 4e 4f 29 20 45 4e 44 3b |ONT(FONT|NO) END;|
|000034d0| 0d 0a 20 20 20 20 46 31 | 30 3a 7b 20 4d 45 4e 55 |.. F1|0:{ MENU|
|000034e0| 53 20 7d 0d 0a 20 20 20 | 20 20 20 20 20 4d 45 4e |S }.. | MEN|
|000034f0| 55 53 3b 0d 0a 20 20 20 | 20 7b 20 43 55 52 53 4f |US;.. | { CURSO|
|00003500| 52 20 4d 4f 56 45 4d 45 | 4e 54 20 52 4f 55 54 49 |R MOVEME|NT ROUTI|
|00003510| 4e 45 53 20 7d 0d 0a 20 | 20 20 20 48 4f 4d 45 3a |NES }.. | HOME:|
|00003520| 20 42 45 47 49 4e 20 44 | 4f 54 5f 43 55 52 53 4f | BEGIN D|OT_CURSO|
|00003530| 52 28 43 55 52 52 4f 57 | 2c 43 55 52 43 4f 4c 2c |R(CURROW|,CURCOL,|
|00003540| 4f 46 46 29 3b 0d 0a 20 | 20 20 20 20 20 20 20 20 |OFF);.. | |
|00003550| 20 20 20 20 20 20 20 43 | 55 52 52 4f 57 3a 3d 28 | C|URROW:=(|
|00003560| 43 55 52 52 4f 57 2b 36 | 29 4d 4f 44 20 38 2b 31 |CURROW+6|)MOD 8+1|
|00003570| 3b 20 43 55 52 43 4f 4c | 3a 3d 28 43 55 52 43 4f |; CURCOL|:=(CURCO|
|00003580| 4c 2b 37 29 4d 4f 44 20 | 38 3b 0d 0a 20 20 20 20 |L+7)MOD |8;.. |
|00003590| 20 20 20 20 20 20 20 20 | 20 20 20 20 44 4f 54 5f | | DOT_|
|000035a0| 43 55 52 53 4f 52 28 43 | 55 52 52 4f 57 2c 43 55 |CURSOR(C|URROW,CU|
|000035b0| 52 43 4f 4c 2c 4f 4e 29 | 3b 20 45 4e 44 3b 0d 0a |RCOL,ON)|; END;..|
|000035c0| 20 20 20 20 55 50 3a 20 | 20 20 42 45 47 49 4e 20 | UP: | BEGIN |
|000035d0| 44 4f 54 5f 43 55 52 53 | 4f 52 28 43 55 52 52 4f |DOT_CURS|OR(CURRO|
|000035e0| 57 2c 43 55 52 43 4f 4c | 2c 4f 46 46 29 3b 0d 0a |W,CURCOL|,OFF);..|
|000035f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00003600| 43 55 52 52 4f 57 3a 3d | 28 43 55 52 52 4f 57 2b |CURROW:=|(CURROW+|
|00003610| 36 29 4d 4f 44 20 38 2b | 31 3b 0d 0a 20 20 20 20 |6)MOD 8+|1;.. |
|00003620| 20 20 20 20 20 20 20 20 | 20 20 20 20 44 4f 54 5f | | DOT_|
|00003630| 43 55 52 53 4f 52 28 43 | 55 52 52 4f 57 2c 43 55 |CURSOR(C|URROW,CU|
|00003640| 52 43 4f 4c 2c 4f 4e 29 | 3b 20 45 4e 44 3b 0d 0a |RCOL,ON)|; END;..|
|00003650| 20 20 20 20 50 47 55 50 | 3a 20 42 45 47 49 4e 20 | PGUP|: BEGIN |
|00003660| 44 4f 54 5f 43 55 52 53 | 4f 52 28 43 55 52 52 4f |DOT_CURS|OR(CURRO|
|00003670| 57 2c 43 55 52 43 4f 4c | 2c 4f 46 46 29 3b 0d 0a |W,CURCOL|,OFF);..|
|00003680| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00003690| 43 55 52 52 4f 57 3a 3d | 28 43 55 52 52 4f 57 2b |CURROW:=|(CURROW+|
|000036a0| 36 29 4d 4f 44 20 38 2b | 31 3b 20 43 55 52 43 4f |6)MOD 8+|1; CURCO|
|000036b0| 4c 3a 3d 28 43 55 52 43 | 4f 4c 2b 31 29 20 4d 4f |L:=(CURC|OL+1) MO|
|000036c0| 44 20 38 3b 0d 0a 20 20 | 20 20 20 20 20 20 20 20 |D 8;.. | |
|000036d0| 20 20 20 20 20 20 44 4f | 54 5f 43 55 52 53 4f 52 | DO|T_CURSOR|
|000036e0| 28 43 55 52 52 4f 57 2c | 43 55 52 43 4f 4c 2c 4f |(CURROW,|CURCOL,O|
|000036f0| 4e 29 3b 20 45 4e 44 3b | 0d 0a 20 20 20 20 4c 54 |N); END;|.. LT|
|00003700| 3a 20 20 20 42 45 47 49 | 4e 20 44 4f 54 5f 43 55 |: BEGI|N DOT_CU|
|00003710| 52 53 4f 52 28 43 55 52 | 52 4f 57 2c 43 55 52 43 |RSOR(CUR|ROW,CURC|
|00003720| 4f 4c 2c 4f 46 46 29 3b | 0d 0a 20 20 20 20 20 20 |OL,OFF);|.. |
|00003730| 20 20 20 20 20 20 20 20 | 20 20 43 55 52 43 4f 4c | | CURCOL|
|00003740| 3a 3d 28 43 55 52 43 4f | 4c 2b 37 29 4d 4f 44 20 |:=(CURCO|L+7)MOD |
|00003750| 38 3b 0d 0a 20 20 20 20 | 20 20 20 20 20 20 20 20 |8;.. | |
|00003760| 20 20 20 20 44 4f 54 5f | 43 55 52 53 4f 52 28 43 | DOT_|CURSOR(C|
|00003770| 55 52 52 4f 57 2c 43 55 | 52 43 4f 4c 2c 4f 4e 29 |URROW,CU|RCOL,ON)|
|00003780| 3b 20 45 4e 44 3b 0d 0a | 20 20 20 20 52 54 3a 20 |; END;..| RT: |
|00003790| 20 20 42 45 47 49 4e 20 | 44 4f 54 5f 43 55 52 53 | BEGIN |DOT_CURS|
|000037a0| 4f 52 28 43 55 52 52 4f | 57 2c 43 55 52 43 4f 4c |OR(CURRO|W,CURCOL|
|000037b0| 2c 4f 46 46 29 3b 0d 0a | 20 20 20 20 20 20 20 20 |,OFF);..| |
|000037c0| 20 20 20 20 20 20 20 20 | 43 55 52 43 4f 4c 3a 3d | |CURCOL:=|
|000037d0| 28 43 55 52 43 4f 4c 2b | 31 29 20 4d 4f 44 20 38 |(CURCOL+|1) MOD 8|
|000037e0| 3b 0d 0a 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |;.. | |
|000037f0| 20 20 20 44 4f 54 5f 43 | 55 52 53 4f 52 28 43 55 | DOT_C|URSOR(CU|
|00003800| 52 52 4f 57 2c 43 55 52 | 43 4f 4c 2c 4f 4e 29 3b |RROW,CUR|COL,ON);|
|00003810| 20 45 4e 44 3b 0d 0a 20 | 20 20 20 45 4e 3a 20 20 | END;.. | EN: |
|00003820| 20 42 45 47 49 4e 20 44 | 4f 54 5f 43 55 52 53 4f | BEGIN D|OT_CURSO|
|00003830| 52 28 43 55 52 52 4f 57 | 2c 43 55 52 43 4f 4c 2c |R(CURROW|,CURCOL,|
|00003840| 4f 46 46 29 3b 0d 0a 20 | 20 20 20 20 20 20 20 20 |OFF);.. | |
|00003850| 20 20 20 20 20 20 20 43 | 55 52 52 4f 57 3a 3d 43 | C|URROW:=C|
|00003860| 55 52 52 4f 57 20 4d 4f | 44 20 38 2b 31 3b 20 43 |URROW MO|D 8+1; C|
|00003870| 55 52 43 4f 4c 3a 3d 28 | 43 55 52 43 4f 4c 2b 37 |URCOL:=(|CURCOL+7|
|00003880| 29 4d 4f 44 20 38 3b 0d | 0a 20 20 20 20 20 20 20 |)MOD 8;.|. |
|00003890| 20 20 20 20 20 20 20 20 | 20 44 4f 54 5f 43 55 52 | | DOT_CUR|
|000038a0| 53 4f 52 28 43 55 52 52 | 4f 57 2c 43 55 52 43 4f |SOR(CURR|OW,CURCO|
|000038b0| 4c 2c 4f 4e 29 3b 20 45 | 4e 44 3b 0d 0a 20 20 20 |L,ON); E|ND;.. |
|000038c0| 20 44 4e 3a 20 20 20 42 | 45 47 49 4e 20 44 4f 54 | DN: B|EGIN DOT|
|000038d0| 5f 43 55 52 53 4f 52 28 | 43 55 52 52 4f 57 2c 43 |_CURSOR(|CURROW,C|
|000038e0| 55 52 43 4f 4c 2c 4f 46 | 46 29 3b 0d 0a 20 20 20 |URCOL,OF|F);.. |
|000038f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 43 55 52 | | CUR|
|00003900| 52 4f 57 3a 3d 43 55 52 | 52 4f 57 20 4d 4f 44 20 |ROW:=CUR|ROW MOD |
|00003910| 38 2b 31 3b 0d 0a 20 20 | 20 20 20 20 20 20 20 20 |8+1;.. | |
|00003920| 20 20 20 20 20 20 44 4f | 54 5f 43 55 52 53 4f 52 | DO|T_CURSOR|
|00003930| 28 43 55 52 52 4f 57 2c | 43 55 52 43 4f 4c 2c 4f |(CURROW,|CURCOL,O|
|00003940| 4e 29 3b 20 45 4e 44 3b | 0d 0a 20 20 20 20 50 47 |N); END;|.. PG|
|00003950| 44 4e 3a 20 42 45 47 49 | 4e 20 44 4f 54 5f 43 55 |DN: BEGI|N DOT_CU|
|00003960| 52 53 4f 52 28 43 55 52 | 52 4f 57 2c 43 55 52 43 |RSOR(CUR|ROW,CURC|
|00003970| 4f 4c 2c 4f 46 46 29 3b | 0d 0a 20 20 20 20 20 20 |OL,OFF);|.. |
|00003980| 20 20 20 20 20 20 20 20 | 20 20 43 55 52 52 4f 57 | | CURROW|
|00003990| 3a 3d 43 55 52 52 4f 57 | 20 4d 4f 44 20 38 2b 31 |:=CURROW| MOD 8+1|
|000039a0| 3b 20 43 55 52 43 4f 4c | 3a 3d 28 43 55 52 43 4f |; CURCOL|:=(CURCO|
|000039b0| 4c 2b 31 29 20 4d 4f 44 | 20 38 3b 0d 0a 20 20 20 |L+1) MOD| 8;.. |
|000039c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 44 4f 54 | | DOT|
|000039d0| 5f 43 55 52 53 4f 52 28 | 43 55 52 52 4f 57 2c 43 |_CURSOR(|CURROW,C|
|000039e0| 55 52 43 4f 4c 2c 4f 4e | 29 3b 20 45 4e 44 3b 0d |URCOL,ON|); END;.|
|000039f0| 0a 20 20 20 20 45 4e 44 | 3b 0d 0a 45 4e 44 3b 20 |. END|;..END; |
|00003a00| 7b 20 50 45 52 46 4f 52 | 4d 20 7d 0d 0a 0d 0a 50 |{ PERFOR|M }....P|
|00003a10| 52 4f 43 45 44 55 52 45 | 20 43 45 4e 54 45 52 5f |ROCEDURE| CENTER_|
|00003a20| 57 52 49 54 45 28 52 4f | 57 3a 49 4e 54 45 47 45 |WRITE(RO|W:INTEGE|
|00003a30| 52 3b 20 53 54 52 3a 42 | 49 47 53 54 52 29 3b 0d |R; STR:B|IGSTR);.|
|00003a40| 0a 56 41 52 20 43 4f 4c | 3a 49 4e 54 45 47 45 52 |.VAR COL|:INTEGER|
|00003a50| 3b 0d 0a 42 45 47 49 4e | 20 43 4f 4c 3a 3d 34 31 |;..BEGIN| COL:=41|
|00003a60| 2d 4c 45 4e 47 54 48 28 | 53 54 52 29 20 44 49 56 |-LENGTH(|STR) DIV|
|00003a70| 20 32 3b 20 47 4f 54 4f | 58 59 28 43 4f 4c 2c 52 | 2; GOTO|XY(COL,R|
|00003a80| 4f 57 29 3b 20 57 52 49 | 54 45 28 53 54 52 29 3b |OW); WRI|TE(STR);|
|00003a90| 20 45 4e 44 3b 0d 0a 0d | 0a 42 45 47 49 4e 20 20 | END;...|.BEGIN |
|00003aa0| 7b 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 20 |{*******|******* |
|00003ab0| 4d 41 49 4e 20 50 52 4f | 47 52 41 4d 20 2a 2a 2a |MAIN PRO|GRAM ***|
|00003ac0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00003ad0| 2a 7d 0d 0a 20 20 20 20 | 7b 20 53 49 47 4e 20 4f |*}.. |{ SIGN O|
|00003ae0| 4e 20 7d 0d 0a 20 20 20 | 20 43 4c 52 53 43 52 3b |N }.. | CLRSCR;|
|00003af0| 20 52 45 56 45 52 53 45 | 3b 0d 0a 20 20 20 20 43 | REVERSE|;.. C|
|00003b00| 45 4e 54 45 52 5f 57 52 | 49 54 45 28 38 2c 27 20 |ENTER_WR|ITE(8,' |
|00003b10| 43 20 52 20 45 20 41 20 | 54 20 45 20 20 20 46 20 |C R E A |T E F |
|00003b20| 4f 20 4e 20 54 20 53 20 | 27 29 3b 0d 0a 20 20 20 |O N T S |');.. |
|00003b30| 20 43 45 4e 54 45 52 5f | 57 52 49 54 45 28 31 30 | CENTER_|WRITE(10|
|00003b40| 2c 27 20 42 20 59 20 27 | 29 3b 0d 0a 20 20 20 20 |,' B Y '|);.. |
|00003b50| 43 45 4e 54 45 52 5f 57 | 52 49 54 45 28 31 32 2c |CENTER_W|RITE(12,|
|00003b60| 20 27 20 4c 20 2e 20 20 | 4a 20 2e 20 20 57 20 49 | ' L . |J . W I|
|00003b70| 20 4e 20 4b 20 4c 20 45 | 20 52 20 27 29 3b 0d 0a | N K L E| R ');..|
|00003b80| 20 20 20 20 43 45 4e 54 | 45 52 5f 57 52 49 54 45 | CENT|ER_WRITE|
|00003b90| 28 31 36 2c 27 20 43 4f | 50 59 52 49 47 48 54 20 |(16,' CO|PYRIGHT |
|00003ba0| 31 39 38 34 20 4c 41 57 | 52 45 4e 43 45 20 4a 2e |1984 LAW|RENCE J.|
|00003bb0| 20 57 49 4e 4b 4c 45 52 | 20 27 29 3b 0d 0a 20 20 | WINKLER| ');.. |
|00003bc0| 20 20 4e 4f 52 4d 41 4c | 3b 20 44 45 4c 41 59 28 | NORMAL|; DELAY(|
|00003bd0| 34 30 30 30 29 3b 20 43 | 4c 52 53 43 52 3b 0d 0a |4000); C|LRSCR;..|
|00003be0| 0d 0a 20 20 20 20 7b 20 | 49 4e 49 54 49 41 4c 49 |.. { |INITIALI|
|00003bf0| 5a 45 20 56 41 52 49 41 | 42 4c 45 53 20 7d 0d 0a |ZE VARIA|BLES }..|
|00003c00| 20 20 20 20 46 4f 52 20 | 46 4f 4e 54 4e 4f 3a 3d | FOR |FONTNO:=|
|00003c10| 30 20 54 4f 20 4d 41 58 | 46 4f 4e 54 20 44 4f 20 |0 TO MAX|FONT DO |
|00003c20| 46 4f 52 20 49 3a 3d 31 | 20 54 4f 20 38 20 44 4f |FOR I:=1| TO 8 DO|
|00003c30| 20 46 4f 4e 54 53 5b 46 | 4f 4e 54 4e 4f 2c 49 5d | FONTS[F|ONTNO,I]|
|00003c40| 3a 3d 5b 5d 3b 0d 0a 20 | 20 20 20 46 4f 4e 54 4e |:=[];.. | FONTN|
|00003c50| 4f 3a 3d 30 3b 20 43 55 | 52 52 4f 57 3a 3d 31 3b |O:=0; CU|RROW:=1;|
|00003c60| 20 43 55 52 43 4f 4c 3a | 3d 42 49 54 31 3b 20 51 | CURCOL:|=BIT1; Q|
|00003c70| 55 49 54 3a 3d 46 41 4c | 53 45 3b 0d 0a 20 20 20 |UIT:=FAL|SE;.. |
|00003c80| 20 46 49 4c 45 4e 41 4d | 45 31 3a 3d 27 27 3b 20 | FILENAM|E1:=''; |
|00003c90| 46 49 4c 45 4e 41 4d 45 | 32 3a 3d 27 27 3b 0d 0a |FILENAME|2:='';..|
|00003ca0| 20 20 20 20 4c 49 4e 45 | 32 35 3b 0d 0a 20 20 20 | LINE|25;.. |
|00003cb0| 20 44 49 53 50 4c 41 59 | 5f 42 4f 52 44 45 52 3b | DISPLAY|_BORDER;|
|00003cc0| 0d 0a 20 20 20 20 44 49 | 53 50 4c 41 59 5f 46 4f |.. DI|SPLAY_FO|
|00003cd0| 4e 54 4e 4f 28 46 4f 4e | 54 4e 4f 29 3b 20 44 49 |NTNO(FON|TNO); DI|
|00003ce0| 53 50 4c 41 59 5f 46 4f | 4e 54 28 46 4f 4e 54 4e |SPLAY_FO|NT(FONTN|
|00003cf0| 4f 29 3b 0d 0a 0d 0a 20 | 20 20 20 57 48 49 4c 45 |O);.... | WHILE|
|00003d00| 20 4e 4f 54 20 51 55 49 | 54 20 44 4f 0d 0a 20 20 | NOT QUI|T DO.. |
|00003d10| 20 20 20 20 20 20 20 20 | 49 46 20 4b 45 59 50 52 | |IF KEYPR|
|00003d20| 45 53 53 45 44 20 54 48 | 45 4e 20 42 45 47 49 4e |ESSED TH|EN BEGIN|
|00003d30| 0d 0a 20 20 20 20 20 20 | 20 20 20 20 20 20 20 4b |.. | K|
|00003d40| 45 59 3a 3d 47 45 54 4b | 45 59 28 43 48 58 2c 43 |EY:=GETK|EY(CHX,C|
|00003d50| 48 29 3b 0d 0a 20 20 20 | 20 20 20 20 20 20 20 20 |H);.. | |
|00003d60| 20 20 49 46 20 28 4b 45 | 59 20 3c 3e 20 4e 4f 4b | IF (KE|Y <> NOK|
|00003d70| 45 59 29 20 41 4e 44 20 | 28 4b 45 59 20 3c 3e 20 |EY) AND |(KEY <> |
|00003d80| 4e 4f 54 46 43 54 29 20 | 54 48 45 4e 20 50 45 52 |NOTFCT) |THEN PER|
|00003d90| 46 4f 52 4d 28 4b 45 59 | 29 3b 0d 0a 20 20 20 20 |FORM(KEY|);.. |
|00003da0| 20 20 20 20 20 20 20 20 | 20 45 4e 44 3b 0d 0a 0d | | END;...|
|00003db0| 0a 20 20 20 20 47 4f 54 | 4f 52 43 28 32 34 2c 31 |. GOT|ORC(24,1|
|00003dc0| 30 29 3b 20 57 52 49 54 | 45 4c 4e 28 27 20 43 20 |0); WRIT|ELN(' C |
|00003dd0| 52 20 45 20 41 20 54 20 | 45 20 20 20 46 20 4f 20 |R E A T |E F O |
|00003de0| 4e 20 54 20 53 20 20 20 | 54 45 52 4d 49 4e 41 54 |N T S |TERMINAT|
|00003df0| 49 4e 47 27 29 3b 0d 0a | 0d 0a 45 4e 44 2e 1a 00 |ING');..|..END...|
|00003e00| 0d 0a 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.. | |
|00003e10| 20 20 20 20 20 20 20 43 | 20 52 20 45 20 41 20 54 | C| R E A T|
|00003e20| 20 45 20 20 46 20 4f 20 | 4e 20 54 20 53 2c 20 56 | E F O |N T S, V|
|00003e30| 65 72 73 69 6f 6e 20 31 | 2e 30 0d 0a 20 20 20 20 |ersion 1|.0.. |
|00003e40| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00003e50| 20 20 20 20 20 20 20 20 | 20 20 20 42 20 59 0d 0a | | B Y..|
|00003e60| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00003e70| 20 20 20 20 20 20 20 20 | 20 20 4c 41 52 52 59 20 | | LARRY |
|00003e80| 57 49 4e 4b 4c 45 52 0d | 0a 0d 0a 0d 0a 20 20 20 |WINKLER.|..... |
|00003e90| 20 43 52 65 61 74 65 20 | 46 4f 4e 54 53 20 69 73 | CReate |FONTS is|
|00003ea0| 20 61 20 70 72 6f 67 72 | 61 6d 20 77 72 69 74 74 | a progr|am writt|
|00003eb0| 65 6e 20 69 6e 69 74 69 | 61 6c 6c 79 20 74 6f 20 |en initi|ally to |
|00003ec0| 74 65 73 74 20 42 4f 52 | 4c 41 4e 44 0d 0a 20 20 |test BOR|LAND.. |
|00003ed0| 20 20 49 4e 54 45 52 4e | 41 54 49 4f 4e 41 4c 27 | INTERN|ATIONAL'|
|00003ee0| 53 20 54 55 52 42 4f 20 | 50 61 73 63 61 6c 20 63 |S TURBO |Pascal c|
|00003ef0| 6f 6d 70 69 6c 65 72 20 | 6f 6e 20 61 20 75 73 65 |ompiler |on a use|
|00003f00| 66 75 6c 20 62 75 74 20 | 6d 6f 72 65 20 74 68 61 |ful but |more tha|
|00003f10| 6e 0d 0a 20 20 20 20 74 | 72 69 76 69 61 6c 20 70 |n.. t|rivial p|
|00003f20| 72 6f 67 72 61 6d 2e 0d | 0a 0d 0a 20 20 20 20 54 |rogram..|... T|
|00003f30| 68 65 20 50 43 2d 58 54 | 20 66 75 6e 63 74 69 6f |he PC-XT| functio|
|00003f40| 6e 20 6b 65 79 73 20 61 | 6e 64 20 63 75 72 73 6f |n keys a|nd curso|
|00003f50| 72 20 63 6f 6e 74 72 6f | 6c 20 6b 65 79 73 20 61 |r contro|l keys a|
|00003f60| 72 65 20 75 73 65 64 20 | 74 6f 20 63 6f 6e 74 72 |re used |to contr|
|00003f70| 6f 6c 0d 0a 20 20 20 20 | 74 68 65 20 65 78 65 63 |ol.. |the exec|
|00003f80| 75 74 69 6f 6e 20 6f 66 | 20 74 68 65 20 70 72 6f |ution of| the pro|
|00003f90| 67 72 61 6d 2e 0d 0a 0d | 0a 20 20 20 20 43 55 52 |gram....|. CUR|
|00003fa0| 53 4f 52 20 43 4f 4e 54 | 52 4f 4c 0d 0a 0d 0a 20 |SOR CONT|ROL.... |
|00003fb0| 20 20 20 48 4f 4d 45 3a | 20 4d 6f 76 65 20 66 6f | HOME:| Move fo|
|00003fc0| 6e 74 20 63 75 72 73 6f | 72 20 75 70 20 61 6e 64 |nt curso|r up and|
|00003fd0| 20 74 6f 20 74 68 65 20 | 6c 65 66 74 2e 0d 0a 20 | to the |left... |
|00003fe0| 20 20 20 50 47 55 50 3a | 20 4d 6f 76 65 20 66 6f | PGUP:| Move fo|
|00003ff0| 6e 74 20 63 75 72 73 6f | 72 20 75 70 20 61 6e 64 |nt curso|r up and|
|00004000| 20 74 6f 20 74 68 65 20 | 72 69 67 68 74 2e 0d 0a | to the |right...|
|00004010| 20 20 20 20 45 4e 44 20 | 3a 20 4d 6f 76 65 20 66 | END |: Move f|
|00004020| 6f 6e 74 20 63 75 72 73 | 6f 72 20 64 6f 77 6e 20 |ont curs|or down |
|00004030| 61 6e 64 20 74 6f 20 74 | 68 65 20 6c 65 66 74 2e |and to t|he left.|
|00004040| 0d 0a 20 20 20 20 50 47 | 44 4e 3a 20 4d 6f 76 65 |.. PG|DN: Move|
|00004050| 20 66 6f 6e 74 20 63 75 | 72 73 6f 72 20 64 6f 77 | font cu|rsor dow|
|00004060| 6e 20 61 6e 64 20 74 6f | 20 74 68 65 20 72 69 67 |n and to| the rig|
|00004070| 68 74 2e 0d 0a 0d 0a 20 | 20 20 20 41 52 52 4f 57 |ht..... | ARROW|
|00004080| 20 4b 45 59 53 3a 20 4d | 6f 76 65 20 66 6f 6e 74 | KEYS: M|ove font|
|00004090| 20 63 75 72 73 6f 72 20 | 69 6e 20 61 72 72 6f 77 | cursor |in arrow|
|000040a0| 27 73 20 72 65 73 70 65 | 63 74 69 76 65 20 64 69 |'s respe|ctive di|
|000040b0| 72 65 63 74 69 6f 6e 73 | 2e 0d 0a 0d 0a 0d 0a 20 |rections|....... |
|000040c0| 20 20 20 46 55 4e 43 54 | 49 4f 4e 20 4b 45 59 53 | FUNCT|ION KEYS|
|000040d0| 0d 0a 0d 0a 20 20 20 20 | 46 31 3a 20 28 54 4f 47 |.... |F1: (TOG|
|000040e0| 47 4c 45 29 20 54 6f 67 | 67 6c 65 20 74 68 65 20 |GLE) Tog|gle the |
|000040f0| 62 69 74 20 63 6f 72 72 | 65 73 70 6f 6e 64 69 6e |bit corr|espondin|
|00004100| 67 20 74 6f 20 74 68 65 | 20 66 6f 6e 74 20 63 75 |g to the| font cu|
|00004110| 72 73 6f 72 20 70 6f 73 | 69 74 69 6f 6e 2e 0d 0a |rsor pos|ition...|
|00004120| 20 20 20 20 46 32 3a 20 | 55 6e 75 73 65 64 2e 0d | F2: |Unused..|
|00004130| 0a 20 20 20 20 46 33 3a | 20 28 53 48 4c 54 29 20 |. F3:| (SHLT) |
|00004140| 53 68 69 66 74 20 74 68 | 65 20 62 69 74 73 20 6f |Shift th|e bits o|
|00004150| 66 20 74 68 65 20 63 75 | 72 72 65 6e 74 20 66 6f |f the cu|rrent fo|
|00004160| 6e 74 20 6c 65 66 74 2e | 0d 0a 20 20 20 20 46 34 |nt left.|.. F4|
|00004170| 3a 20 28 53 48 52 54 29 | 20 53 68 69 66 74 20 74 |: (SHRT)| Shift t|
|00004180| 68 65 20 62 69 74 73 20 | 6f 66 20 74 68 65 20 63 |he bits |of the c|
|00004190| 75 72 72 65 6e 74 20 66 | 6f 6e 74 20 72 69 67 68 |urrent f|ont righ|
|000041a0| 74 2e 0d 0a 20 20 20 20 | 46 35 3a 20 28 53 48 55 |t... |F5: (SHU|
|000041b0| 50 29 20 53 68 69 66 74 | 20 74 68 65 20 62 69 74 |P) Shift| the bit|
|000041c0| 73 20 6f 66 20 74 68 65 | 20 63 75 72 72 65 6e 74 |s of the| current|
|000041d0| 20 66 6f 6e 74 20 75 70 | 2e 0d 0a 20 20 20 20 46 | font up|... F|
|000041e0| 36 3a 20 28 53 48 44 4e | 29 20 53 68 69 66 74 20 |6: (SHDN|) Shift |
|000041f0| 74 68 65 20 62 69 74 73 | 20 6f 66 20 74 68 65 20 |the bits| of the |
|00004200| 63 75 72 72 65 6e 74 20 | 66 6f 6e 74 20 64 6f 77 |current |font dow|
|00004210| 6e 2e 0d 0a 20 20 20 20 | 46 37 3a 20 28 43 4c 52 |n... |F7: (CLR|
|00004220| 20 29 20 43 6c 65 61 72 | 20 61 6c 6c 20 74 68 65 | ) Clear| all the|
|00004230| 20 62 69 74 73 20 6f 66 | 20 74 68 65 20 63 75 72 | bits of| the cur|
|00004240| 72 65 6e 74 20 66 6f 6e | 74 20 74 6f 20 7a 65 72 |rent fon|t to zer|
|00004250| 6f 2e 0d 0a 20 20 20 20 | 46 38 3a 20 28 46 49 4c |o... |F8: (FIL|
|00004260| 4c 29 20 53 65 74 20 61 | 6c 6c 20 74 68 65 20 62 |L) Set a|ll the b|
|00004270| 69 74 73 20 6f 66 20 74 | 68 65 20 63 75 72 72 65 |its of t|he curre|
|00004280| 6e 74 20 66 6f 6e 74 20 | 74 6f 20 6f 6e 65 2e 0d |nt font |to one..|
|00004290| 0a 20 20 20 20 46 39 3a | 20 28 20 23 20 20 29 20 |. F9:| ( # ) |
|000042a0| 50 72 6f 6d 70 74 20 75 | 73 65 72 20 66 6f 72 20 |Prompt u|ser for |
|000042b0| 66 6f 6e 74 20 74 6f 20 | 64 69 73 70 6c 61 79 2e |font to |display.|
|000042c0| 0d 0a 20 20 20 20 46 31 | 30 20 28 4d 45 4e 55 29 |.. F1|0 (MENU)|
|000042d0| 20 50 72 6f 6d 70 74 20 | 74 68 65 20 75 73 65 72 | Prompt |the user|
|000042e0| 20 66 72 6f 6d 20 61 20 | 6d 65 6e 75 0d 0a 20 20 | from a |menu.. |
|000042f0| 20 20 49 4e 53 20 28 20 | 2b 31 20 29 20 47 6f 20 | INS ( |+1 ) Go |
|00004300| 74 6f 20 74 68 65 20 6e | 65 78 74 20 66 6f 6e 74 |to the n|ext font|
|00004310| 2e 20 43 68 61 72 61 63 | 74 65 72 20 30 20 66 6f |. Charac|ter 0 fo|
|00004320| 6c 6c 6f 77 73 20 32 35 | 35 2e 0d 0a 20 20 20 20 |llows 25|5... |
|00004330| 44 45 4c 20 28 20 2d 31 | 20 29 20 47 6f 20 74 6f |DEL ( -1| ) Go to|
|00004340| 20 74 68 65 20 70 72 65 | 76 69 6f 75 73 20 66 6f | the pre|vious fo|
|00004350| 6e 74 2e 20 20 43 68 61 | 72 61 63 74 65 72 20 32 |nt. Cha|racter 2|
|00004360| 35 35 20 66 6f 6c 6c 6f | 77 73 20 30 2e 0d 0a 0d |55 follo|ws 0....|
|00004370| 0a 0d 0a 20 20 20 20 4d | 45 4e 55 0d 0a 0d 0a 20 |... M|ENU.... |
|00004380| 20 20 20 31 2e 20 51 55 | 49 54 3a 20 51 75 65 72 | 1. QU|IT: Quer|
|00004390| 69 65 73 20 77 68 65 74 | 68 65 72 20 75 73 65 72 |ies whet|her user|
|000043a0| 20 69 73 20 73 75 72 65 | 2e 0d 0a 20 20 20 20 32 | is sure|... 2|
|000043b0| 2e 20 52 45 41 44 20 46 | 49 4c 45 3a 20 20 50 72 |. READ F|ILE: Pr|
|000043c0| 6f 6d 70 74 73 20 75 73 | 65 72 20 66 6f 72 20 74 |ompts us|er for t|
|000043d0| 68 65 20 6e 61 6d 65 20 | 6f 66 20 61 6e 20 69 6e |he name |of an in|
|000043e0| 70 75 74 20 66 69 6c 65 | 2c 20 77 68 69 63 68 20 |put file|, which |
|000043f0| 63 6f 6e 74 61 69 6e 73 | 0d 0a 20 20 20 20 20 20 |contains|.. |
|00004400| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 70 72 65 | | pre|
|00004410| 76 69 6f 75 73 6c 79 20 | 64 65 66 69 6e 65 64 20 |viously |defined |
|00004420| 66 6f 6e 74 73 2e 20 20 | 54 68 69 73 20 63 75 72 |fonts. |This cur|
|00004430| 72 65 6e 74 20 70 72 6f | 67 72 61 6d 20 76 65 72 |rent pro|gram ver|
|00004440| 73 69 6f 6e 0d 0a 20 20 | 20 20 20 20 20 20 20 20 |sion.. | |
|00004450| 20 20 20 20 20 20 20 20 | 20 66 69 6c 6c 73 20 74 | | fills t|
|00004460| 68 65 20 65 6e 74 69 72 | 65 20 66 6f 6e 74 20 61 |he entir|e font a|
|00004470| 72 72 61 79 3b 20 20 69 | 74 20 69 73 20 6e 6f 74 |rray; i|t is not|
|00004480| 20 70 6f 73 73 69 62 6c | 65 20 74 6f 20 72 65 61 | possibl|e to rea|
|00004490| 64 0d 0a 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |d.. | |
|000044a0| 20 20 20 20 20 20 69 6e | 74 6f 20 6f 6e 6c 79 20 | in|to only |
|000044b0| 73 65 6c 65 63 74 65 64 | 20 66 6f 6e 74 73 2e 20 |selected| fonts. |
|000044c0| 20 50 72 6f 67 72 61 6d | 20 63 68 65 63 6b 73 20 | Program| checks |
|000044d0| 66 6f 72 20 74 68 65 20 | 73 70 65 63 69 66 69 65 |for the |specifie|
|000044e0| 64 0d 0a 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |d.. | |
|000044f0| 20 20 20 20 20 20 66 69 | 6c 65 27 73 20 65 78 69 | fi|le's exi|
|00004500| 73 74 65 6e 63 65 2e 0d | 0a 20 20 20 20 33 2e 20 |stence..|. 3. |
|00004510| 57 52 49 54 45 20 46 49 | 4c 45 3a 20 54 68 65 20 |WRITE FI|LE: The |
|00004520| 64 65 66 61 75 6c 74 20 | 77 72 69 74 65 20 66 69 |default |write fi|
|00004530| 6c 65 20 69 73 20 74 68 | 65 20 70 72 65 76 69 6f |le is th|e previo|
|00004540| 75 73 6c 79 20 73 70 65 | 63 69 66 69 65 64 20 57 |usly spe|cified W|
|00004550| 52 49 54 45 0d 0a 20 20 | 20 20 20 20 20 20 20 20 |RITE.. | |
|00004560| 20 20 20 20 20 20 20 20 | 20 46 49 4c 45 20 6f 72 | | FILE or|
|00004570| 2c 20 69 66 20 6e 6f 20 | 73 75 63 68 20 70 72 65 |, if no |such pre|
|00004580| 76 69 6f 75 73 20 66 69 | 6c 65 2c 20 74 68 65 6e |vious fi|le, then|
|00004590| 20 74 68 65 20 52 45 41 | 44 20 46 49 4c 45 2e 0d | the REA|D FILE..|
|000045a0| 0a 20 20 20 20 34 2e 20 | 43 4f 50 59 3a 20 20 20 |. 4. |COPY: |
|000045b0| 20 20 20 20 54 68 65 20 | 43 4f 50 59 20 63 6f 6d | The |COPY com|
|000045c0| 6d 61 6e 64 20 61 73 6b | 73 20 69 6e 54 4f 20 77 |mand ask|s inTO w|
|000045d0| 68 69 63 68 20 66 6f 6e | 74 28 73 29 20 76 61 6c |hich fon|t(s) val|
|000045e0| 75 65 73 20 77 69 6c 6c | 20 62 65 0d 0a 20 20 20 |ues will| be.. |
|000045f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00004600| 70 6c 61 63 65 64 2c 20 | 46 52 4f 4d 20 77 68 65 |placed, |FROM whe|
|00004610| 72 65 20 74 68 65 20 76 | 61 6c 75 65 73 20 77 69 |re the v|alues wi|
|00004620| 6c 6c 20 62 65 20 74 72 | 61 6e 73 66 65 72 65 64 |ll be tr|ansfered|
|00004630| 2c 20 61 6e 64 20 74 68 | 65 0d 0a 20 20 20 20 20 |, and th|e.. |
|00004640| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 4e 55 | | NU|
|00004650| 4d 62 65 72 20 6f 66 20 | 66 6f 6e 74 73 20 74 6f |Mber of |fonts to|
|00004660| 20 74 72 61 6e 73 66 65 | 72 2e 20 20 44 65 66 61 | transfe|r. Defa|
|00004670| 75 6c 74 73 20 61 72 65 | 20 73 70 65 63 69 66 69 |ults are| specifi|
|00004680| 65 64 2e 20 20 54 68 65 | 0d 0a 20 20 20 20 20 20 |ed. The|.. |
|00004690| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 46 52 4f | | FRO|
|000046a0| 4d 20 70 72 6f 6d 70 74 | 20 65 78 70 65 63 74 73 |M prompt| expects|
|000046b0| 20 61 20 66 6f 6e 74 20 | 6e 75 6d 62 65 72 20 6f | a font |number o|
|000046c0| 72 20 74 68 65 20 77 6f | 72 64 20 27 52 4f 4d 27 |r the wo|rd 'ROM'|
|000046d0| 20 66 6f 6c 6c 6f 77 65 | 64 0d 0a 20 20 20 20 20 | followe|d.. |
|000046e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 62 79 | | by|
|000046f0| 20 61 20 66 6f 6e 74 20 | 6e 75 6d 62 65 72 2e 20 | a font |number. |
|00004700| 20 46 6f 72 20 65 78 61 | 6d 70 6c 65 2c 0d 0a 20 | For exa|mple,.. |
|00004710| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00004720| 20 20 20 20 20 20 20 46 | 52 4f 4d 3a 20 20 52 4f | F|ROM: RO|
|00004730| 4d 20 35 0d 0a 20 20 20 | 20 20 20 20 20 20 20 20 |M 5.. | |
|00004740| 20 20 20 20 20 20 20 20 | 69 6e 73 74 72 75 63 74 | |instruct|
|00004750| 73 20 74 68 65 20 70 72 | 6f 67 72 61 6d 20 74 6f |s the pr|ogram to|
|00004760| 20 74 61 6b 65 20 66 6f | 6e 74 20 76 61 6c 75 65 | take fo|nt value|
|00004770| 73 20 66 72 6f 6d 20 74 | 68 65 20 49 42 4d 2d 50 |s from t|he IBM-P|
|00004780| 43 0d 0a 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |C.. | |
|00004790| 20 20 20 20 20 20 52 4f | 4d 20 73 74 61 72 74 69 | RO|M starti|
|000047a0| 6e 67 20 61 74 20 63 68 | 61 72 61 63 74 65 72 20 |ng at ch|aracter |
|000047b0| 35 2e 20 20 54 68 65 20 | 70 72 6f 67 72 61 6d 20 |5. The |program |
|000047c0| 65 78 70 65 63 74 73 20 | 74 68 65 20 66 69 72 73 |expects |the firs|
|000047d0| 74 0d 0a 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |t.. | |
|000047e0| 20 20 20 20 20 20 31 32 | 38 20 67 72 61 70 68 69 | 12|8 graphi|
|000047f0| 63 73 20 63 68 61 72 61 | 63 74 65 72 73 20 74 6f |cs chara|cters to|
|00004800| 20 62 65 20 69 6e 20 61 | 20 74 61 62 6c 65 20 61 | be in a| table a|
|00004810| 74 20 6c 6f 63 61 74 69 | 6f 6e 0d 0a 20 20 20 20 |t locati|on.. |
|00004820| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 46 | | F|
|00004830| 30 30 30 3a 46 41 36 45 | 2e 20 20 55 6e 66 6f 72 |000:FA6E|. Unfor|
|00004840| 74 75 6e 61 74 65 6c 79 | 2c 20 49 42 4d 20 64 69 |tunately|, IBM di|
|00004850| 64 20 6e 6f 74 20 73 65 | 65 20 66 69 74 20 74 6f |d not se|e fit to|
|00004860| 20 67 69 76 65 20 75 73 | 0d 0a 20 20 20 20 20 20 | give us|.. |
|00004870| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 62 69 74 | | bit|
|00004880| 20 70 61 74 74 65 72 6e | 73 20 66 6f 72 20 74 68 | pattern|s for th|
|00004890| 65 20 75 70 70 65 72 20 | 31 32 38 20 63 68 61 72 |e upper |128 char|
|000048a0| 61 63 74 65 72 73 2c 20 | 73 6f 20 61 6e 20 61 74 |acters, |so an at|
|000048b0| 74 65 6d 70 74 0d 0a 20 | 20 20 20 20 20 20 20 20 |tempt.. | |
|000048c0| 20 20 20 20 20 20 20 20 | 20 20 74 6f 20 63 6f 70 | | to cop|
|000048d0| 79 20 63 68 61 72 61 63 | 74 65 72 73 20 31 32 38 |y charac|ters 128|
|000048e0| 20 74 6f 20 32 35 35 20 | 77 69 6c 6c 20 74 72 61 | to 255 |will tra|
|000048f0| 6e 73 66 65 72 20 67 61 | 72 62 61 67 65 20 69 6e |nsfer ga|rbage in|
|00004900| 74 6f 0d 0a 20 20 20 20 | 20 20 20 20 20 20 20 20 |to.. | |
|00004910| 20 20 20 20 20 20 20 74 | 68 65 20 70 72 6f 67 72 | t|he progr|
|00004920| 61 6d 2c 20 74 68 6f 75 | 67 68 20 6e 6f 20 68 61 |am, thou|gh no ha|
|00004930| 72 6d 20 77 69 6c 6c 20 | 62 65 20 64 6f 6e 65 2e |rm will |be done.|
|00004940| 1a 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004950| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004960| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004970| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+
