00000000: 84 87 97 0D 97 54 59 50 45 44 45 46 20 49 4E 54 |.....TYPEDEF INT|
00000010: 20 46 49 4C 45 3B 0D 97 0D 81 45 58 54 45 52 4E | FILE;....EXTERN|
00000020: 20 56 4F 49 44 20 45 52 52 4F 4E 28 29 2C 45 52 | VOID ERRON(),ER|
00000030: 52 4F 46 46 28 29 2C 4E 4D 49 4F 4E 28 29 2C 4E |ROFF(),NMION(),N|
00000040: 4D 49 4F 46 46 3B 0D 81 45 58 54 45 52 4E 20 56 |MIOFF;..EXTERN V|
00000050: 4F 49 44 20 45 52 52 4F 52 28 29 2C 45 58 49 54 |OID ERROR(),EXIT|
00000060: 28 29 2C 4D 4F 56 45 28 29 2C 43 55 52 53 4F 52 |(),MOVE(),CURSOR|
00000070: 28 29 3B 0D 81 45 58 54 45 52 4E 20 56 4F 49 44 |();..EXTERN VOID|
00000080: 20 53 54 52 43 50 59 28 29 2C 53 54 52 43 41 54 | STRCPY(),STRCAT|
00000090: 28 29 2C 46 52 45 45 28 29 3B 0D 81 45 58 54 45 |(),FREE();..EXTE|
000000A0: 52 4E 20 49 4E 54 20 20 51 45 52 52 4F 52 28 29 |RN INT QERROR()|
000000B0: 2C 50 55 54 43 28 29 2C 50 55 54 53 28 29 2C 47 |,PUTC(),PUTS(),G|
000000C0: 45 54 53 28 29 2C 50 55 54 46 28 29 3B 0D 81 45 |ETS(),PUTF();..E|
000000D0: 58 54 45 52 4E 20 49 4E 54 20 20 47 45 54 46 28 |XTERN INT GETF(|
000000E0: 29 2C 53 54 52 4C 45 4E 28 29 2C 53 54 52 43 4D |),STRLEN(),STRCM|
000000F0: 50 28 29 3B 0D 81 45 58 54 45 52 4E 20 43 48 41 |P();..EXTERN CHA|
00000100: 52 20 47 45 54 43 28 29 2C 2A 41 4C 4C 4F 43 28 |R GETC(),*ALLOC(|
00000110: 29 3B 0D 81 45 58 54 45 52 4E 20 46 49 4C 45 20 |);..EXTERN FILE |
00000120: 4F 50 45 4E 28 29 2C 43 4C 4F 53 45 28 29 3B 0D |OPEN(),CLOSE();.|
00000130: 81 0D 81 45 58 54 45 52 4E 20 56 4F 49 44 20 50 |...EXTERN VOID P|
00000140: 52 49 4E 54 46 28 29 2C 53 50 52 49 4E 54 46 28 |RINTF(),SPRINTF(|
00000150: 29 2C 46 50 52 49 4E 54 46 28 29 3B 0D 81 45 58 |),FPRINTF();..EX|
00000160: 54 45 52 4E 20 49 4E 54 20 20 53 43 41 4E 46 28 |TERN INT SCANF(|
00000170: 29 2C 53 53 43 41 4E 46 28 29 2C 46 53 43 41 4E |),SSCANF(),FSCAN|
00000180: 46 28 29 3B 0D 81 0D 1F 23 44 45 46 49 4E 45 20 |F();....#DEFINE |
00000190: D3 D4 C4 C9 CF 20 20 20 20 20 30 0D 1F 23 44 45 |..... 0..#DE|
000001A0: 46 49 4E 45 20 CE D5 CC CC 20 20 20 20 20 20 27 |FINE .... '|
000001B0: 5C 30 27 0D 1F 23 44 45 46 49 4E 45 20 C3 D2 20 |\0'..#DEFINE .. |
000001C0: 20 20 20 20 20 20 20 27 5C 4E 27 0D 1F 23 44 45 | '\N'..#DE|
000001D0: 46 49 4E 45 20 C3 D2 D3 D5 D0 20 20 20 20 20 27 |FINE ..... '|
000001E0: 5C 32 32 31 27 0D 1F 23 44 45 46 49 4E 45 20 C3 |\221'..#DEFINE .|
000001F0: D2 D3 C4 CF D7 CE 20 20 20 27 5C 32 31 27 0D 1F |...... '\21'..|
00000200: 23 44 45 46 49 4E 45 20 C3 D2 D3 D2 C9 C7 C8 D4 |#DEFINE ........|
00000210: 20 20 27 5C 33 35 27 0D 1F 23 44 45 46 49 4E 45 | '\35'..#DEFINE|
00000220: 20 C3 D2 D3 CC C5 C6 D4 20 20 20 27 5C 32 33 35 | ....... '\235|
00000230: 27 0D 1F 23 44 45 46 49 4E 45 20 C8 CF CD C5 20 |'..#DEFINE .... |
00000240: 20 20 20 20 20 27 5C 32 33 27 0D 1F 23 44 45 46 | '\23'..#DEF|
00000250: 49 4E 45 20 C3 CC D2 20 20 20 20 20 20 20 27 5C |INE ... '\|
00000260: 32 32 33 27 0D 1F 23 44 45 46 49 4E 45 20 D2 C5 |223'..#DEFINE ..|
00000270: D6 C5 D2 D3 CF CE 20 20 27 5C 32 32 27 0D 1F 23 |...... '\22'..#|
00000280: 44 45 46 49 4E 45 20 D2 C5 D6 C5 D2 D3 CF C6 C6 |DEFINE .........|
00000290: 20 27 5C 32 32 32 27 0D 1F 23 44 45 46 49 4E 45 | '\222'..#DEFINE|
000002A0: 20 CE C9 CC 20 20 20 20 20 20 20 30 0D 1F 23 44 | ... 0..#D|
000002B0: 45 46 49 4E 45 20 C5 CD D0 D4 D9 20 20 20 20 20 |EFINE ..... |
000002C0: 22 22 0D 1F 23 44 45 46 49 4E 45 20 CD C1 D8 C9 |""..#DEFINE ....|
000002D0: CE D4 20 20 20 20 33 32 37 36 37 0D 1F 23 44 45 |.. 32767..#DE|
000002E0: 46 49 4E 45 20 CD C1 D8 CC CF CE C7 20 20 20 32 |FINE ....... 2|
000002F0: 31 34 37 34 38 33 36 34 37 0D 1F 0D 1F 23 44 45 |147483647....#DE|
00000300: 46 49 4E 45 20 C5 CF C9 20 20 20 20 20 20 20 28 |FINE ... (|
00000310: 2A 28 43 48 41 52 20 2A 29 30 58 39 30 20 26 20 |*(CHAR *)0X90 & |
00000320: 30 58 34 30 29 0D 1F 0D 1F 23 44 45 46 49 4E 45 |0X40)....#DEFINE|
00000330: 20 50 55 54 43 48 41 52 28 D8 30 29 20 50 55 54 | PUTCHAR(.0) PUT|
00000340: 43 28 D8 30 2C D3 D4 C4 C9 CF 29 0D 1F 23 44 45 |C(.0,.....)..#DE|
00000350: 46 49 4E 45 20 47 45 54 43 48 41 52 28 29 20 20 |FINE GETCHAR() |
00000360: 20 49 4E 4B 45 59 28 D3 D4 C4 C9 CF 29 0D 1F 23 | INKEY(.....)..#|
00000370: 44 45 46 49 4E 45 20 C3 CD CF D6 C5 28 D8 31 2C |DEFINE .....(.1,|
00000380: D8 32 2C D8 33 29 20 4D 4F 56 45 28 D8 31 2C D8 |.2,.3) MOVE(.1,.|
00000390: 32 2C D8 33 2C 30 58 33 35 29 0D 1F 0D 1F 0D 97 |2,.3,0X35)......|
000003A0: 0D 97 43 48 41 52 20 28 2A 53 43 52 45 45 4E 29 |..CHAR (*SCREEN)|
000003B0: 5B 34 30 5D 20 3D 20 30 58 45 30 30 30 3B 0D 97 |[40] = 0XE000;..|
000003C0: 43 48 41 52 20 28 2A 43 4F 4C 4F 52 20 29 5B 34 |CHAR (*COLOR )[4|
000003D0: 30 5D 20 3D 20 30 58 44 38 30 30 3B 0D 97 43 48 |0] = 0XD800;..CH|
000003E0: 41 52 20 28 2A 43 48 41 52 52 41 4D 31 29 5B 38 |AR (*CHARRAM1)[8|
000003F0: 5D 3D 20 30 58 44 30 30 30 3B 0D 97 43 48 41 52 |]= 0XD000;..CHAR|
00000400: 20 28 2A 43 48 41 52 52 41 4D 32 29 5B 38 5D 3D | (*CHARRAM2)[8]=|
00000410: 20 30 58 44 38 6F FF FF FB 34 FB 2E FF FF FF FF | 0XD8o...4......|
00000420: FF D2 FF D6 FF FF FF FF FF FF FA 26 FF D2 FF FF |...........&....|
00000430: FF FF FF FF FB 35 B7 FF FF FF FF FF FF FF FF FF |.....5..........|
00000440: FB 35 FF FF FF FF FF D2 FF FF FF FF FF FF D4 FF |.5..............|
00000450: FF FF FF FF FF FF FF FF FF FF FF FF FB 35 FF FF |.............5..|
00000460: FF FF FF FF EE FF DD FF FF FF FB 35 BA FB 34 FA |...........5..4.|
00000470: FF |. |
.....TYPEDEF INT FILE;....EXTERN VOID ER
RON(),ERROFF(),NMION(),NMIOFF;..EXTERN V
OID ERROR(),EXIT(),MOVE(),CURSOR();..EXT
ERN VOID STRCPY(),STRCAT(),FREE();..EXTE
RN INT QERROR(),PUTC(),PUTS(),GETS(),PU
TF();..EXTERN INT GETF(),STRLEN(),STRCM
P();..EXTERN CHAR GETC(),*ALLOC();..EXTE
RN FILE OPEN(),CLOSE();....EXTERN VOID P
RINTF(),SPRINTF(),FPRINTF();..EXTERN INT
SCANF(),SSCANF(),FSCANF();....#DEFINE
STDIO 0..#DEFINE NULL '\0'..#DE
FINE CR '\N'..#DEFINE CRSUP '
\221'..#DEFINE CRSDOWN '\21'..#DEFINE
CRSRIGHT '\35'..#DEFINE CRSLEFT '\235
'..#DEFINE HOME '\23'..#DEFINE CLR
'\223'..#DEFINE REVERSON '\22'..#
DEFINE REVERSOFF '\222'..#DEFINE NIL
0..#DEFINE EMPTY ""..#DEFINE MAXI
NT 32767..#DEFINE MAXLONG 214748364
7....#DEFINE EOI (*(CHAR *)0X90 &
0X40)....#DEFINE PUTCHAR(X0) PUTC(X0,STD
IO)..#DEFINE GETCHAR() INKEY(STDIO)..#
DEFINE CMOVE(X1,X2,X3) MOVE(X1,X2,X3,0X3
5)........CHAR (*SCREEN)[40] = 0XE000;..
CHAR (*COLOR )[40] = 0XD800;..CHAR (*CHA
RRAM1)[8]= 0XD000;..CHAR (*CHARRAM2)[8]=
0XD8O...4.......R.V.......&.R.......5..
.........5.....R......T..............5..
...........5..4..
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL