GENERROR.N.L
FILE INFORMATION
FILENAME(S): GENERROR.N.L
FILE TYPE(S): SEQ
FILE SIZE: 3K
FIRST SEEN: 2025-11-30 21:07:13
APPEARS ON: 3 disk(s)
FILE HASH
d9cbecfd6951f9a70c9722e13c2a84ad02948a7f5196ff06737980c1063dc360
FOUND ON DISKS (3 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| COMAL 80 VS 0 14 | GENERROR.N.L | SEQ | DuncanTwain | 17 | 1 | DOWNLOAD FILE |
| COMAL 0 14 | GENERROR.N.L | SEQ | DuncanTwain | 17 | 1 | DOWNLOAD FILE |
| COMAL 0 14 | GENERROR.N.L | SEQ | DuncanTwain | 17 | 1 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 30 30 31 30 20 2F 2F 0D 30 30 32 30 20 2F 2F 20 |0010 //.0020 // |
00000010: 20 20 20 20 47 45 4E 45 52 52 4F 52 2E 4E 2E 4C | GENERROR.N.L|
00000020: 0D 30 30 33 30 20 2F 2F 20 20 20 20 20 3C 43 3E |.0030 // <C>|
00000030: 20 31 39 38 34 20 43 4F 4D 41 4C 2D 38 30 47 47 | 1984 COMAL-80GG|
00000040: 0D 30 30 34 30 20 2F 2F 0D 30 30 35 30 20 50 52 |.0040 //.0050 PR|
00000050: 49 4E 54 20 43 48 52 24 28 31 34 37 29 2C 0D 30 |INT CHR$(147),.0|
00000060: 30 36 30 20 50 52 49 4E 54 20 43 48 52 24 28 31 |060 PRINT CHR$(1|
00000070: 34 29 2C 0D 30 30 37 30 20 50 52 49 4E 54 20 22 |4),.0070 PRINT "|
00000080: 47 45 4E 45 52 52 4F 52 2E 4E 2E 4C 22 0D 30 30 |GENERROR.N.L".00|
00000090: 38 30 20 50 52 49 4E 54 20 22 44 49 54 20 50 52 |80 PRINT "DIT PR|
000000A0: 4F 47 52 41 4D 4D 41 20 50 4C 41 41 54 53 54 20 |OGRAMMA PLAATST |
000000B0: 44 45 20 46 4F 55 54 4D 45 4C 44 49 4E 47 45 4E |DE FOUTMELDINGEN|
000000C0: 22 0D 30 30 39 30 20 50 52 49 4E 54 20 22 4F 50 |".0090 PRINT "OP|
000000D0: 20 45 45 4E 20 47 45 46 4F 52 4D 41 54 54 45 45 | EEN GEFORMATTEE|
000000E0: 52 44 45 20 44 49 53 4B 45 54 54 45 22 0D 30 31 |RDE DISKETTE".01|
000000F0: 30 30 20 44 49 4D 20 5A 24 20 4F 46 20 31 0D 30 |00 DIM Z$ OF 1.0|
00000100: 31 31 30 20 41 43 43 4F 4F 52 44 0D 30 31 32 30 |110 ACCOORD.0120|
00000110: 20 50 52 49 4E 54 20 0D 30 31 33 30 20 50 52 49 | PRINT .0130 PRI|
00000120: 4E 54 20 22 4C 49 53 54 49 4E 47 20 27 43 4F 4D |NT "LISTING 'COM|
00000130: 41 4C 45 52 52 4F 52 53 27 20 4F 50 20 30 3A 22 |ALERRORS' OP 0:"|
00000140: 2C 0D 30 31 34 30 20 2F 2F 0D 30 31 35 30 20 44 |,.0140 //.0150 D|
00000150: 49 4D 20 41 24 20 4F 46 20 38 30 0D 30 31 36 30 |IM A$ OF 80.0160|
00000160: 20 4F 50 45 4E 20 46 49 4C 45 20 31 2C 22 40 30 | OPEN FILE 1,"@0|
00000170: 3A 43 4F 4D 41 4C 45 52 52 4F 52 53 22 2C 57 52 |:COMALERRORS",WR|
00000180: 49 54 45 0D 30 31 37 30 20 57 48 49 4C 45 20 4E |ITE.0170 WHILE N|
00000190: 4F 54 20 45 4F 44 20 44 4F 0D 30 31 38 30 20 52 |OT EOD DO.0180 R|
000001A0: 45 41 44 20 45 52 52 4E 4F 2C 4C 4E 47 2C 53 45 |EAD ERRNO,LNG,SE|
000001B0: 56 2C 41 24 0D 30 31 39 30 20 50 52 49 4E 54 20 |V,A$.0190 PRINT |
000001C0: 46 49 4C 45 20 31 3A 20 43 48 52 24 28 45 52 52 |FILE 1: CHR$(ERR|
000001D0: 4E 4F 29 2C 43 48 52 24 28 4C 4E 47 29 2C 43 48 |NO),CHR$(LNG),CH|
000001E0: 52 24 28 53 45 56 29 2C 41 24 2C 0D 30 32 30 30 |R$(SEV),A$,.0200|
000001F0: 20 50 52 49 4E 54 20 22 2E 22 2C 0D 30 32 31 30 | PRINT ".",.0210|
00000200: 20 45 4E 44 57 48 49 4C 45 20 0D 30 32 32 30 20 | ENDWHILE .0220 |
00000210: 43 4C 4F 53 45 0D 30 32 33 30 20 50 52 49 4E 54 |CLOSE.0230 PRINT|
00000220: 20 0D 30 32 34 30 20 50 52 49 4E 54 20 0D 30 32 | .0240 PRINT .02|
00000230: 35 30 20 50 52 49 4E 54 20 22 45 49 4E 44 45 20 |50 PRINT "EINDE |
00000240: 47 45 4E 45 52 52 4F 52 2E 4E 2E 4C 22 0D 30 32 |GENERROR.N.L".02|
00000250: 36 30 20 45 4E 44 20 0D 30 32 37 30 20 2F 2F 0D |60 END .0270 //.|
00000260: 30 32 38 30 20 46 4F 55 54 4D 45 4C 44 49 4E 47 |0280 FOUTMELDING|
00000270: 45 4E 3A 0D 30 32 39 30 20 2F 2F 3C 4E 52 3E 2C |EN:.0290 //<NR>,|
00000280: 3C 4C 45 4E 47 54 45 3E 2C 3C 53 4F 4F 52 54 3E |<LENGTE>,<SOORT>|
00000290: 2C 3C 54 45 4B 53 54 3E 0D 30 33 30 30 20 2F 2F |,<TEKST>.0300 //|
000002A0: 0D 30 33 31 30 20 44 41 54 41 20 30 2C 31 31 2C |.0310 DATA 0,11,|
000002B0: 30 2C 22 46 4F 52 4D 41 54 2D 46 4F 55 54 22 0D |0,"FORMAT-FOUT".|
000002C0: 30 33 32 30 20 44 41 54 41 20 31 2C 31 31 2C 30 |0320 DATA 1,11,0|
000002D0: 2C 22 53 59 4E 54 41 58 2D 46 4F 55 54 22 0D 30 |,"SYNTAX-FOUT".0|
000002E0: 33 33 30 20 44 41 54 41 20 32 2C 31 36 2C 30 2C |330 DATA 2,16,0,|
000002F0: 22 4B 4F 4E 46 4C 49 4B 54 20 49 4E 20 54 59 50 |"KONFLIKT IN TYP|
00000300: 45 22 0D 30 33 34 30 20 44 41 54 41 20 33 2C 31 |E".0340 DATA 3,1|
00000310: 37 2C 30 2C 22 46 4F 55 54 20 49 4E 20 50 41 52 |7,0,"FOUT IN PAR|
00000320: 41 4D 45 54 45 52 22 0D 30 33 35 30 20 44 41 54 |AMETER".0350 DAT|
00000330: 41 20 34 2C 33 32 2C 30 2C 22 53 54 41 54 45 4D |A 4,32,0,"STATEM|
00000340: 45 4E 54 20 54 45 20 4C 41 4E 47 2F 54 45 20 49 |ENT TE LANG/TE I|
00000350: 4E 47 45 57 49 4B 4B 45 4C 44 22 0D 30 33 36 30 |NGEWIKKELD".0360|
00000360: 20 44 41 54 41 20 35 2C 31 32 2C 31 2C 22 53 59 | DATA 5,12,1,"SY|
00000370: 53 54 45 45 4D 2D 46 4F 55 54 22 0D 30 33 37 30 |STEEM-FOUT".0370|
00000380: 20 44 41 54 41 20 36 2C 31 32 2C 30 2C 22 4E 41 | DATA 6,12,0,"NA|
00000390: 41 4D 20 54 45 20 4C 41 4E 47 22 0D 30 33 38 30 |AM TE LANG".0380|
000003A0: 20 44 41 54 41 20 37 2C 31 39 2C 30 2C 22 27 29 | DATA 7,19,0,"')|
000003B0: 27 20 4F 46 20 27 28 27 20 56 45 52 57 41 43 48 |' OF '(' VERWACH|
000003C0: 54 22 0D 30 33 39 30 20 44 41 54 41 20 38 2C 38 |T".0390 DATA 8,8|
000003D0: 2C 30 2C 22 4F 56 45 52 46 4C 4F 57 22 0D 30 34 |,0,"OVERFLOW".04|
000003E0: 30 30 20 44 41 54 41 20 39 2C 32 37 2C 30 2C 22 |00 DATA 9,27,0,"|
000003F0: 46 4F 55 54 20 49 4E 20 50 52 4F 47 52 41 4D 4D |FOUT IN PROGRAMM|
00000400: 41 2D 53 54 52 55 43 54 55 55 52 22 0D 30 34 31 |A-STRUCTUUR".041|
00000410: 30 20 44 41 54 41 20 31 30 2C 32 32 2C 30 2C 22 |0 DATA 10,22,0,"|
00000420: 46 4F 55 54 20 49 4E 20 47 4F 54 4F 2D 53 54 41 |FOUT IN GOTO-STA|
00000430: 54 45 4D 45 4E 54 22 0D 30 34 32 30 20 44 41 54 |TEMENT".0420 DAT|
00000440: 41 20 31 31 2C 32 33 2C 31 2C 22 47 45 48 45 55 |A 11,23,1,"GEHEU|
00000450: 47 45 4E 52 55 49 4D 54 45 20 54 45 20 4B 4C 45 |GENRUIMTE TE KLE|
00000460: 49 4E 22 0D 30 34 33 30 20 44 41 54 41 20 31 32 |IN".0430 DATA 12|
00000470: 2C 32 35 2C 30 2C 22 4F 4E 47 45 44 45 46 49 4E |,25,0,"ONGEDEFIN|
00000480: 49 45 45 52 44 45 20 56 41 52 49 41 42 45 4C 45 |IEERDE VARIABELE|
00000490: 22 0D 30 34 34 30 20 44 41 54 41 20 31 33 2C 31 |".0440 DATA 13,1|
000004A0: 37 2C 31 2C 22 46 4F 55 54 20 49 4E 20 50 41 52 |7,1,"FOUT IN PAR|
000004B0: 41 4D 45 54 45 52 22 0D 30 34 35 30 20 44 41 54 |AMETER".0450 DAT|
000004C0: 41 20 31 34 2C 31 33 2C 31 2C 22 46 4F 55 54 20 |A 14,13,1,"FOUT |
000004D0: 49 4E 20 49 4E 44 45 58 22 0D 30 34 36 30 20 44 |IN INDEX".0460 D|
000004E0: 41 54 41 20 31 35 2C 31 37 2C 30 2C 22 46 4F 55 |ATA 15,17,0,"FOU|
000004F0: 54 20 49 4E 20 53 55 42 53 54 52 49 4E 47 22 0D |T IN SUBSTRING".|
00000500: 30 34 37 30 20 44 41 54 41 20 31 36 2C 33 35 2C |0470 DATA 16,35,|
00000510: 30 2C 22 46 4F 55 54 20 49 4E 20 43 4F 4D 4D 41 |0,"FOUT IN COMMA|
00000520: 4E 44 4F 2F 41 52 52 41 59 2F 53 55 42 53 54 52 |NDO/ARRAY/SUBSTR|
00000530: 47 2F 50 52 4F 43 22 0D 30 34 38 30 20 44 41 54 |G/PROC".0480 DAT|
00000540: 41 20 31 37 2C 31 33 2C 30 2C 22 46 4F 55 54 20 |A 17,13,0,"FOUT |
00000550: 49 4E 20 49 4E 44 45 58 22 0D 30 34 39 30 20 44 |IN INDEX".0490 D|
00000560: 41 54 41 20 31 38 2C 32 32 2C 30 2C 22 54 45 20 |ATA 18,22,0,"TE |
00000570: 56 45 45 4C 2F 57 45 49 4E 49 47 20 49 4E 44 49 |VEEL/WEINIG INDI|
00000580: 43 45 53 22 0D 30 35 30 30 20 44 41 54 41 20 31 |CES".0500 DATA 1|
00000590: 39 2C 32 35 2C 30 2C 22 46 4F 55 54 20 49 4E 20 |9,25,0,"FOUT IN |
000005A0: 53 54 52 49 4E 47 2D 54 4F 45 4B 45 4E 4E 49 4E |STRING-TOEKENNIN|
000005B0: 47 22 0D 30 35 31 30 20 44 41 54 41 20 32 30 2C |G".0510 DATA 20,|
000005C0: 31 37 2C 30 2C 22 46 4F 55 54 20 49 4E 20 50 41 |17,0,"FOUT IN PA|
000005D0: 52 41 4D 45 54 45 52 22 0D 30 35 32 30 20 44 41 |RAMETER".0520 DA|
000005E0: 54 41 20 32 31 2C 32 30 2C 31 2C 22 4E 49 45 54 |TA 21,20,1,"NIET|
000005F0: 20 47 45 49 4D 50 4C 45 4D 45 4E 54 45 45 52 44 | GEIMPLEMENTEERD|
00000600: 22 0D 30 35 33 30 20 44 41 54 41 20 32 32 2C 31 |".0530 DATA 22,1|
00000610: 39 2C 30 2C 22 5A 4F 4E 45 2D 57 41 41 52 44 45 |9,0,"ZONE-WAARDE|
00000620: 20 4F 4E 4A 55 49 53 54 22 0D 30 35 34 30 20 44 | ONJUIST".0540 D|
00000630: 41 54 41 20 32 33 2C 38 2C 30 2C 22 53 54 45 50 |ATA 23,8,0,"STEP|
00000640: 20 3D 20 30 22 0D 30 35 35 30 20 44 41 54 41 20 | = 0".0550 DATA |
00000650: 32 34 2C 32 34 2C 31 2C 22 41 52 52 41 59 20 52 |24,24,1,"ARRAY R|
00000660: 45 45 44 53 20 47 45 44 45 46 49 4E 49 45 45 52 |EEDS GEDEFINIEER|
00000670: 44 22 0D 30 35 36 30 20 44 41 54 41 20 32 35 2C |D".0560 DATA 25,|
00000680: 31 36 2C 31 2C 22 46 4F 55 54 20 49 4E 20 44 49 |16,1,"FOUT IN DI|
00000690: 4D 45 4E 53 49 45 22 0D 30 35 37 30 20 44 41 54 |MENSIE".0570 DAT|
000006A0: 41 20 32 36 2C 32 32 2C 30 2C 22 46 4F 55 54 20 |A 26,22,0,"FOUT |
000006B0: 49 4E 20 43 41 53 45 2D 53 54 41 54 45 4D 45 4E |IN CASE-STATEMEN|
000006C0: 54 22 0D 30 35 38 30 20 44 41 54 41 20 32 37 2C |T".0580 DATA 27,|
000006D0: 31 31 2C 30 2C 22 45 4F 44 20 47 45 4C 45 5A 45 |11,0,"EOD GELEZE|
000006E0: 4E 22 0D 30 35 39 30 20 44 41 54 41 20 32 38 2C |N".0590 DATA 28,|
000006F0: 31 35 2C 30 2C 22 46 49 4C 45 20 52 45 45 44 53 |15,0,"FILE REEDS|
00000700: 20 4F 50 45 4E 22 0D 30 36 30 30 20 44 41 54 41 | OPEN".0600 DATA|
00000710: 20 32 39 2C 31 39 2C 30 2C 22 46 4F 55 54 20 42 | 29,19,0,"FOUT B|
00000720: 49 4A 20 46 49 4C 45 2D 49 4E 50 55 54 22 0D 30 |IJ FILE-INPUT".0|
00000730: 36 31 30 20 44 41 54 41 20 33 30 2C 31 31 2C 30 |610 DATA 30,11,0|
00000740: 2C 22 45 4F 46 20 47 45 4C 45 5A 45 4E 22 0D 30 |,"EOF GELEZEN".0|
00000750: 36 32 30 20 44 41 54 41 20 33 31 2C 31 34 2C 30 |620 DATA 31,14,0|
00000760: 2C 22 46 49 4C 45 20 4E 49 45 54 20 4F 50 45 4E |,"FILE NIET OPEN|
00000770: 22 0D 30 36 33 30 20 44 41 54 41 20 33 32 2C 31 |".0630 DATA 32,1|
00000780: 33 2C 31 2C 22 4E 49 45 54 20 4D 4F 47 45 4C 49 |3,1,"NIET MOGELI|
00000790: 4A 4B 22 0D 30 36 34 30 20 44 41 54 41 20 33 33 |JK".0640 DATA 33|
000007A0: 2C 31 39 2C 31 2C 22 46 4F 55 54 20 49 4E 20 50 |,19,1,"FOUT IN P|
000007B0: 52 49 4E 54 20 55 53 49 4E 47 22 0D 30 36 35 30 |RINT USING".0650|
000007C0: 20 44 41 54 41 20 33 34 2C 31 35 2C 30 2C 22 44 | DATA 34,15,0,"D|
000007D0: 45 4C 49 4E 47 20 44 4F 4F 52 20 4E 55 4C 22 0D |ELING DOOR NUL".|
000007E0: 30 36 36 30 20 44 41 54 41 20 33 35 2C 32 35 2C |0660 DATA 35,25,|
000007F0: 31 2C 22 4F 4E 4A 55 49 53 54 20 50 52 4F 47 52 |1,"ONJUIST PROGR|
00000800: 41 4D 4D 41 2D 47 45 42 52 55 49 4B 22 0D 30 36 |AMMA-GEBRUIK".06|
00000810: 37 30 20 44 41 54 41 20 33 36 2C 31 37 2C 30 2C |70 DATA 36,17,0,|
00000820: 22 46 49 4C 45 20 42 45 53 54 41 41 54 20 4E 49 |"FILE BESTAAT NI|
00000830: 45 54 22 0D 30 36 38 30 20 44 41 54 41 20 33 37 |ET".0680 DATA 37|
00000840: 2C 31 2C 31 2C 22 20 22 0D 30 36 39 30 20 44 41 |,1,1," ".0690 DA|
00000850: 54 41 20 33 38 2C 31 35 2C 31 2C 22 47 45 45 4E |TA 38,15,1,"GEEN|
00000860: 20 49 4E 50 55 54 2D 46 49 4C 45 22 0D 30 37 30 | INPUT-FILE".070|
00000870: 30 20 44 41 54 41 20 33 39 2C 32 31 2C 31 2C 22 |0 DATA 39,21,1,"|
00000880: 4F 4E 42 45 4B 45 4E 44 20 52 41 4E 44 41 50 50 |ONBEKEND RANDAPP|
00000890: 41 52 41 41 54 22 0D 30 37 31 30 20 44 41 54 41 |ARAAT".0710 DATA|
000008A0: 20 34 30 2C 31 36 2C 31 2C 22 47 45 45 4E 20 4F | 40,16,1,"GEEN O|
000008B0: 55 54 50 55 54 2D 46 49 4C 45 22 0D 30 37 32 30 |UTPUT-FILE".0720|
000008C0: 20 44 41 54 41 20 34 31 2C 32 35 2C 30 2C 22 4F | DATA 41,25,0,"O|
000008D0: 4E 47 45 44 45 46 49 4E 49 45 45 52 44 45 20 56 |NGEDEFINIEERDE V|
000008E0: 41 52 49 41 42 45 4C 45 22 0D 30 37 33 30 20 44 |ARIABELE".0730 D|
000008F0: 41 54 41 20 34 32 2C 32 31 2C 31 2C 22 47 45 45 |ATA 42,21,1,"GEE|
00000900: 4E 20 4C 4F 4B 41 4C 45 20 56 41 52 49 41 42 45 |N LOKALE VARIABE|
00000910: 4C 45 22 0D 30 37 34 30 20 44 41 54 41 20 35 32 |LE".0740 DATA 52|
00000920: 2C 31 33 2C 30 2C 22 54 45 20 56 45 45 4C 20 4E |,13,0,"TE VEEL N|
00000930: 41 4D 45 4E 22 0D 30 37 35 30 20 44 41 54 41 20 |AMEN".0750 DATA |
00000940: 35 33 2C 32 36 2C 31 2C 22 52 45 54 55 52 4E 2D |53,26,1,"RETURN-|
00000950: 53 54 41 54 45 4D 45 4E 54 20 4F 4E 54 42 52 45 |STATEMENT ONTBRE|
00000960: 45 4B 54 22 0D 30 37 36 30 20 44 41 54 41 20 35 |EKT".0760 DATA 5|
00000970: 34 2C 31 34 2C 30 2C 22 47 45 45 4E 20 53 54 41 |4,14,0,"GEEN STA|
00000980: 54 45 4D 45 4E 54 22 0D 30 37 37 30 20 44 41 54 |TEMENT".0770 DAT|
00000990: 41 20 35 35 2C 32 33 2C 30 2C 22 47 45 45 4E 20 |A 55,23,0,"GEEN |
000009A0: 43 4F 4D 4D 41 4E 44 4F 2F 53 54 41 54 45 4D 45 |COMMANDO/STATEME|
000009B0: 4E 54 22 0D 30 37 38 30 20 44 41 54 41 20 35 36 |NT".0780 DATA 56|
000009C0: 2C 31 32 2C 30 2C 22 27 2C 27 20 56 45 52 57 41 |,12,0,"',' VERWA|
000009D0: 43 48 54 22 0D 30 37 39 30 20 44 41 54 41 20 35 |CHT".0790 DATA 5|
000009E0: 37 2C 31 33 2C 30 2C 22 42 55 49 54 45 4E 20 42 |7,13,0,"BUITEN B|
000009F0: 45 52 45 49 4B 22 0D 30 38 30 30 20 44 41 54 41 |EREIK".0800 DATA|
00000A00: 20 35 38 2C 32 30 2C 30 2C 22 55 49 54 44 52 55 | 58,20,0,"UITDRU|
00000A10: 4B 4B 49 4E 47 20 56 45 52 57 41 43 48 54 22 0D |KKING VERWACHT".|
00000A20: 30 38 31 30 20 44 41 54 41 20 35 39 2C 32 30 2C |0810 DATA 59,20,|
00000A30: 30 2C 22 4E 49 45 54 20 47 45 49 4D 50 4C 45 4D |0,"NIET GEIMPLEM|
00000A40: 45 4E 54 45 45 52 44 22 0D 30 38 32 30 20 44 41 |ENTEERD".0820 DA|
00000A50: 54 41 20 36 30 2C 31 36 2C 30 2C 22 4F 50 45 52 |TA 60,16,0,"OPER|
00000A60: 41 4E 44 20 56 45 52 57 41 43 48 54 22 0D 30 38 |AND VERWACHT".08|
00000A70: 33 30 20 44 41 54 41 20 39 31 2C 37 2C 30 2C 22 |30 DATA 91,7,0,"|
00000A80: 46 4F 55 54 20 23 31 22 0D 30 38 34 30 20 44 41 |FOUT #1".0840 DA|
00000A90: 54 41 20 39 32 2C 37 2C 30 2C 22 46 4F 55 54 20 |TA 92,7,0,"FOUT |
00000AA0: 23 32 22 0D 30 38 35 30 20 44 41 54 41 20 31 30 |#2".0850 DATA 10|
00000AB0: 30 2C 32 31 2C 31 2C 22 45 45 52 53 54 20 53 45 |0,21,1,"EERST SE|
00000AC0: 54 47 52 41 50 48 49 43 20 3C 4E 52 3E 22 0D 30 |TGRAPHIC <NR>".0|
00000AD0: 38 36 30 20 44 41 54 41 20 31 30 31 2C 31 39 2C |860 DATA 101,19,|
00000AE0: 30 2C 22 46 4F 55 54 49 45 46 20 4B 4C 45 55 52 |0,"FOUTIEF KLEUR|
00000AF0: 4E 55 4D 4D 45 52 22 0D 30 38 37 30 20 44 41 54 |NUMMER".0870 DAT|
00000B00: 41 20 31 30 32 2C 32 30 2C 30 2C 22 46 4F 55 54 |A 102,20,0,"FOUT|
00000B10: 49 45 56 45 20 4B 4F 4F 52 44 49 4E 41 54 45 4E |IEVE KOORDINATEN|
00000B20: 20 20 20 20 20 22 0D 30 38 38 30 20 2F 2F 0D 30 | ".0880 //.0|
00000B30: 38 39 30 20 50 52 4F 43 20 41 43 43 4F 4F 52 44 |890 PROC ACCOORD|
00000B40: 20 0D 30 39 30 30 20 50 52 49 4E 54 20 0D 30 39 | .0900 PRINT .09|
00000B50: 31 30 20 50 52 49 4E 54 20 22 41 43 43 4F 4F 52 |10 PRINT "ACCOOR|
00000B60: 44 3F 20 28 4A 2F 4E 29 3A 20 22 2C 0D 30 39 32 |D? (J/N): ",.092|
00000B70: 30 20 52 45 50 45 41 54 20 0D 30 39 33 30 20 5A |0 REPEAT .0930 Z|
00000B80: 24 3A 3D 4B 45 59 24 0D 30 39 34 30 20 55 4E 54 |$:=KEY$.0940 UNT|
00000B90: 49 4C 20 5A 24 20 49 4E 20 22 4A 4E 22 0D 30 39 |IL Z$ IN "JN".09|
00000BA0: 35 30 20 50 52 49 4E 54 20 5A 24 0D 30 39 36 30 |50 PRINT Z$.0960|
00000BB0: 20 49 46 20 5A 24 3D 22 4E 22 20 54 48 45 4E 20 | IF Z$="N" THEN |
00000BC0: 45 4E 44 20 0D 30 39 37 30 20 45 4E 44 50 52 4F |END .0970 ENDPRO|
00000BD0: 43 20 41 43 43 4F 4F 52 44 0D 30 39 38 30 20 2F |C ACCOORD.0980 /|
00000BE0: 2F 0D 30 39 39 30 20 2F 2F 45 49 4E 44 45 20 47 |/.0990 //EINDE G|
00000BF0: 45 4E 45 52 52 4F 52 2E 4E 2E 4C 2F 2F 0D |ENERROR.N.L//. |
0010 //.0020 // GENERROR.N.L.0030 //
<C> 1984 COMAL-80GG.0040 //.0050 PR
INT CHR$(147),.0060 PRINT CHR$(14),.0070
PRINT "GENERROR.N.L".0080 PRINT "DIT PR
OGRAMMA PLAATST DE FOUTMELDINGEN".0090 P
RINT "OP EEN GEFORMATTEERDE DISKETTE".01
00 DIM Z$ OF 1.0110 ACCOORD.0120 PRINT .
0130 PRINT "LISTING 'COMALERRORS' OP 0:"
,.0140 //.0150 DIM A$ OF 80.0160 OPEN FI
LE 1,"@0:COMALERRORS",WRITE.0170 WHILE N
OT EOD DO.0180 READ ERRNO,LNG,SEV,A$.019
0 PRINT FILE 1: CHR$(ERRNO),CHR$(LNG),CH
R$(SEV),A$,.0200 PRINT ".",.0210 ENDWHIL
E .0220 CLOSE.0230 PRINT .0240 PRINT .02
50 PRINT "EINDE GENERROR.N.L".0260 END .
0270 //.0280 FOUTMELDINGEN:.0290 //<NR>,
<LENGTE>,<SOORT>,<TEKST>.0300 //.0310 DA
TA 0,11,0,"FORMAT-FOUT".0320 DATA 1,11,0
,"SYNTAX-FOUT".0330 DATA 2,16,0,"KONFLIK
T IN TYPE".0340 DATA 3,17,0,"FOUT IN PAR
AMETER".0350 DATA 4,32,0,"STATEMENT TE L
ANG/TE INGEWIKKELD".0360 DATA 5,12,1,"SY
STEEM-FOUT".0370 DATA 6,12,0,"NAAM TE LA
NG".0380 DATA 7,19,0,"')' OF '(' VERWACH
T".0390 DATA 8,8,0,"OVERFLOW".0400 DATA
9,27,0,"FOUT IN PROGRAMMA-STRUCTUUR".041
0 DATA 10,22,0,"FOUT IN GOTO-STATEMENT".
0420 DATA 11,23,1,"GEHEUGENRUIMTE TE KLE
IN".0430 DATA 12,25,0,"ONGEDEFINIEERDE V
ARIABELE".0440 DATA 13,17,1,"FOUT IN PAR
AMETER".0450 DATA 14,13,1,"FOUT IN INDEX
".0460 DATA 15,17,0,"FOUT IN SUBSTRING".
0470 DATA 16,35,0,"FOUT IN COMMANDO/ARRA
Y/SUBSTRG/PROC".0480 DATA 17,13,0,"FOUT
IN INDEX".0490 DATA 18,22,0,"TE VEEL/WEI
NIG INDICES".0500 DATA 19,25,0,"FOUT IN
STRING-TOEKENNING".0510 DATA 20,17,0,"FO
UT IN PARAMETER".0520 DATA 21,20,1,"NIET
GEIMPLEMENTEERD".0530 DATA 22,19,0,"ZON
E-WAARDE ONJUIST".0540 DATA 23,8,0,"STEP
= 0".0550 DATA 24,24,1,"ARRAY REEDS GED
EFINIEERD".0560 DATA 25,16,1,"FOUT IN DI
MENSIE".0570 DATA 26,22,0,"FOUT IN CASE-
STATEMENT".0580 DATA 27,11,0,"EOD GELEZE
N".0590 DATA 28,15,0,"FILE REEDS OPEN".0
600 DATA 29,19,0,"FOUT BIJ FILE-INPUT".0
610 DATA 30,11,0,"EOF GELEZEN".0620 DATA
31,14,0,"FILE NIET OPEN".0630 DATA 32,1
3,1,"NIET MOGELIJK".0640 DATA 33,19,1,"F
OUT IN PRINT USING".0650 DATA 34,15,0,"D
ELING DOOR NUL".0660 DATA 35,25,1,"ONJUI
ST PROGRAMMA-GEBRUIK".0670 DATA 36,17,0,
"FILE BESTAAT NIET".0680 DATA 37,1,1," "
.0690 DATA 38,15,1,"GEEN INPUT-FILE".070
0 DATA 39,21,1,"ONBEKEND RANDAPPARAAT".0
710 DATA 40,16,1,"GEEN OUTPUT-FILE".0720
DATA 41,25,0,"ONGEDEFINIEERDE VARIABELE
".0730 DATA 42,21,1,"GEEN LOKALE VARIABE
LE".0740 DATA 52,13,0,"TE VEEL NAMEN".07
50 DATA 53,26,1,"RETURN-STATEMENT ONTBRE
EKT".0760 DATA 54,14,0,"GEEN STATEMENT".
0770 DATA 55,23,0,"GEEN COMMANDO/STATEME
NT".0780 DATA 56,12,0,"',' VERWACHT".079
0 DATA 57,13,0,"BUITEN BEREIK".0800 DATA
58,20,0,"UITDRUKKING VERWACHT".0810 DAT
A 59,20,0,"NIET GEIMPLEMENTEERD".0820 DA
TA 60,16,0,"OPERAND VERWACHT".0830 DATA
91,7,0,"FOUT #1".0840 DATA 92,7,0,"FOUT
#2".0850 DATA 100,21,1,"EERST SETGRAPHIC
<NR>".0860 DATA 101,19,0,"FOUTIEF KLEUR
NUMMER".0870 DATA 102,20,0,"FOUTIEVE KOO
RDINATEN ".0880 //.0890 PROC ACCOORD
.0900 PRINT .0910 PRINT "ACCOORD? (J/N)
: ",.0920 REPEAT .0930 Z$:=KEY$.0940 UNT
IL Z$ IN "JN".0950 PRINT Z$.0960 IF Z$="
N" THEN END .0970 ENDPROC ACCOORD.0980 /
/.0990 //EINDE GENERROR.N.L//.
> CLICK IMAGE PREVIEW FOR FULL MODAL