GRAPH.P

FILE INFORMATION

FILENAME(S): GRAPH.P

FILE TYPE(S): SEQ

FILE SIZE: 980b

FIRST SEEN: 2025-11-02 16:57:22

APPEARS ON: 2 disk(s)

FILE HASH

249b0f165f3803113159872201f24e8ff954baff4c949a5ac68bb5a042665b63

FOUND ON DISKS (2 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
TURBO PASCAL	GRAPH.P	SEQ	Treasure Chest - Romfreak	12	4	DOWNLOAD FILE
M NADENS 64 DISK	GRAPH.P	SEQ	hedning, pewp	10	10	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

00000000: 70 72 6F 63 65 64 75 72  65 20 74 65 78 74 6D 6F  |procedure textmo|
00000010: 64 65 3B 20 65 78 74 65  72 6E 61 6C 20 24 39 30  |de; external $90|
00000020: 31 66 3B 0D 70 72 6F 63  65 64 75 72 65 20 67 72  |1f;.procedure gr|
00000030: 61 70 68 6D 6F 64 65 3B  20 65 78 74 65 72 6E 61  |aphmode; externa|
00000040: 6C 20 24 39 30 31 30 3B  0D 70 72 6F 63 65 64 75  |l $9010;.procedu|
00000050: 72 65 20 70 6C 6F 74 20  28 78 2C 79 2C 63 3A 69  |re plot (x,y,c:i|
00000060: 6E 74 65 67 65 72 29 3B  20 65 78 74 65 72 6E 61  |nteger); externa|
00000070: 6C 20 24 39 30 31 43 3B  0D 70 72 6F 63 65 64 75  |l $901C;.procedu|
00000080: 72 65 20 67 72 61 70 68  62 61 63 6B 67 72 6F 75  |re graphbackgrou|
00000090: 6E 64 20 28 63 3A 69 6E  74 65 67 65 72 29 3B 20  |nd (c:integer); |
000000A0: 65 78 74 65 72 6E 61 6C  20 24 39 30 31 39 3B 0D  |external $9019;.|
000000B0: 70 72 6F 63 65 64 75 72  65 20 74 65 78 74 63 6F  |procedure textco|
000000C0: 6C 6F 72 20 28 63 3A 69  6E 74 65 67 65 72 29 3B  |lor (c:integer);|
000000D0: 20 65 78 74 65 72 6E 61  6C 20 24 39 30 31 36 3B  | external $9016;|
000000E0: 0D 70 72 6F 63 65 64 75  72 65 20 74 65 78 74 62  |.procedure textb|
000000F0: 61 63 6B 67 72 6F 75 6E  64 20 28 63 3A 69 6E 74  |ackground (c:int|
00000100: 65 67 65 72 29 3B 20 65  78 74 65 72 6E 61 6C 20  |eger); external |
00000110: 24 39 30 32 32 3B 0D 66  75 6E 63 74 69 6F 6E 20  |$9022;.function |
00000120: 77 68 65 72 65 78 3A 69  6E 74 65 67 65 72 3B 20  |wherex:integer; |
00000130: 65 78 74 65 72 6E 61 6C  20 24 39 30 32 35 3B 0D  |external $9025;.|
00000140: 66 75 6E 63 74 69 6F 6E  20 77 68 65 72 65 79 3A  |function wherey:|
00000150: 69 6E 74 65 67 65 72 3B  20 65 78 74 65 72 6E 61  |integer; externa|
00000160: 6C 20 24 39 30 32 38 3B  0D 70 72 6F 63 65 64 75  |l $9028;.procedu|
00000170: 72 65 20 64 72 61 77 20  28 78 2C 79 2C 78 31 2C  |re draw (x,y,x1,|
00000180: 79 31 2C 63 3A 69 6E 74  65 67 65 72 29 3B 20 65  |y1,c:integer); e|
00000190: 78 74 65 72 6E 61 6C 20  24 39 30 32 65 3B 0D 70  |xternal $902e;.p|
000001A0: 72 6F 63 65 64 75 72 65  20 63 69 72 63 6C 65 20  |rocedure circle |
000001B0: 28 78 2C 79 2C 72 2C 63  3A 69 6E 74 65 67 65 72  |(x,y,r,c:integer|
000001C0: 29 3B 20 65 78 74 65 72  6E 61 6C 20 24 39 30 31  |); external $901|
000001D0: 33 3B 0D 70 72 6F 63 65  64 75 72 65 20 66 69 6C  |3;.procedure fil|
000001E0: 6C 73 63 72 65 65 6E 20  28 63 3A 69 6E 74 65 67  |lscreen (c:integ|
000001F0: 65 72 29 3B 20 65 78 74  65 72 6E 61 6C 20 24 39  |er); external $9|
00000200: 30 34 63 3B 0D 70 72 6F  63 65 64 75 72 65 20 67  |04c;.procedure g|
00000210: 6F 74 6F 78 79 28 78 2C  79 3A 69 6E 74 65 67 65  |otoxy(x,y:intege|
00000220: 72 29 3B 20 65 78 74 65  72 6E 61 6C 20 24 39 30  |r); external $90|
00000230: 32 62 3B 0D 70 72 6F 63  65 64 75 72 65 20 63 6C  |2b;.procedure cl|
00000240: 72 73 63 72 3B 20 65 78  74 65 72 6E 61 6C 20 24  |rscr; external $|
00000250: 39 30 33 31 3B 0D 70 72  6F 63 65 64 75 72 65 20  |9031;.procedure |
00000260: 73 6F 75 6E 64 20 28 66  3A 69 6E 74 65 67 65 72  |sound (f:integer|
00000270: 29 3B 20 65 78 74 65 72  6E 61 6C 20 24 39 30 33  |); external $903|
00000280: 61 3B 0D 70 72 6F 63 65  64 75 72 65 20 6E 6F 73  |a;.procedure nos|
00000290: 6F 75 6E 64 3B 20 65 78  74 65 72 6E 61 6C 20 24  |ound; external $|
000002A0: 39 30 33 64 3B 0D 66 75  6E 63 74 69 6F 6E 20 68  |903d;.function h|
000002B0: 69 28 63 3A 69 6E 74 65  67 65 72 29 3A 69 6E 74  |i(c:integer):int|
000002C0: 65 67 65 72 3B 20 65 78  74 65 72 6E 61 6C 20 24  |eger; external $|
000002D0: 39 30 34 30 3B 0D 66 75  6E 63 74 69 6F 6E 20 6C  |9040;.function l|
000002E0: 6F 28 63 3A 69 6E 74 65  67 65 72 29 3A 69 6E 74  |o(c:integer):int|
000002F0: 65 67 65 72 3B 20 65 78  74 65 72 6E 61 6C 20 24  |eger; external $|
00000300: 39 30 34 33 3B 0D 66 75  6E 63 74 69 6F 6E 20 73  |9043;.function s|
00000310: 77 61 70 28 63 3A 69 6E  74 65 67 65 72 29 3A 69  |wap(c:integer):i|
00000320: 6E 74 65 67 65 72 3B 20  65 78 74 65 72 6E 61 6C  |nteger; external|
00000330: 20 24 39 30 34 36 3B 0D  66 75 6E 63 74 69 6F 6E  | $9046;.function|
00000340: 20 6B 65 79 70 72 65 73  73 65 64 3A 62 6F 6F 6C  | keypressed:bool|
00000350: 65 61 6E 3B 20 65 78 74  65 72 6E 61 6C 20 24 39  |ean; external $9|
00000360: 30 34 39 3B 0D 70 72 6F  63 65 64 75 72 65 20 66  |049;.procedure f|
00000370: 69 6C 6C 73 68 61 70 65  28 78 2C 79 2C 63 3A 69  |illshape(x,y,c:i|
00000380: 6E 74 65 67 65 72 29 3B  20 65 78 74 65 72 6E 61  |nteger); externa|
00000390: 6C 20 24 39 30 33 37 3B  0D 66 75 6E 63 74 69 6F  |l $9037;.functio|
000003A0: 6E 20 67 65 74 64 6F 74  63 6F 6C 6F 72 28 78 2C  |n getdotcolor(x,|
000003B0: 79 3A 69 6E 74 65 67 65  72 29 3A 69 6E 74 65 67  |y:integer):integ|
000003C0: 65 72 3B 20 65 78 74 65  72 6E 61 6C 20 24 39 30  |er; external $90|
000003D0: 33 34 3B 0D                                       |34;.            |

PROCEDURE TEXTMODE; EXTERNAL $901F;.PROC
EDURE GRAPHMODE; EXTERNAL $9010;.PROCEDU
RE PLOT (X,Y,C:INTEGER); EXTERNAL $901C;
.PROCEDURE GRAPHBACKGROUND (C:INTEGER); 
EXTERNAL $9019;.PROCEDURE TEXTCOLOR (C:I
NTEGER); EXTERNAL $9016;.PROCEDURE TEXTB
ACKGROUND (C:INTEGER); EXTERNAL $9022;.F
UNCTION WHEREX:INTEGER; EXTERNAL $9025;.
FUNCTION WHEREY:INTEGER; EXTERNAL $9028;
.PROCEDURE DRAW (X,Y,X1,Y1,C:INTEGER); E
XTERNAL $902E;.PROCEDURE CIRCLE (X,Y,R,C
:INTEGER); EXTERNAL $9013;.PROCEDURE FIL
LSCREEN (C:INTEGER); EXTERNAL $904C;.PRO
CEDURE GOTOXY(X,Y:INTEGER); EXTERNAL $90
2B;.PROCEDURE CLRSCR; EXTERNAL $9031;.PR
OCEDURE SOUND (F:INTEGER); EXTERNAL $903
A;.PROCEDURE NOSOUND; EXTERNAL $903D;.FU
NCTION HI(C:INTEGER):INTEGER; EXTERNAL $
9040;.FUNCTION LO(C:INTEGER):INTEGER; EX
TERNAL $9043;.FUNCTION SWAP(C:INTEGER):I
NTEGER; EXTERNAL $9046;.FUNCTION KEYPRES
SED:BOOLEAN; EXTERNAL $9049;.PROCEDURE F
ILLSHAPE(X,Y,C:INTEGER); EXTERNAL $9037;
.FUNCTION GETDOTCOLOR(X,Y:INTEGER):INTEG
ER; EXTERNAL $9034;.

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL