CPROUT
FILE INFORMATION
FILENAME(S): CPROUT
FILE TYPE(S): SEQ
FILE SIZE: 2.6K
FIRST SEEN: 2025-11-02 22:11:06
APPEARS ON: 1 disk(s)
FILE HASH
c5b95da52f1c10021315f6fdaf9980042be725a552f7048f34ddf7c672b917e1
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| COMMODORE DISC53 | CPROUT | SEQ | Treasure Chest - ToGuMi | 11 | 7 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 2F 2A 20 2D 2D 2D 2D 2D 2D 20 D3 54 52 49 4E 47 |/* ------ .TRING| 00000010: 46 55 4E 4B 54 49 4F 4E 45 4E 20 2D 2D 2D 2D 2D |FUNKTIONEN -----| 00000020: 2D 20 2A 2F 0D 0D 49 4E 54 20 4C 45 4E 28 20 29 |- */..INT LEN( )| 00000030: 0D 42 45 47 49 4E 0D 20 20 28 20 2C 20 30 58 46 |.BEGIN. ( , 0XF| 00000040: 46 46 46 20 2C 20 30 20 46 49 4E 44 20 29 20 53 |FFF , 0 FIND ) S| 00000050: 57 41 50 20 2D 0D 42 45 4E 44 0D 0D 49 4E 54 20 |WAP -.BEND..INT | 00000060: 24 3C 28 20 29 0D 49 4E 54 20 4C 45 20 3B 0D 42 |$<( ).INT LE ;.B| 00000070: 45 47 49 4E 0D 20 20 53 57 41 50 20 28 20 53 57 |EGIN. SWAP ( SW| 00000080: 41 50 20 2C 20 53 57 41 50 20 2C 20 53 57 41 50 |AP , SWAP , SWAP| 00000090: 20 4C 45 4E 20 4C 45 20 3D 20 31 20 2B 20 43 4F | LEN LE = 1 + CO| 000000A0: 50 59 20 29 20 53 57 41 50 20 4C 45 20 5D 20 2B |PY ) SWAP LE ] +| 000000B0: 0D 42 45 4E 44 0D 0D 49 4E 54 20 49 4E 43 48 41 |.BEND..INT INCHA| 000000C0: 52 28 20 53 54 52 20 5A 20 29 0D 42 45 47 49 4E |R( STR Z ).BEGIN| 000000D0: 20 2C 0D 20 20 28 20 53 54 52 20 5D 20 2C 20 28 | ,. ( STR ] , (| 000000E0: 20 4C 45 4E 20 29 20 2B 20 2C 20 5A 20 5D 20 46 | LEN ) + , Z ] F| 000000F0: 49 4E 44 20 29 0D 20 20 4E 49 46 20 46 45 52 54 |IND ). NIF FERT| 00000100: 0D 20 20 53 54 52 20 2D 2D 5D 20 2D 0D 3A 20 46 |. STR --] -.: F| 00000110: 45 52 54 0D 42 45 4E 44 0D 0D 49 4E 54 20 56 41 |ERT.BEND..INT VA| 00000120: 4C 28 20 29 0D 49 4E 54 20 53 20 2C 20 45 52 47 |L( ).INT S , ERG| 00000130: 20 3B 0D 42 45 47 49 4E 0D 20 20 53 20 3D 20 30 | ;.BEGIN. S = 0| 00000140: 20 45 52 47 20 3D 0D 3A 20 4C 41 42 30 20 53 20 | ERG =.: LAB0 S | 00000150: 5D 2B 2B 20 42 59 20 5D 20 4E 49 46 20 46 46 20 |]++ BY ] NIF FF | 00000160: 30 58 31 46 20 41 4E 44 20 4E 49 46 20 4C 41 42 |0X1F AND NIF LAB| 00000170: 30 0D 3A 20 4C 41 42 31 20 31 35 20 41 4E 44 20 |0.: LAB1 15 AND | 00000180: 28 20 45 52 47 20 5D 20 31 30 20 2A 20 29 20 2B |( ERG ] 10 * ) +| 00000190: 20 45 52 47 20 3D 0D 3A 20 4C 41 42 32 20 53 20 | ERG =.: LAB2 S | 000001A0: 5D 2B 2B 20 42 59 20 5D 20 30 58 31 46 20 41 4E |]++ BY ] 0X1F AN| 000001B0: 44 20 49 46 20 4C 41 42 31 0D 20 20 45 52 47 20 |D IF LAB1. ERG | 000001C0: 5D 0D 3A 20 46 46 20 42 45 4E 44 0D 0D 49 4E 54 |].: FF BEND..INT| 000001D0: 20 53 43 41 4E 28 20 41 4E 20 45 4E 20 53 54 52 | SCAN( AN EN STR| 000001E0: 20 4E 20 29 0D 42 45 47 49 4E 20 2C 20 4E 49 46 | N ).BEGIN , NIF| 000001F0: 20 46 45 52 54 0D 3A 20 4C 41 42 20 28 20 41 4E | FERT.: LAB ( AN| 00000200: 20 5D 20 2C 20 45 4E 20 5D 20 2C 20 53 54 52 20 | ] , EN ] , STR | 00000210: 42 59 20 5D 5D 20 46 49 4E 44 20 29 0D 20 20 4E |BY ]] FIND ). N| 00000220: 49 46 20 46 45 52 54 0D 20 20 41 4E 20 3D 20 28 |IF FERT. AN = (| 00000230: 20 41 4E 20 5D 2B 2B 20 2C 20 53 54 52 20 5D 20 | AN ]++ , STR ] | 00000240: 2C 20 4E 20 42 59 20 5D 20 43 4F 4D 50 20 29 0D |, N BY ] COMP ).| 00000250: 20 20 4E 49 46 20 4C 41 42 20 41 4E 20 2D 2D 5D | NIF LAB AN --]| 00000260: 0D 3A 20 46 45 52 54 20 42 45 4E 44 0D 0D 2F 2A |.: FERT BEND../*| 00000270: 20 2D 2D 2D 20 C2 49 4C 44 53 43 48 49 52 4D 2C | --- .ILDSCHIRM,| 00000280: 20 C6 41 52 42 45 20 55 4E 44 20 C3 55 52 53 4F | .ARBE UND .URSO| 00000290: 52 20 2A 2F 0D 0D 56 4F 49 44 20 4D 4F 44 53 57 |R */..VOID MODSW| 000002A0: 41 50 28 20 29 0D 42 45 47 49 4E 0D 20 20 30 20 |AP( ).BEGIN. 0 | 000002B0: 53 59 53 43 4F 4E 20 36 34 20 3D 3D 20 49 46 20 |SYSCON 64 == IF | 000002C0: 46 46 20 30 58 46 46 35 46 20 53 59 53 0D 3A 20 |FF 0XFF5F SYS.: | 000002D0: 46 46 20 42 45 4E 44 0D 0D 56 4F 49 44 20 43 4F |FF BEND..VOID CO| 000002E0: 4C 4F 52 28 20 56 46 20 48 46 20 52 46 20 29 0D |LOR( VF HF RF ).| 000002F0: 42 45 47 49 4E 20 2C 20 30 20 2C 0D 20 20 56 46 |BEGIN , 0 ,. VF| 00000300: 20 2D 2D 5D 20 35 20 53 59 53 43 4F 4E 20 42 59 | --] 5 SYSCON BY| 00000310: 20 3D 0D 20 20 48 46 20 5D 20 4E 49 46 20 46 46 | =. HF ] NIF FF| 00000320: 20 31 20 2D 20 35 33 32 38 31 20 42 59 20 3D 0D | 1 - 53281 BY =.| 00000330: 20 20 52 46 20 5D 20 4E 49 46 20 46 46 20 31 20 | RF ] NIF FF 1 | 00000340: 2D 20 35 33 32 38 30 20 42 59 20 3D 0D 3A 20 46 |- 53280 BY =.: F| 00000350: 46 20 42 45 4E 44 0D 0D 56 4F 49 44 20 41 54 28 |F BEND..VOID AT(| 00000360: 20 59 20 58 20 29 0D 42 45 47 49 4E 0D 20 20 59 | Y X ).BEGIN. Y| 00000370: 52 20 42 59 20 3D 20 59 20 5D 20 58 52 20 42 59 |R BY = Y ] XR BY| 00000380: 20 3D 0D 20 20 43 4C 43 20 30 58 46 46 46 30 20 | =. CLC 0XFFF0 | 00000390: 53 59 53 0D 42 45 4E 44 0D 0D 43 48 41 52 20 50 |SYS.BEND..CHAR P| 000003A0: 4F 53 58 59 28 20 29 0D 42 45 47 49 4E 0D 20 20 |OSXY( ).BEGIN. | 000003B0: 53 45 43 20 30 58 46 46 46 30 20 53 59 53 20 58 |SEC 0XFFF0 SYS X| 000003C0: 52 20 42 59 20 5D 20 59 52 20 42 59 20 5D 0D 42 |R BY ] YR BY ].B| 000003D0: 45 4E 44 0D 0D 56 4F 49 44 20 54 41 42 28 20 29 |END..VOID TAB( )| 000003E0: 0D 42 45 47 49 4E 0D 20 20 28 20 50 4F 53 58 59 |.BEGIN. ( POSXY| 000003F0: 20 53 57 41 50 20 29 20 28 20 2C 20 53 57 41 50 | SWAP ) ( , SWAP| 00000400: 20 41 54 20 29 0D 42 45 4E 44 0D 0D 2F 2A 20 2D | AT ).BEND../* -| 00000410: 2D 2D 2D 2D 2D 2D 20 C1 55 53 47 41 42 45 46 55 |------ .USGABEFU| 00000420: 4E 4B 54 49 4F 4E 45 4E 20 2D 2D 2D 2D 2D 2D 2D |NKTIONEN -------| 00000430: 20 2A 2F 0D 0D 56 4F 49 44 20 50 55 54 43 28 20 | */..VOID PUTC( | 00000440: 29 0D 42 45 47 49 4E 0D 20 20 41 43 20 42 59 20 |).BEGIN. AC BY | 00000450: 3D 20 30 58 46 46 44 32 20 53 59 53 0D 42 45 4E |= 0XFFD2 SYS.BEN| 00000460: 44 0D 0D 56 4F 49 44 20 50 55 54 4C 28 20 29 0D |D..VOID PUTL( ).| 00000470: 49 4E 54 20 5A 47 20 3B 0D 42 45 47 49 4E 0D 20 |INT ZG ;.BEGIN. | 00000480: 20 5A 47 20 3D 20 47 4F 20 52 44 0D 3A 20 57 52 | ZG = GO RD.: WR| 00000490: 20 50 55 54 43 0D 3A 20 52 44 20 5A 47 20 5D 2B | PUTC.: RD ZG ]+| 000004A0: 2B 20 42 59 20 5D 20 49 46 20 57 52 0D 42 45 4E |+ BY ] IF WR.BEN| 000004B0: 44 0D 0D 56 4F 49 44 20 52 50 55 54 4E 28 20 29 |D..VOID RPUTN( )| 000004C0: 0D 42 45 47 49 4E 0D 20 20 4E 49 46 20 46 46 20 |.BEGIN. NIF FF | 000004D0: 28 20 31 30 20 2F 20 52 50 55 54 4E 20 29 0D 20 |( 10 / RPUTN ). | 000004E0: 20 53 57 41 50 20 31 30 20 25 20 27 30 27 20 2B | SWAP 10 % '0' +| 000004F0: 20 50 55 54 43 0D 3A 20 46 46 20 42 45 4E 44 0D | PUTC.: FF BEND.| 00000500: 0D 56 4F 49 44 20 50 55 54 4E 28 20 29 0D 42 45 |.VOID PUTN( ).BE| 00000510: 47 49 4E 0D 20 20 4E 49 46 20 46 46 20 52 50 55 |GIN. NIF FF RPU| 00000520: 54 4E 20 52 45 54 55 52 4E 0D 3A 20 46 46 20 27 |TN RETURN.: FF '| 00000530: 30 27 20 50 55 54 43 0D 42 45 4E 44 0D 0D 56 4F |0' PUTC.BEND..VO| 00000540: 49 44 20 50 52 49 4E 54 28 20 4C 49 53 54 45 20 |ID PRINT( LISTE | 00000550: 29 0D 49 4E 54 20 5A 47 20 3B 0D 42 45 47 49 4E |).INT ZG ;.BEGIN| 00000560: 20 2C 20 30 20 2C 0D 20 20 4C 49 53 54 45 20 5A | , 0 ,. LISTE Z| 00000570: 47 20 3D 20 5D 0D 3A 20 4C 41 42 20 50 55 54 4C |G = ].: LAB PUTL| 00000580: 20 32 20 5A 47 20 2B 3D 20 5D 20 49 46 20 4C 41 | 2 ZG += ] IF LA| 00000590: 42 0D 42 45 4E 44 0D 0D 56 4F 49 44 20 46 50 52 |B.BEND..VOID FPR| 000005A0: 49 4E 54 28 20 53 54 52 49 4E 47 20 29 0D 49 4E |INT( STRING ).IN| 000005B0: 54 20 50 41 52 20 2C 20 5A 47 20 3B 0D 42 45 47 |T PAR , ZG ;.BEG| 000005C0: 49 4E 0D 20 2C 20 53 54 52 49 4E 47 20 50 41 52 |IN. , STRING PAR| 000005D0: 20 3D 20 5D 20 5A 47 20 3D 0D 3A 20 4C 41 42 31 | = ] ZG =.: LAB1| 000005E0: 20 5A 47 20 42 59 20 5D 5D 20 4E 49 46 20 46 46 | ZG BY ]] NIF FF| 000005F0: 0D 20 20 5A 47 20 42 59 20 5D 5D 20 27 25 27 20 |. ZG BY ]] '%' | 00000600: 3D 3D 20 49 46 20 5A 41 48 4C 0D 20 20 5A 47 20 |== IF ZAHL. ZG | 00000610: 5D 2B 2B 20 42 59 20 5D 20 50 55 54 43 20 47 4F |]++ BY ] PUTC GO| 00000620: 20 4C 41 42 31 0D 3A 20 5A 41 48 4C 20 32 20 50 | LAB1.: ZAHL 2 P| 00000630: 41 52 20 2B 3D 0D 20 20 5A 47 20 5D 2B 2B 20 50 |AR +=. ZG ]++ P| 00000640: 41 52 20 5D 5D 20 50 55 54 4E 20 47 4F 20 4C 41 |AR ]] PUTN GO LA| 00000650: 42 31 0D 3A 20 46 46 20 42 45 4E 44 0D 0D 2F 2A |B1.: FF BEND../*| 00000660: 20 2D 2D 2D 2D 2D 2D 20 C5 49 4E 47 41 42 45 46 | ------ .INGABEF| 00000670: 55 4E 4B 54 49 4F 4E 45 4E 20 2D 2D 2D 2D 2D 2D |UNKTIONEN ------| 00000680: 2D 2D 20 2A 2F 0D 0D 43 48 41 52 20 47 45 54 43 |-- */..CHAR GETC| 00000690: 28 20 29 0D 42 45 47 49 4E 0D 20 20 30 58 46 46 |( ).BEGIN. 0XFF| 000006A0: 45 34 20 53 59 53 20 41 43 20 42 59 20 5D 0D 42 |E4 SYS AC BY ].B| 000006B0: 45 4E 44 0D 0D 43 48 41 52 20 4B 45 59 28 20 29 |END..CHAR KEY( )| 000006C0: 0D 42 45 47 49 4E 0D 3A 20 52 44 20 47 45 54 43 |.BEGIN.: RD GETC| 000006D0: 20 4E 49 46 20 52 44 0D 42 45 4E 44 0D 0D 49 4E | NIF RD.BEND..IN| 000006E0: 54 20 47 45 54 4C 28 20 53 54 52 20 4C 49 4D 20 |T GETL( STR LIM | 000006F0: 29 0D 44 45 46 20 42 41 53 49 4E 20 30 58 46 46 |).DEF BASIN 0XFF| 00000700: 43 46 20 53 59 53 20 41 43 20 42 59 20 5D 3B 0D |CF SYS AC BY ];.| 00000710: 42 45 47 49 4E 0D 20 20 2C 20 47 4F 20 52 44 0D |BEGIN. , GO RD.| 00000720: 3A 20 57 52 20 53 57 41 50 20 53 54 52 20 5D 2B |: WR SWAP STR ]+| 00000730: 2B 20 42 59 20 3D 0D 3A 20 52 44 20 42 41 53 49 |+ BY =.: RD BASI| 00000740: 4E 20 27 2F 4E 27 20 3D 3D 20 49 46 20 46 46 0D |N '/N' == IF FF.| 00000750: 20 20 53 57 41 50 20 4C 49 4D 20 5D 2D 2D 20 49 | SWAP LIM ]-- I| 00000760: 46 20 57 52 0D 3A 20 4E 45 20 42 41 53 49 4E 20 |F WR.: NE BASIN | 00000770: 27 4E 27 20 3D 3D 20 4E 49 46 20 4E 45 0D 3A 20 |'N' == NIF NE.: | 00000780: 46 46 20 30 20 53 54 52 20 5D 20 42 59 20 3D 20 |FF 0 STR ] BY = | 00000790: 53 54 52 20 5D 0D 42 45 4E 44 0D 0D 49 4E 54 20 |STR ].BEND..INT | 000007A0: 47 45 54 4E 28 20 29 0D 43 48 41 52 20 4E 55 4D |GETN( ).CHAR NUM| 000007B0: 42 45 52 5B 20 38 20 3B 0D 42 45 47 49 4E 0D 20 |BER[ 8 ;.BEGIN. | 000007C0: 20 4E 55 4D 42 45 52 20 28 20 2C 20 37 20 47 45 | NUMBER ( , 7 GE| 000007D0: 54 4C 20 29 20 53 57 41 50 20 56 41 4C 0D 42 45 |TL ) SWAP VAL.BE| 000007E0: 4E 44 0D 0D 2F 2A 20 2D 2D 2D 2D 2D 2D 2D 2D 20 |ND../* -------- | 000007F0: C5 58 54 45 52 4E 45 20 C7 45 52 41 45 54 45 20 |.XTERNE .ERAETE | 00000800: 2D 2D 2D 2D 2D 2D 2D 2D 20 2A 2F 0D 0D 56 4F 49 |-------- */..VOI| 00000810: 44 20 4F 50 45 4E 28 20 4C 46 4E 20 47 45 52 20 |D OPEN( LFN GER | 00000820: 53 45 4B 20 4C 49 53 54 45 20 29 0D 44 45 46 20 |SEK LISTE ).DEF | 00000830: 53 45 54 4C 46 53 20 30 58 46 46 42 41 20 53 59 |SETLFS 0XFFBA SY| 00000840: 53 3B 0D 44 45 46 20 53 45 54 4E 41 4D 20 30 58 |S;.DEF SETNAM 0X| 00000850: 46 46 42 44 20 53 59 53 3B 0D 44 45 46 20 46 4F |FFBD SYS;.DEF FO| 00000860: 50 45 4E 20 30 58 46 46 43 30 20 53 59 53 3B 0D |PEN 0XFFC0 SYS;.| 00000870: 49 4E 54 20 5A 47 20 3B 0D 43 48 41 52 20 46 49 |INT ZG ;.CHAR FI| 00000880: 4C 45 5B 20 34 30 20 3B 0D 42 45 47 49 4E 20 2C |LE[ 40 ;.BEGIN ,| 00000890: 20 30 58 46 46 46 46 20 2C 0D 20 20 4C 46 4E 20 | 0XFFFF ,. LFN | 000008A0: 5D 20 41 43 20 42 59 20 3D 0D 20 20 47 45 52 20 |] AC BY =. GER | 000008B0: 5D 20 58 52 20 42 59 20 3D 0D 20 20 53 45 4B 20 |] XR BY =. SEK | 000008C0: 5D 20 59 52 20 42 59 20 3D 20 53 45 54 4C 46 53 |] YR BY = SETLFS| 000008D0: 0D 20 20 53 45 4B 20 5D 20 4E 4F 54 20 4E 49 46 |. SEK ] NOT NIF| 000008E0: 20 4E 41 4D 0D 20 20 4C 49 53 54 45 20 5A 47 20 | NAM. LISTE ZG | 000008F0: 3D 20 5D 20 4E 4F 54 20 4E 49 46 20 4E 41 4D 0D |= ] NOT NIF NAM.| 00000900: 20 20 46 49 4C 45 20 53 57 41 50 0D 3A 20 4C 41 | FILE SWAP.: LA| 00000910: 42 20 4E 4F 54 20 24 3C 20 28 20 32 20 5A 47 20 |B NOT $< ( 2 ZG | 00000920: 2B 3D 20 5D 20 29 20 4E 4F 54 20 49 46 20 4C 41 |+= ] ) NOT IF LA| 00000930: 42 0D 20 20 46 49 4C 45 20 4C 45 4E 0D 3A 20 4E |B. FILE LEN.: N| 00000940: 41 4D 20 41 43 20 42 59 20 3D 20 46 49 4C 45 20 |AM AC BY = FILE | 00000950: 58 52 20 3D 20 53 45 54 4E 41 4D 20 46 4F 50 45 |XR = SETNAM FOPE| 00000960: 4E 0D 42 45 4E 44 0D 0D 44 45 46 20 23 20 30 58 |N.BEND..DEF # 0X| 00000970: 46 46 43 43 20 53 59 53 3B 0D 0D 56 4F 49 44 20 |FFCC SYS;..VOID | 00000980: 23 49 28 20 29 0D 42 45 47 49 4E 0D 20 20 23 20 |#I( ).BEGIN. # | 00000990: 53 57 41 50 20 58 52 20 42 59 20 3D 20 30 58 46 |SWAP XR BY = 0XF| 000009A0: 46 43 36 20 53 59 53 0D 42 45 4E 44 0D 0D 56 4F |FC6 SYS.BEND..VO| 000009B0: 49 44 20 23 4F 28 20 29 0D 42 45 47 49 4E 0D 20 |ID #O( ).BEGIN. | 000009C0: 20 23 20 53 57 41 50 20 58 52 20 42 59 20 3D 20 | # SWAP XR BY = | 000009D0: 30 58 46 46 43 39 20 53 59 53 0D 42 45 4E 44 0D |0XFFC9 SYS.BEND.| 000009E0: 0D 56 4F 49 44 20 43 4C 4F 53 45 28 20 29 0D 42 |.VOID CLOSE( ).B| 000009F0: 45 47 49 4E 0D 20 20 23 20 53 57 41 50 20 41 43 |EGIN. # SWAP AC| 00000A00: 20 42 59 20 3D 20 43 4C 43 20 30 58 46 46 43 33 | BY = CLC 0XFFC3| 00000A10: 20 53 59 53 0D 42 45 4E 44 0D 0D 44 45 46 20 53 | SYS.BEND..DEF S| 00000A20: 54 41 54 20 30 58 39 30 20 42 59 20 5D 3B 0D 0D |TAT 0X90 BY ];..| 00000A30: 2F 2A 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 20 C1 |/* ----------- .| 00000A40: 4E 57 45 4E 44 55 4E 47 20 2D 2D 2D 2D 2D 2D 2D |NWENDUNG -------| 00000A50: 2D 2D 2D 2D 20 2A 2F 0D 0D 4D 41 49 4E 28 29 0D |---- */..MAIN().| 00000A60: 42 45 47 49 4E 0D 42 45 4E 44 0D 0D |BEGIN.BEND.. |
/* ------ STRINGFUNKTIONEN ------ */..IN T LEN( ).BEGIN. ( , 0XFFFF , 0 FIND ) S WAP -.BEND..INT $<( ).INT LE ;.BEGIN. S WAP ( SWAP , SWAP , SWAP LEN LE = 1 + CO PY ) SWAP LE ] +.BEND..INT INCHAR( STR Z ).BEGIN ,. ( STR ] , ( LEN ) + , Z ] F IND ). NIF FERT. STR --] -.: FERT.BEND ..INT VAL( ).INT S , ERG ;.BEGIN. S = 0 ERG =.: LAB0 S ]++ BY ] NIF FF 0X1F AND NIF LAB0.: LAB1 15 AND ( ERG ] 10 * ) + ERG =.: LAB2 S ]++ BY ] 0X1F AND IF LAB 1. ERG ].: FF BEND..INT SCAN( AN EN STR N ).BEGIN , NIF FERT.: LAB ( AN ] , EN ] , STR BY ]] FIND ). NIF FERT. AN = ( AN ]++ , STR ] , N BY ] COMP ). NIF LA B AN --].: FERT BEND../* --- BILDSCHIRM, FARBE UND CURSOR */..VOID MODSWAP( ).BE GIN. 0 SYSCON 64 == IF FF 0XFF5F SYS.: FF BEND..VOID COLOR( VF HF RF ).BEGIN , 0 ,. VF --] 5 SYSCON BY =. HF ] NIF FF 1 - 53281 BY =. RF ] NIF FF 1 - 53280 BY =.: FF BEND..VOID AT( Y X ).BEGIN. Y R BY = Y ] XR BY =. CLC 0XFFF0 SYS.BEND ..CHAR POSXY( ).BEGIN. SEC 0XFFF0 SYS X R BY ] YR BY ].BEND..VOID TAB( ).BEGIN. ( POSXY SWAP ) ( , SWAP AT ).BEND../* - ------ AUSGABEFUNKTIONEN ------- */..VOI D PUTC( ).BEGIN. AC BY = 0XFFD2 SYS.BEN D..VOID PUTL( ).INT ZG ;.BEGIN. ZG = GO RD.: WR PUTC.: RD ZG ]++ BY ] IF WR.BEN D..VOID RPUTN( ).BEGIN. NIF FF ( 10 / R PUTN ). SWAP 10 % '0' + PUTC.: FF BEND. .VOID PUTN( ).BEGIN. NIF FF RPUTN RETUR N.: FF '0' PUTC.BEND..VOID PRINT( LISTE ).INT ZG ;.BEGIN , 0 ,. LISTE ZG = ].: LAB PUTL 2 ZG += ] IF LAB.BEND..VOID FPR INT( STRING ).INT PAR , ZG ;.BEGIN. , ST RING PAR = ] ZG =.: LAB1 ZG BY ]] NIF FF . ZG BY ]] '%' == IF ZAHL. ZG ]++ BY ] PUTC GO LAB1.: ZAHL 2 PAR +=. ZG ]++ P AR ]] PUTN GO LAB1.: FF BEND../* ------ EINGABEFUNKTIONEN -------- */..CHAR GETC ( ).BEGIN. 0XFFE4 SYS AC BY ].BEND..CHA R KEY( ).BEGIN.: RD GETC NIF RD.BEND..IN T GETL( STR LIM ).DEF BASIN 0XFFCF SYS A C BY ];.BEGIN. , GO RD.: WR SWAP STR ]+ + BY =.: RD BASIN '/N' == IF FF. SWAP L IM ]-- IF WR.: NE BASIN 'N' == NIF NE.: FF 0 STR ] BY = STR ].BEND..INT GETN( ). CHAR NUMBER[ 8 ;.BEGIN. NUMBER ( , 7 GE TL ) SWAP VAL.BEND../* -------- EXTERNE GERAETE -------- */..VOID OPEN( LFN GER SEK LISTE ).DEF SETLFS 0XFFBA SYS;.DEF S ETNAM 0XFFBD SYS;.DEF FOPEN 0XFFC0 SYS;. INT ZG ;.CHAR FILE[ 40 ;.BEGIN , 0XFFFF ,. LFN ] AC BY =. GER ] XR BY =. SEK ] YR BY = SETLFS. SEK ] NOT NIF NAM. L ISTE ZG = ] NOT NIF NAM. FILE SWAP.: LA B NOT $< ( 2 ZG += ] ) NOT IF LAB. FILE LEN.: NAM AC BY = FILE XR = SETNAM FOPE N.BEND..DEF # 0XFFCC SYS;..VOID #I( ).BE GIN. # SWAP XR BY = 0XFFC6 SYS.BEND..VO ID #O( ).BEGIN. # SWAP XR BY = 0XFFC9 S YS.BEND..VOID CLOSE( ).BEGIN. # SWAP AC BY = CLC 0XFFC3 SYS.BEND..DEF STAT 0X90 BY ];../* ----------- ANWENDUNG ------- ---- */..MAIN().BEGIN.BEND..
> CLICK IMAGE PREVIEW FOR FULL MODAL