PLOT'PROZEDUREN.
FILE INFORMATION
FILENAME(S): PLOT'PROZEDUREN.
FILE TYPE(S): SEQ
FILE SIZE: 875b
FIRST SEEN: 2025-11-30 01:08:01
APPEARS ON: 6 disk(s)
FILE HASH
151fe3f89e44274ff16999b4f36a0c9b6274b3cb3c8504332f1262e39b1ea861
FOUND ON DISKS (6 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| C OMAL | PLOT'PROZEDUREN. | SEQ | Treasure Chest - Wolfgang Rauprich | 6 | 12 | DOWNLOAD FILE |
| FREEWARE DISK NR | PLOT'PROZEDUREN. | SEQ | Treasure Chest - Wolfgang Rauprich | 6 | 12 | DOWNLOAD FILE |
| COMAL 0 14 | PLOT'PROZEDUREN. | SEQ | Treasure Chest - Wolfgang Rauprich | 30 | 8 | DOWNLOAD FILE |
| C OMAL 0 14 | PLOT'PROZEDUREN. | SEQ | Treasure Chest - Wolfgang Rauprich | 30 | 8 | DOWNLOAD FILE |
| C OMAL | PLOT'PROZEDUREN. | SEQ | Treasure Chest - Wolfgang Rauprich | 6 | 12 | DOWNLOAD FILE |
| FREESOFT DISK NR | PLOT'PROZEDUREN. | SEQ | Treasure Chest - Wolfgang Rauprich | 6 | 12 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 31 30 30 30 20 2F 2F 20 D0 52 4F 5A 45 44 55 52 |1000 // .ROZEDUR| 00000010: 45 4E 20 5A 55 4D 20 D0 4C 4F 54 54 45 4E 0D 31 |EN ZUM .LOTTEN.1| 00000020: 30 31 30 20 2F 2F 0D 31 30 32 30 20 50 52 4F 43 |010 //.1020 PROC| 00000030: 20 49 4E 49 54 28 41 2C 42 2C 43 2C 44 29 20 0D | INIT(A,B,C,D) .| 00000040: 31 30 33 30 20 58 31 3A 3D 41 3B 20 58 32 3A 3D |1030 X1:=A; X2:=| 00000050: 42 20 2F 2F 20 CD 41 53 53 54 41 42 20 58 0D 31 |B // .ASSTAB X.1| 00000060: 30 34 30 20 59 31 3A 3D 43 3B 20 59 32 3A 3D 44 |040 Y1:=C; Y2:=D| 00000070: 20 2F 2F 20 4D 41 53 53 54 41 42 20 59 0D 31 30 | // MASSTAB Y.10| 00000080: 35 30 20 58 27 46 41 4B 54 4F 52 3A 3D 33 32 30 |50 X'FAKTOR:=320| 00000090: 2F 28 58 32 2D 58 31 29 3B 20 59 27 46 41 4B 54 |/(X2-X1); Y'FAKT| 000000A0: 4F 52 3A 3D 32 30 30 2F 28 59 32 2D 59 31 29 0D |OR:=200/(Y2-Y1).| 000000B0: 31 30 36 30 20 42 41 43 4B 47 52 4F 55 4E 44 20 |1060 BACKGROUND | 000000C0: 28 31 35 29 0D 31 30 37 30 20 42 4F 52 44 45 52 |(15).1070 BORDER| 000000D0: 20 28 31 35 29 0D 31 30 38 30 20 50 45 4E 43 4F | (15).1080 PENCO| 000000E0: 4C 4F 52 20 28 30 29 0D 31 30 39 30 20 53 45 54 |LOR (0).1090 SET| 000000F0: 47 52 41 50 48 49 43 20 30 0D 31 31 30 30 20 48 |GRAPHIC 0.1100 H| 00000100: 49 44 45 54 55 52 54 4C 45 20 0D 31 31 31 30 20 |IDETURTLE .1110 | 00000110: 45 4E 44 50 52 4F 43 20 49 4E 49 54 0D 31 31 32 |ENDPROC INIT.112| 00000120: 30 20 50 52 4F 43 20 5A 45 49 43 48 4E 45 28 58 |0 PROC ZEICHNE(X| 00000130: 2C 59 2C 46 4C 41 47 29 20 0D 31 31 33 30 20 58 |,Y,FLAG) .1130 X| 00000140: 27 3A 3D 28 58 2D 58 31 29 2A 58 27 46 41 4B 54 |':=(X-X1)*X'FAKT| 00000150: 4F 52 3B 20 59 27 3A 3D 28 59 2D 59 31 29 2A 59 |OR; Y':=(Y-Y1)*Y| 00000160: 27 46 41 4B 54 4F 52 0D 31 31 34 30 20 49 46 20 |'FAKTOR.1140 IF | 00000170: 46 4C 41 47 20 54 48 45 4E 0D 31 31 35 30 20 44 |FLAG THEN.1150 D| 00000180: 52 41 57 54 4F 20 58 27 2C 59 27 0D 31 31 36 30 |RAWTO X',Y'.1160| 00000190: 20 45 4C 53 45 20 0D 31 31 37 30 20 4D 4F 56 45 | ELSE .1170 MOVE| 000001A0: 54 4F 20 58 27 2C 59 27 0D 31 31 38 30 20 45 4E |TO X',Y'.1180 EN| 000001B0: 44 49 46 20 0D 31 31 39 30 20 45 4E 44 50 52 4F |DIF .1190 ENDPRO| 000001C0: 43 20 5A 45 49 43 48 4E 45 0D 31 32 30 30 20 50 |C ZEICHNE.1200 P| 000001D0: 52 4F 43 20 41 43 48 53 45 4E 20 0D 31 32 31 30 |ROC ACHSEN .1210| 000001E0: 20 49 46 20 59 31 2A 59 32 3C 3D 30 20 54 48 45 | IF Y1*Y2<=0 THE| 000001F0: 4E 0D 31 32 32 30 20 5A 45 49 43 48 4E 45 28 58 |N.1220 ZEICHNE(X| 00000200: 31 2C 30 2C 46 41 4C 53 45 29 0D 31 32 33 30 20 |1,0,FALSE).1230 | 00000210: 5A 45 49 43 48 4E 45 28 58 32 2C 30 2C 54 52 55 |ZEICHNE(X2,0,TRU| 00000220: 45 29 0D 31 32 34 30 20 45 4E 44 49 46 20 0D 31 |E).1240 ENDIF .1| 00000230: 32 35 30 20 49 46 20 58 31 2A 58 32 3C 3D 30 20 |250 IF X1*X2<=0 | 00000240: 54 48 45 4E 0D 31 32 36 30 20 5A 45 49 43 48 4E |THEN.1260 ZEICHN| 00000250: 45 28 30 2C 59 31 2C 46 41 4C 53 45 29 0D 31 32 |E(0,Y1,FALSE).12| 00000260: 37 30 20 5A 45 49 43 48 4E 45 28 30 2C 59 32 2C |70 ZEICHNE(0,Y2,| 00000270: 54 52 55 45 29 0D 31 32 38 30 20 45 4E 44 49 46 |TRUE).1280 ENDIF| 00000280: 20 0D 31 32 39 30 20 45 4E 44 50 52 4F 43 20 41 | .1290 ENDPROC A| 00000290: 43 48 53 45 4E 0D 31 33 30 30 20 50 52 4F 43 20 |CHSEN.1300 PROC | 000002A0: 46 55 45 4C 4C 45 28 58 2C 59 29 20 0D 31 33 31 |FUELLE(X,Y) .131| 000002B0: 30 20 58 27 3A 3D 28 58 2D 58 31 29 2A 58 27 46 |0 X':=(X-X1)*X'F| 000002C0: 41 4B 54 4F 52 3B 20 59 27 3A 3D 28 59 2D 59 31 |AKTOR; Y':=(Y-Y1| 000002D0: 29 2A 59 27 46 41 4B 54 4F 52 0D 31 33 32 30 20 |)*Y'FAKTOR.1320 | 000002E0: 46 49 4C 4C 20 58 27 2C 59 27 0D 31 33 33 30 20 |FILL X',Y'.1330 | 000002F0: 45 4E 44 50 52 4F 43 20 46 55 45 4C 4C 45 0D 31 |ENDPROC FUELLE.1| 00000300: 33 34 30 20 50 52 4F 43 20 50 4C 4F 54 54 45 4E |340 PROC PLOTTEN| 00000310: 28 58 2C 59 29 20 0D 31 33 35 30 20 58 27 3A 3D |(X,Y) .1350 X':=| 00000320: 28 58 2D 58 31 29 2A 58 27 46 41 4B 54 4F 52 3B |(X-X1)*X'FAKTOR;| 00000330: 20 59 27 3A 3D 28 59 2D 59 31 29 2A 59 27 46 41 | Y':=(Y-Y1)*Y'FA| 00000340: 4B 54 4F 52 0D 31 33 36 30 20 50 4C 4F 54 20 58 |KTOR.1360 PLOT X| 00000350: 27 2C 59 27 0D 31 33 37 30 20 45 4E 44 50 52 4F |',Y'.1370 ENDPRO| 00000360: 43 20 50 4C 4F 54 54 45 4E 0D A5 |C PLOTTEN.. |
1000 // PROZEDUREN ZUM PLOTTEN.1010 //.1 020 PROC INIT(A,B,C,D) .1030 X1:=A; X2:= B // MASSTAB X.1040 Y1:=C; Y2:=D // MASS TAB Y.1050 X'FAKTOR:=320/(X2-X1); Y'FAKT OR:=200/(Y2-Y1).1060 BACKGROUND (15).107 0 BORDER (15).1080 PENCOLOR (0).1090 SET GRAPHIC 0.1100 HIDETURTLE .1110 ENDPROC INIT.1120 PROC ZEICHNE(X,Y,FLAG) .1130 X ':=(X-X1)*X'FAKTOR; Y':=(Y-Y1)*Y'FAKTOR. 1140 IF FLAG THEN.1150 DRAWTO X',Y'.1160 ELSE .1170 MOVETO X',Y'.1180 ENDIF .119 0 ENDPROC ZEICHNE.1200 PROC ACHSEN .1210 IF Y1*Y2<=0 THEN.1220 ZEICHNE(X1,0,FALS E).1230 ZEICHNE(X2,0,TRUE).1240 ENDIF .1 250 IF X1*X2<=0 THEN.1260 ZEICHNE(0,Y1,F ALSE).1270 ZEICHNE(0,Y2,TRUE).1280 ENDIF .1290 ENDPROC ACHSEN.1300 PROC FUELLE(X ,Y) .1310 X':=(X-X1)*X'FAKTOR; Y':=(Y-Y1 )*Y'FAKTOR.1320 FILL X',Y'.1330 ENDPROC FUELLE.1340 PROC PLOTTEN(X,Y) .1350 X':= (X-X1)*X'FAKTOR; Y':=(Y-Y1)*Y'FAKTOR.136 0 PLOT X',Y'.1370 ENDPROC PLOTTEN..
> CLICK IMAGE PREVIEW FOR FULL MODAL