LISTING 7
FILE INFORMATION
FILENAME(S): LISTING 7
FILE TYPE(S): PRG
FILE SIZE: 2.4K
FIRST SEEN: 2025-11-30 01:13:15
APPEARS ON: 1 disk(s)
FILE HASH
0ea9bb7d6824dbadf50c598bef47c72f9a4a772b12770f15218b9de6d6fffb15
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| 15828 SEITE A | LISTING 7 | PRG | C64er | 9 | 9 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: D8 1F F1 1F 05 00 2E 4F 42 22 40 3A 4C 49 53 54 |.......OB"@:LIST| 00000010: 37 2E 45 58 45 2C 50 2C 57 22 00 FF 1F 0A 00 20 |7.EXE,P,W"..... | 00000020: 2E 42 41 32 30 30 30 30 00 10 20 14 00 20 2E 2E |.BA20000.. .. ..| 00000030: 2E 49 4E 49 54 2D 4C 49 42 00 1C 20 19 00 20 2E |.INIT-LIB.. .. .| 00000040: 2E 2E 43 4C 53 00 3E 20 1E 00 20 2E 2E 2E 45 58 |..CLS.> .. ...EX| 00000050: 45 43 4C 49 42 28 44 45 4D 4F 54 45 58 54 2C 43 |ECLIB(DEMOTEXT,C| 00000060: 4F 4E 56 45 52 54 29 00 57 20 28 00 20 2E 2E 2E |ONVERT).W (. ...| 00000070: 50 55 54 53 54 52 49 4E 47 28 31 30 2C 31 30 29 |PUTSTRING(10,10)| 00000080: 00 86 20 29 00 44 45 4D 4F 54 45 58 54 20 2E 54 |.. ).DEMOTEXT .T| 00000090: 58 22 C8 49 45 52 2C 42 45 49 20 31 30 2F 31 30 |X".IER,BEI 10/10| 000000A0: 20 46 41 45 4E 47 54 27 53 20 41 4E 2E 2E 22 00 | FAENGT'S AN..".| 000000B0: 95 20 2A 00 20 2E 42 59 47 4F 54 4F 58 59 00 A1 |. *. .BYGOTOXY..| 000000C0: 20 2B 00 20 2E 57 4F 31 30 30 00 AD 20 2C 00 20 | +. .WO100.. ,. | 000000D0: 2E 42 59 31 30 30 00 BD 20 2D 00 20 2E 42 59 4F |.BY100.. -. .BYO| 000000E0: 55 54 4C 49 4E 45 00 CC 20 2E 00 20 2E 42 59 42 |UTLINE.. .. .BYB| 000000F0: 4F 4C 44 4F 4E 00 EA 20 2F 00 20 2E 54 58 22 C4 |OLDON.. /. .TX".| 00000100: 45 52 20 36 34 27 45 52 20 C7 C5 CF D3 2D CB 55 |ER 64'ER ....-.U| 00000110: 52 53 22 00 F5 20 30 00 20 2E 42 59 43 52 00 07 |RS".. 0. .BYCR..| 00000120: 21 31 00 20 2E 42 59 50 4C 41 49 4E 54 45 58 54 |!1. .BYPLAINTEXT| 00000130: 00 12 21 32 00 20 2E 42 59 43 52 00 23 21 33 00 |..!2. .BYCR.#!3.| 00000140: 20 2E 42 59 49 54 41 4C 49 43 4F 4E 00 40 21 34 | .BYITALICON.@!4| 00000150: 00 20 2E 54 58 22 20 20 20 20 20 20 20 20 20 20 |. .TX" | 00000160: 20 C9 54 41 4C 49 43 20 22 00 54 21 35 00 20 2E | .TALIC ".T!5. .| 00000170: 42 59 55 4E 44 45 52 4C 49 4E 45 4F 4E 00 6D 21 |BYUNDERLINEON.m!| 00000180: 36 00 20 2E 54 58 22 D5 4E 54 45 52 53 54 52 49 |6. .TX".NTERSTRI| 00000190: 43 48 45 4E 21 22 00 78 21 37 00 20 2E 42 59 43 |CHEN!".x!7. .BYC| 000001A0: 52 00 8A 21 38 00 20 2E 42 59 50 4C 41 49 4E 54 |R..!8. .BYPLAINT| 000001B0: 45 58 54 00 98 21 39 00 20 2E 42 59 47 4F 54 4F |EXT..!9. .BYGOTO| 000001C0: 58 00 A4 21 3A 00 20 2E 57 4F 31 30 30 00 B6 21 |X..!:. .WO100..!| 000001D0: 3B 00 20 2E 42 59 43 4F 4D 4D 4F 44 4F 52 45 00 |;. .BYCOMMODORE.| 000001E0: C8 21 3C 00 20 2E 42 59 52 45 56 45 52 53 45 4F |.!<. .BYREVERSEO| 000001F0: 4E 00 E2 21 3D 00 20 2E 54 58 22 20 D4 45 53 54 |N..!=. .TX" .EST| 00000200: 20 20 D4 45 53 54 20 20 21 21 22 00 EF 21 3E 00 | .EST !!"..!>.| 00000210: 20 2E 42 59 4E 55 4C 4C 00 FB 21 46 00 20 4C 44 | .BYNULL..!F. LD| 00000220: 41 23 33 30 00 07 22 4B 00 20 4C 44 58 23 30 30 |A#30.."K. LDX#00| 00000230: 00 13 22 50 00 20 4C 44 59 23 30 30 00 24 22 55 |.."P. LDY#00.$"U| 00000240: 00 53 43 48 4C 45 49 46 45 20 44 45 59 00 35 22 |.SCHLEIFE DEY.5"| 00000250: 5A 00 20 42 4E 45 53 43 48 4C 45 49 46 45 00 3E |Z. BNESCHLEIFE.>| 00000260: 22 5F 00 20 44 45 58 00 4F 22 64 00 20 42 4E 45 |"_. DEX.O"d. BNE| 00000270: 53 43 48 4C 45 49 46 45 00 58 22 69 00 20 53 45 |SCHLEIFE.X"i. SE| 00000280: 43 00 64 22 6E 00 20 53 42 43 23 30 31 00 75 22 |C.d"n. SBC#01.u"| 00000290: 70 00 20 42 4E 45 53 43 48 4C 45 49 46 45 00 90 |p. BNESCHLEIFE..| 000002A0: 22 73 00 20 4A 4D 50 24 43 32 32 43 3B 20 5A 55 |"s. JMP$C22C; ZU| 000002B0: 4D 20 44 45 53 4B 54 4F 50 00 B6 22 10 27 3B 2A |M DESKTOP..".';*| 000002C0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000002D0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 |***************.| 000002E0: BC 22 11 27 3B 00 DC 22 12 27 3B 20 C7 45 4F 53 |.".';..".'; .EOS| 000002F0: 20 CC 49 42 52 41 52 59 20 3A 20 CB 4F 4E 53 54 | .IBRARY : .ONST| 00000300: 41 4E 54 45 4E 00 00 23 13 27 3B 20 20 20 20 20 |ANTEN..#.'; | 00000310: 20 20 20 20 20 20 20 20 20 20 20 D3 50 52 55 4E | .PRUN| 00000320: 47 41 44 52 45 53 53 45 4E 00 1C 23 14 27 3B 20 |GADRESSEN..#.'; | 00000330: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 CD | .| 00000340: 41 4B 52 4F 53 00 22 23 15 27 3B 00 42 23 16 27 |AKROS."#.';.B#.'| 00000350: 3B 20 20 20 46 55 45 52 20 C7 C5 CF D3 20 D0 52 |; FUER .... .R| 00000360: 4F 47 52 41 4D 4D 49 45 52 45 52 00 48 23 17 27 |OGRAMMIERER.H#.'| 00000370: 3B 00 69 23 18 27 3B 20 20 C1 55 54 4F 52 3A 20 |;.i#.'; .UTOR: | 00000380: D4 48 4F 52 53 54 45 4E 20 D0 45 54 52 4F 57 53 |.HORSTEN .ETROWS| 00000390: 4B 49 00 6F 23 19 27 3B 00 8A 23 1A 27 3B 20 20 |KI.o#.';..#.'; | 000003A0: 20 20 20 20 20 28 43 29 20 31 39 38 37 20 36 34 | (C) 1987 64| 000003B0: 27 45 52 00 90 23 1B 27 3B 00 B6 23 1C 27 3B 2A |'ER..#.';..#.';*| 000003C0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000003D0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 |***************.| 000003E0: BC 23 1D 27 3B 00 C2 23 1E 27 3B 00 C8 23 1F 27 |.#.';..#.';..#.'| 000003F0: 3B 00 E6 23 20 27 3B 20 2A 2A 20 D5 45 42 45 52 |;..# '; ** .EBER| 00000400: 47 45 42 45 4E 20 44 45 52 20 C7 C5 CF D3 2D 00 |GEBEN DER ....-.| 00000410: 08 24 21 27 3B 20 20 20 20 CB 4F 4E 53 54 41 4E |.$!'; .ONSTAN| 00000420: 54 45 4E 20 26 20 D2 4F 55 54 49 4E 45 4E 20 2A |TEN & .OUTINEN *| 00000430: 2A 00 0E 24 22 27 3B 00 1F 24 23 27 2E 4D 41 20 |*..$"';..$#'.MA | 00000440: 49 4E 49 54 2D 4C 49 42 00 3B 24 E0 2E 2E 47 4C |INIT-LIB.;$...GL| 00000450: 20 49 50 55 54 53 54 52 49 4E 47 20 20 3D 20 24 | IPUTSTRING = $| 00000460: 43 31 41 45 00 53 24 E1 2E 2E 47 4C 20 4E 55 4C |C1AE.S$...GL NUL| 00000470: 4C 20 20 20 20 20 20 20 20 3D 20 30 00 6B 24 E2 |L = 0.k$.| 00000480: 2E 2E 47 4C 20 42 41 43 4B 53 50 43 20 20 20 20 |..GL BACKSPC | 00000490: 20 3D 20 38 00 83 24 E3 2E 2E 47 4C 20 46 57 44 | = 8..$...GL FWD| 000004A0: 53 50 43 20 20 20 20 20 20 3D 20 39 00 9C 24 E4 |SPC = 9..$.| 000004B0: 2E 2E 47 4C 20 4C 46 20 20 20 20 20 20 20 20 20 |..GL LF | 000004C0: 20 3D 20 31 30 00 B5 24 E6 2E 2E 47 4C 20 55 50 | = 10..$...GL UP| 000004D0: 4C 20 20 20 20 20 20 20 20 20 3D 20 31 32 00 CE |L = 12..| 000004E0: 24 E7 2E 2E 47 4C 20 43 52 20 20 20 20 20 20 20 |$...GL CR | 000004F0: 20 20 20 3D 20 31 33 00 E7 24 E8 2E 2E 47 4C 20 | = 13..$...GL | 00000500: 55 4E 44 45 52 4C 49 4E 45 4F 4E 20 3D 20 31 34 |UNDERLINEON = 14| 00000510: 00 00 25 E9 2E 2E 47 4C 20 55 4E 44 45 52 4C 49 |..%...GL UNDERLI| 00000520: 4E 45 4F 46 46 3D 20 31 35 00 19 25 EA 2E 2E 47 |NEOFF= 15..%...G| 00000530: 4C 20 52 45 56 45 52 53 45 4F 4E 20 20 20 3D 20 |L REVERSEON = | 00000540: 31 38 00 32 25 EB 2E 2E 47 4C 20 52 45 56 45 52 |18.2%...GL REVER| 00000550: 53 45 4F 46 46 20 20 3D 20 31 39 00 4B 25 EC 2E |SEOFF = 19.K%..| 00000560: 2E 47 4C 20 47 4F 54 4F 58 20 20 20 20 20 20 20 |.GL GOTOX | 00000570: 3D 20 32 30 00 64 25 ED 2E 2E 47 4C 20 47 4F 54 |= 20.d%...GL GOT| 00000580: 4F 59 20 20 20 20 20 20 20 3D 20 32 31 00 7D 25 |OY = 21.}%| 00000590: EE 2E 2E 47 4C 20 47 4F 54 4F 58 59 20 20 20 20 |...GL GOTOXY | 000005A0: 20 20 3D 20 32 32 00 96 25 EF 2E 2E 47 4C 20 42 | = 22..%...GL B| 000005B0: 4F 4C 44 4F 4E 20 20 20 20 20 20 3D 20 32 34 00 |OLDON = 24.| 000005C0: AF 25 F0 2E 2E 47 4C 20 49 54 41 4C 49 43 4F 4E |.%...GL ITALICON| 000005D0: 20 20 20 20 3D 20 32 35 00 C8 25 F1 2E 2E 47 4C | = 25..%...GL| 000005E0: 20 4F 55 54 4C 49 4E 45 20 20 20 20 20 3D 20 32 | OUTLINE = 2| 000005F0: 36 00 E1 25 F2 2E 2E 47 4C 20 50 4C 41 49 4E 54 |6..%...GL PLAINT| 00000600: 45 58 54 20 20 20 3D 20 32 37 00 FB 25 F3 2E 2E |EXT = 27..%...| 00000610: 47 4C 20 43 4F 4D 4D 4F 44 4F 52 45 20 20 20 3D |GL COMMODORE =| 00000620: 20 31 32 38 00 03 26 C7 32 2E 52 54 00 09 26 98 | 128..&.2.RT..&.| 00000630: 3A 3B 00 26 26 9D 3A 3B 20 20 2A 20 CD 41 4B 52 |:;.&&.:; * .AKR| 00000640: 4F 53 20 26 20 D2 4F 55 54 49 4E 45 4E 20 2A 00 |OS & .OUTINEN *.| 00000650: 2C 26 A2 3A 3B 00 49 26 A7 3A 2E 4D 41 20 45 58 |,&.:;.I&.:.MA EX| 00000660: 45 43 4C 49 42 20 28 4C 41 42 4C 45 2C 43 41 4C |ECLIB (LABLE,CAL| 00000670: 4C 29 00 5B 26 AC 3A 20 4C 44 41 23 3C 28 4C 41 |L).[&.: LDA#<(LA| 00000680: 42 4C 45 29 00 67 26 B1 3A 20 53 54 41 24 46 42 |BLE).g&.: STA$FB| 00000690: 00 79 26 B6 3A 20 4C 44 41 23 3E 28 4C 41 42 4C |.y&.: LDA#>(LABL| 000006A0: 45 29 00 85 26 BB 3A 20 53 54 41 24 46 43 00 92 |E)..&.: STA$FC..| 000006B0: 26 C0 3A 20 4A 53 52 43 41 4C 4C 00 9B 26 C5 3A |&.: JSRCALL..&.:| 000006C0: 20 2E 52 54 00 A1 26 CA 3A 3B 00 A7 26 CF 3A 3B | .RT..&.:;..&.:;| 000006D0: 00 CA 26 D4 3A 3B 20 20 20 CB 4F 4E 56 45 52 54 |..&.:; .ONVERT| 000006E0: 49 45 52 55 4E 47 20 56 4F 4E 20 D4 45 58 54 20 |IERUNG VON .EXT | 000006F0: 49 4E 53 00 E2 26 D5 3A 3B 20 20 20 20 20 20 20 |INS..&.:; | 00000700: C7 45 4F 53 2D C6 4F 52 4D 41 54 00 E8 26 D6 3A |.EOS-.ORMAT..&.:| 00000710: 3B 00 FC 26 D9 3A 43 4F 4E 56 45 52 54 20 4C 44 |;..&.:CONVERT LD| 00000720: 58 23 24 30 30 00 08 27 DE 3A 20 4C 44 41 24 46 |X#$00..'.: LDA$F| 00000730: 42 00 18 27 E3 3A 20 53 54 41 43 4E 56 54 33 2B |B..'.: STACNVT3+| 00000740: 31 00 27 27 E8 3A 20 53 54 41 4E 45 58 54 2B 31 |1.''.: STANEXT+1| 00000750: 00 33 27 ED 3A 20 4C 44 41 24 46 43 00 43 27 F2 |.3'.: LDA$FC.C'.| 00000760: 3A 20 53 54 41 43 4E 56 54 33 2B 32 00 52 27 F7 |: STACNVT3+2.R'.| 00000770: 3A 20 53 54 41 4E 45 58 54 2B 32 00 67 27 FC 3A |: STANEXT+2.g'.:| 00000780: 43 4E 56 54 33 20 4C 44 41 24 46 46 46 46 2C 58 |CNVT3 LDA$FFFF,X| 00000790: 00 76 27 01 3B 20 42 45 51 45 4E 44 43 4E 56 00 |.v'.; BEQENDCNV.| 000007A0: 8C 27 06 3B 43 4F 4E 56 45 52 54 43 44 20 43 4D |.'.;CONVERTCD CM| 000007B0: 50 23 22 41 22 00 99 27 0B 3B 20 42 43 43 4E 45 |P#"A"..'.; BCCNE| 000007C0: 58 54 00 A5 27 10 3B 20 43 4D 50 23 39 31 00 B2 |XT..'.; CMP#91..| 000007D0: 27 15 3B 20 42 43 53 4E 45 58 54 00 BF 27 1A 3B |'.; BCSNEXT..'.;| 000007E0: 20 45 4F 52 23 24 32 30 00 CC 27 1F 3B 20 4A 4D | EOR#$20..'.; JM| 000007F0: 50 4E 45 58 54 00 E1 27 24 3B 53 43 4E 44 43 4E |PNEXT..'$;SCNDCN| 00000800: 56 54 20 43 4D 50 23 22 C1 22 00 EE 27 29 3B 20 |VT CMP#"."..'); | 00000810: 42 43 43 4E 45 58 54 00 FB 27 2E 3B 20 43 4D 50 |BCCNEXT..'.; CMP| 00000820: 23 32 31 39 00 08 28 33 3B 20 42 43 53 4E 45 58 |#219..(3; BCSNEX| 00000830: 54 00 15 28 38 3B 20 45 4F 52 23 24 32 30 00 29 |T..(8; EOR#$20.)| 00000840: 28 3D 3B 4E 45 58 54 20 53 54 41 24 46 46 46 46 |(=;NEXT STA$FFFF| 00000850: 2C 58 00 32 28 42 3B 20 49 4E 58 00 40 28 47 3B |,X.2(B; INX.@(G;| 00000860: 20 4A 4D 50 43 4E 56 54 33 00 4F 28 4C 3B 45 4E | JMPCNVT3.O(L;EN| 00000870: 44 43 4E 56 20 52 54 53 00 55 28 51 3B 3B 00 5B |DCNV RTS.U(Q;;.[| 00000880: 28 56 3B 3B 00 79 28 5B 3B 3B 20 2A 20 C2 49 4C |(V;;.y([;; * .IL| 00000890: 44 53 43 48 49 52 4D 20 4C 4F 45 53 43 48 45 4E |DSCHIRM LOESCHEN| 000008A0: 20 2A 00 85 28 60 3B 2E 4D 41 20 43 4C 53 00 9D | *..(`;.MA CLS..| 000008B0: 28 61 3B 20 4A 53 52 24 43 34 39 43 3B 20 47 45 |(a; JSR$C49C; GE| 000008C0: 4F 53 20 31 2E 33 00 B8 28 62 3B 3B 20 46 55 45 |OS 1.3..(b;; FUE| 000008D0: 52 20 47 45 4F 53 20 31 2E 32 3A 20 24 43 44 41 |R GEOS 1.2: $CDA| 000008E0: 33 00 C1 28 65 3B 20 2E 52 54 00 C7 28 66 3B 3B |3..(e; .RT..(f;;| 000008F0: 00 E1 28 67 3B 3B 20 2A 20 D3 54 52 49 4E 47 20 |..(g;; * .TRING | 00000900: 41 55 53 47 45 42 45 4E 20 2A 00 F9 28 6A 3B 2E |AUSGEBEN *..(j;.| 00000910: 4D 41 20 50 55 54 53 54 52 49 4E 47 20 28 58 2C |MA PUTSTRING (X,| 00000920: 59 29 00 0C 29 74 3B 20 4A 53 52 49 50 55 54 53 |Y)..)t; JSRIPUTS| 00000930: 54 52 49 4E 47 00 16 29 79 3B 20 2E 57 4F 58 00 |TRING..)y; .WOX.| 00000940: 20 29 7E 3B 20 2E 42 59 59 00 29 29 83 3B 20 2E | )~; .BYY.)).; .| 00000950: 52 54 00 3C 29 4F C3 3B 20 2A 2A 2A 20 C5 4E 44 |RT.<)O.; *** .ND| 00000960: 45 20 2A 2A 2A 00 44 29 50 C3 2E 45 4E 00 00 00 |E ***.D)P..EN...|
X......OB"@:LIST7.EXE,P,W"..... .BA20000 .. .. ...INIT-LIB.. .. ...CLS.> .. ...EX ECLIB(DEMOTEXT,CONVERT).W (. ...PUTSTRIN G(10,10).. ).DEMOTEXT .TX"HIER,BEI 10/10 FAENGT'S AN..".. *. .BYGOTOXY.. +. .WO1 00.. ,. .BY100.. -. .BYOUTLINE.L .. .BYB OLDON.. /. .TX"DER 64'ER GEOS-KURS".. 0. .BYCR..!1. .BYPLAINTEXT..!2. .BYCR.#!3. .BYITALICON.@!4. .TX" ITALIC ".T!5. .BYUNDERLINEON.M!6. .TX"UNTERSTRI CHEN!".X!7. .BYCR..!8. .BYPLAINTEXT..!9. .BYGOTOX..!:. .WO100..!;. .BYCOMMODORE. H!<. .BYREVERSEON..!=. .TX" TEST TEST !!"..!>. .BYNULL..!F. LDA#30.."K. LDX#00 .."P. LDY#00.$"U.SCHLEIFE DEY.5"Z. BNESC HLEIFE.>"_. DEX.O"D. BNESCHLEIFE.X"I. SE C.D"N. SBC#01.U"P. BNESCHLEIFE.."S. JMP$ C22C; ZUM DESKTOP..".';***************** ***************..".';..".'; GEOS LIBRARY : KONSTANTEN..#.'; SPRUN GADRESSEN..#.'; MAKROS."# .';.B#.'; FUER GEOS PROGRAMMIERER.H#.' ;.I#.'; AUTOR: THORSTEN PETROWSKI.O#.'; ..#.'; (C) 1987 64'ER..#.';..#.';* *******************************..#.';.B# .';.H#.';..# '; ** UEBERGEBEN DER GEOS-. .$!'; KONSTANTEN & ROUTINEN **..$"';. .$#'.MA INIT-LIB.;$...GL IPUTSTRING = $ C1AE.S$...GL NULL = 0.K$...GL BAC KSPC = 8..$...GL FWDSPC = 9..$. ..GL LF = 10..$...GL UPL = 12.N$...GL CR = 13..$...GL UNDERLINEON = 14..%...GL UNDERLINEOFF= 1 5..%...GL REVERSEON = 18.2%...GL REVER SEOFF = 19.K%...GL GOTOX = 20.D%. ..GL GOTOY = 21.}%...GL GOTOXY = 22..%...GL BOLDON = 24..%...GL ITALICON = 25.H%...GL OUTLINE = 2 6..%...GL PLAINTEXT = 27..%...GL COMMO DORE = 128..&G2.RT..&.:;.&&.:; * MAKR OS & ROUTINEN *.,&.:;.I&.:.MA EXECLIB (L ABLE,CALL).[&.: LDA#<(LABLE).G&.: STA$FB .Y&.: LDA#>(LABLE)..&.: STA$FC..&.: JSRC ALL..&E: .RT..&J:;..&O:;.J&T:; KONVERT IERUNG VON TEXT INS..&U:; GEOS-FOR MAT..&V:;..&Y:CONVERT LDX#$00..'.: LDA$F B..'.: STACNVT3+1.''.: STANEXT+1.3'.: LD A$FC.C'.: STACNVT3+2.R'.: STANEXT+2.G'.: CNVT3 LDA$FFFF,X.V'.; BEQENDCNV..'.;CONV ERTCD CMP#"A"..'.; BCCNEXT..'.; CMP#91.. '.; BCSNEXT..'.; EOR#$20.L'.; JMPNEXT..' $;SCNDCNVT CMP#"A"..'); BCCNEXT..'.; CMP #219..(3; BCSNEXT..(8; EOR#$20.)(=;NEXT STA$FFFF,X.2(B; INX.@(G; JMPCNVT3.O(L;EN DCNV RTS.U(Q;;.[(V;;.Y([;; * BILDSCHIRM LOESCHEN *..(`;.MA CLS..(A; JSR$C49C; GE OS 1.3..(B;; FUER GEOS 1.2: $CDA3.A(E; . RT.G(F;;..(G;; * STRING AUSGEBEN *..(J;. MA PUTSTRING (X,Y)..)T; JSRIPUTSTRING..) Y; .WOX. )~; .BYY.)).; .RT.<)OC; *** END E ***.D)PC.EN...
> CLICK IMAGE PREVIEW FOR FULL MODAL