ASS-BEISPIEL
FILE INFORMATION
FILENAME(S): ASS-BEISPIEL
FILE TYPE(S): PRG
FILE SIZE: 2.5K
FIRST SEEN: 2025-11-30 20:14:53
APPEARS ON: 1 disk(s)
FILE HASH
04fad0f7ce862ad7a8f4a0f8e729fc2a4863cbecaae3242ef8c6e64e030fbad0
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| DIETER I | ASS-BEISPIEL | PRG | Curtcool, LPN | 17 | 3 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 01 20 19 08 C3 07 9E 32 35 36 AC C2 28 34 34 29 |. .....256..(44)|
00000010: AA C2 28 34 33 29 AA 32 36 00 00 00 A5 2C 18 69 |..(43).26....,.i|
00000020: 01 85 2C 48 38 E9 01 85 2C A0 FF A9 00 91 2B 68 |..,H8...,.....+h|
00000030: 85 2C 38 A5 2E E5 2C B0 05 A9 00 20 42 A6 20 59 |.,8...,.... B. Y|
00000040: A6 4C AE A7 20 FD AE 20 EB B7 E0 28 B0 13 A5 14 |.L.. .. ...(....|
00000050: C9 19 B0 0D 86 D3 85 D6 20 10 E5 20 FD AE 4C A0 |........ .. ..L.|
00000060: AA 4C 48 B2 44 3C 3C 3C BC 2C 3C 3C 9C 3C 3C 3C |.LH.D<<<.,<<.<<<|
00000070: BC 9C 3C 1C BC 3C 3C BC BC 1C 3C 3C 08 3C 3C 3C |..<..<<...<<.<<<|
00000080: 24 FF DE FE FE DE FE DE FE DE FE FE 7E FE FE FE |$...........~...|
00000090: FE FE 7E FE FE DE FE DE 7E FE 7E FE 7E DE FE FE |..~.....~.~.~...|
000000A0: 7E FE FE FE FE FE FE FE FE FE FE FE FE FF DE FE |~...............|
000000B0: FE FE DE FE FE FE FE FE FE 7E FE FE FE 7E FE FE |.........~...~..|
000000C0: FF FE FE FC 7E FE FC 7E FC FE 80 FE 7E FE FC 7C |....~..~....~..||
000000D0: FE FC FC FC EC 7E FC 6C 7C FE FE FC FC DC 7E FC |.....~.l|.....~.|
000000E0: 7C 7E FC DC FC 7E FC DC 7C FE FC 7C FE CC DC F4 ||~...~..|..|....|
000000F0: FE 7C FE 6C EE 7E 7C 7C FC FC 7C EC FF 6C FE 7C |.|.l.~||..|..l.||
00000100: FF 00 26 09 64 00 8F 20 22 CD 49 54 20 44 49 45 |..&.d.. ".IT DIE|
00000110: 53 45 4D 20 D0 52 4F 47 52 41 4D 4D 20 45 52 48 |SEM .ROGRAMM ERH|
00000120: 41 4C 54 45 4E 22 00 4C 09 6E 00 8F 20 22 D3 49 |ALTEN".L.n.. ".I|
00000130: 45 20 44 45 4E 20 CD 41 53 43 48 49 4E 45 4E 2D |E DEN .ASCHINEN-|
00000140: D3 54 41 52 54 45 52 20 4D 49 54 22 00 70 09 78 |.TARTER MIT".p.x|
00000150: 00 8F 20 22 D0 D2 C9 CE D4 C1 D4 20 55 4E 44 20 |.. "....... UND |
00000160: 45 49 4E 20 C2 C1 D3 C9 C3 2D D0 52 47 2E 2C 22 |EIN .....-.RG.,"|
00000170: 00 95 09 82 00 8F 20 22 4D 49 54 20 44 45 4D 20 |...... "MIT DEM |
00000180: D3 49 45 20 53 49 43 48 20 45 49 4E 20 D3 CF D5 |.IE SICH EIN ...|
00000190: D2 C3 C5 2D 22 00 B9 09 8C 00 8F 20 22 C6 49 4C |...-"...... ".IL|
000001A0: 45 20 46 55 45 52 20 C9 CE D0 D5 D4 2D C1 D3 D3 |E FUER .....-...|
000001B0: 20 41 42 53 50 45 49 2D 22 00 D0 09 96 00 8F 20 | ABSPEI-"...... |
000001C0: 22 43 48 45 52 4E 20 4B 4F 45 4E 4E 45 4E 2E 22 |"CHERN KOENNEN."|
000001D0: 00 E9 09 A0 00 53 46 B2 C2 28 34 39 31 35 32 29 |.....SF..(49152)|
000001E0: 3A 45 24 B2 C7 28 33 34 29 00 17 0A C8 00 50 41 |:E$..(34).....PA|
000001F0: B2 38 AC 32 35 36 AA 36 37 3A 8F 20 22 D0 D2 C9 |.8.256.67:. "...|
00000200: CE D4 C1 D4 20 41 4C 54 45 52 20 C1 4E 46 41 4E |.... ALTER .NFAN|
00000210: 47 20 2B 20 36 37 22 00 3C 0A D2 00 99 22 93 C7 |G + 67".<...."..|
00000220: 45 42 45 4E 20 D3 49 45 20 C7 45 52 41 45 54 45 |EBEN .IE .ERAETE|
00000230: 4E 55 4D 4D 45 52 20 41 4E 3A 22 3B 00 51 0A DC |NUMMER AN:";.Q..|
00000240: 00 A1 47 41 24 3A 8B 47 41 24 B2 22 22 A7 32 32 |..GA$:.GA$."".22|
00000250: 30 00 5F 0A E6 00 47 41 B2 C5 28 47 41 24 29 00 |0._...GA..(GA$).|
00000260: 74 0A F0 00 8B 20 47 41 B3 B1 31 AF 47 41 B3 37 |t.... GA..1.GA.7|
00000270: A7 32 32 30 00 92 0A FA 00 8B 20 53 46 B2 31 32 |.220...... SF.12|
00000280: 30 A7 99 22 CB 41 4C 54 53 54 41 52 54 21 21 22 |0..".ALTSTART!!"|
00000290: 3A 80 00 CD 0A 04 01 8B 20 47 41 B2 37 AF 53 46 |:....... GA.7.SF|
000002A0: B3 B1 31 36 30 A7 99 22 C5 52 53 54 20 D3 55 50 |..160..".RST .UP|
000002B0: 45 52 D4 41 50 45 20 4C 41 44 45 4E 20 55 4E 44 |ER.APE LADEN UND|
000002C0: 20 53 54 41 52 54 45 4E 21 21 22 3A 80 00 E7 0A | STARTEN!!":....|
000002D0: 0E 01 8B 53 46 B2 31 36 39 B0 53 46 B2 31 36 30 |...SF.169.SF.160|
000002E0: A7 9E 34 39 31 35 32 00 0B 0B 18 01 46 24 B2 22 |..49152.....F$."|
000002F0: 22 3A 53 41 B2 31 3A 8B 47 41 B1 37 A7 53 41 B2 |":SA.1:.GA.7.SA.|
00000300: 32 3A 46 24 B2 22 2C 53 2C 57 22 00 2B 0B 22 01 |2:F$.",S,W".+.".|
00000310: 9F 32 2C 47 41 2C 53 41 2C 22 53 30 31 2E 53 54 |.2,GA,SA,"S01.ST|
00000320: 41 52 54 45 52 22 AA 46 24 3A 99 00 47 0B 2C 01 |ARTER".F$:..G.,.|
00000330: 87 20 41 24 3A 8B C9 28 41 24 2C 31 29 B2 22 40 |. A$:..(A$,1)."@|
00000340: 22 A7 8D 20 35 30 30 00 5A 0B 36 01 8B 20 41 24 |".. 500.Z.6.. A$|
00000350: B2 22 2A 2A 2A 22 A7 34 30 30 00 68 0B 40 01 98 |."***".400.h.@..|
00000360: 32 2C 41 24 3A 99 41 24 00 72 0B 4A 01 89 20 33 |2,A$:.A$.r.J.. 3|
00000370: 30 30 00 7B 0B 90 01 A0 32 3A 80 00 85 0B F4 01 |00.{....2:......|
00000380: 58 24 B2 22 22 00 97 0B FE 01 81 20 4A B2 31 A4 |X$.""...... J.1.|
00000390: C3 28 41 24 29 AB 31 00 AB 0B 08 02 3A 20 41 41 |.(A$).1.....: AA|
000003A0: 24 B2 CA 28 41 24 2C 4A 2C 31 29 00 C9 0B 12 02 |$..(A$,J,1).....|
000003B0: 3A 20 8B 20 41 41 24 B2 22 40 22 A7 58 24 B2 58 |: . AA$."@".X$.X|
000003C0: 24 AA 45 24 3A 89 35 35 30 00 D9 0B 1C 02 3A 20 |$.E$:.550.....: |
000003D0: 58 24 B2 58 24 AA 41 41 24 00 E0 0B 26 02 82 4A |X$.X$.AA$...&..J|
000003E0: 00 EA 0B 30 02 41 24 B2 58 24 00 F0 0B 3A 02 8E |...0.A$.X$...:..|
000003F0: 00 02 0C 84 03 83 20 22 4F 52 47 20 24 30 38 30 |...... "ORG $080|
00000400: 31 22 00 23 0C 8E 03 83 20 22 3B 2A 2A 2A 2A 2A |1".#.... ";*****|
00000410: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000420: 2A 2A 22 00 44 0C 98 03 83 20 22 3B 2A 20 C2 41 |**".D.... ";* .A|
00000430: 53 49 43 2D C1 4E 46 41 4E 47 20 20 20 20 20 20 |SIC-.NFANG |
00000440: 20 20 2A 22 00 65 0C A2 03 83 20 22 3B 2A 20 48 | *".e.... ";* H|
00000450: 45 52 41 55 46 53 45 54 5A 45 4E 20 20 20 20 20 |ERAUFSETZEN |
00000460: 20 20 20 2A 22 00 86 0C AC 03 83 20 22 3B 2A 2A | *"...... ";**|
00000470: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000480: 2A 2A 2A 2A 2A 22 00 90 0C B6 03 83 20 22 3B 22 |*****"...... ";"|
00000490: 00 AA 0C C0 03 83 20 22 3A 43 48 4B 4F 4D 20 20 |...... ":CHKOM |
000004A0: 20 3D 20 20 24 41 45 46 44 22 00 C4 0C CA 03 83 | = $AEFD"......|
000004B0: 20 22 3A 47 45 54 43 4F 52 20 20 3D 20 20 24 42 | ":GETCOR = $B|
000004C0: 37 45 42 22 00 DE 0C D4 03 83 20 22 3A 50 4C 4F |7EB"...... ":PLO|
000004D0: 54 43 55 52 20 3D 20 20 24 45 35 31 30 22 00 F8 |TCUR = $E510"..|
000004E0: 0C DE 03 83 20 22 3A 50 52 49 4E 54 20 20 20 3D |.... ":PRINT =|
000004F0: 20 20 24 41 41 41 30 22 00 12 0D E8 03 83 20 22 | $AAA0"...... "|
00000500: 3A 49 4C 4C 51 55 20 20 20 3D 20 20 24 42 32 34 |:ILLQU = $B24|
00000510: 38 22 00 2A 0D F2 03 83 20 22 3A 53 50 41 4C 54 |8".*.... ":SPALT|
00000520: 45 20 20 3D 20 20 24 44 33 22 00 42 0D FC 03 83 |E = $D3".B....|
00000530: 20 22 3A 5A 45 49 4C 45 20 20 20 3D 20 20 24 44 | ":ZEILE = $D|
00000540: 36 22 00 4C 0D 06 04 83 20 22 3B 22 00 64 0D 10 |6".L.... ";".d..|
00000550: 04 83 20 22 3B C2 C1 D3 C9 C3 2D D3 D9 D3 2D DA |.. ";.....-...-.|
00000560: 45 49 4C 45 00 6E 0D 1A 04 83 20 22 3B 22 00 89 |EILE.n.... ";"..|
00000570: 0D 24 04 83 20 22 3A 42 45 47 49 4E 20 20 20 20 |.$.. ":BEGIN |
00000580: 57 20 53 54 41 52 54 2B 31 00 A1 0D 2E 04 83 20 |W START+1...... |
00000590: 22 20 20 20 20 20 20 20 20 20 20 57 20 31 39 38 |" W 198|
000005A0: 37 00 D9 0D 38 04 83 20 22 20 20 20 20 20 20 20 |7...8.. " |
000005B0: 20 20 20 42 20 24 39 45 2C 40 32 35 36 40 2C 24 | B $9E,@256@,$|
000005C0: 41 43 2C 24 43 32 2C 24 32 38 2C 40 34 34 40 2C |AC,$C2,$28,@44@,|
000005D0: 24 32 39 2C 24 41 41 40 22 00 08 0E 42 04 83 20 |$29,$AA@"...B.. |
000005E0: 22 20 20 20 20 20 20 20 20 20 20 42 20 24 43 32 |" B $C2|
000005F0: 2C 24 32 38 2C 40 34 33 40 2C 24 32 39 2C 24 41 |,$28,@43@,$29,$A|
00000600: 41 2C 40 32 36 40 40 22 00 21 0E 4C 04 83 20 22 |A,@26@@".!.L.. "|
00000610: 3A 53 54 41 52 54 20 20 20 20 42 20 30 2C 30 2C |:START B 0,0,|
00000620: 30 00 2B 0E 56 04 83 20 22 3B 22 00 43 0E 60 04 |0.+.V.. ";".C.`.|
00000630: 83 20 22 3A 53 45 54 42 41 53 49 43 20 4C 44 41 |. ":SETBASIC LDA|
00000640: 20 34 34 00 59 0E 6A 04 83 20 22 20 20 20 20 20 | 44.Y.j.. " |
00000650: 20 20 20 20 20 43 4C 43 22 00 7F 0E 74 04 83 20 | CLC"...t.. |
00000660: 22 20 20 20 20 20 20 20 20 20 20 41 44 43 20 23 |" ADC #|
00000670: 3E 45 4E 44 45 2D 42 45 47 49 4E 2B 32 35 36 00 |>ENDE-BEGIN+256.|
00000680: 97 0E 7E 04 83 20 22 20 20 20 20 20 20 20 20 20 |..~.. " |
00000690: 20 53 54 41 20 34 34 00 AC 0E 88 04 83 20 22 20 | STA 44...... " |
000006A0: 20 20 20 20 20 20 20 20 20 50 48 41 00 C1 0E 92 | PHA....|
000006B0: 04 83 20 22 20 20 20 20 20 20 20 20 20 20 53 45 |.. " SE|
000006C0: 43 00 D9 0E 9C 04 83 20 22 20 20 20 20 20 20 20 |C...... " |
000006D0: 20 20 20 53 42 43 20 23 31 00 F1 0E A6 04 83 20 | SBC #1...... |
000006E0: 22 20 20 20 20 20 20 20 20 20 20 53 54 41 20 34 |" STA 4|
000006F0: 34 00 0A 0F B0 04 83 20 22 20 20 20 20 20 20 20 |4...... " |
00000700: 20 20 20 4C 44 59 20 32 35 35 00 22 0F BA 04 83 | LDY 255."....|
00000710: 20 22 20 20 20 20 20 20 20 20 20 20 4C 44 41 20 | " LDA |
00000720: 23 30 00 3E 0F C4 04 83 20 22 20 20 20 20 20 20 |#0.>.... " |
00000730: 20 20 20 20 53 54 41 20 28 34 33 29 2C 59 00 53 | STA (43),Y.S|
00000740: 0F CE 04 83 20 22 20 20 20 20 20 20 20 20 20 20 |.... " |
00000750: 50 4C 41 00 6B 0F D8 04 83 20 22 20 20 20 20 20 |PLA.k.... " |
00000760: 20 20 20 20 20 53 54 41 20 34 34 00 80 0F E2 04 | STA 44.....|
00000770: 83 20 22 20 20 20 20 20 20 20 20 20 20 53 45 43 |. " SEC|
00000780: 00 98 0F EC 04 83 20 22 20 20 20 20 20 20 20 20 |...... " |
00000790: 20 20 4C 44 41 20 34 36 00 B0 0F F6 04 83 20 22 | LDA 46...... "|
000007A0: 20 20 20 20 20 20 20 20 20 20 53 42 43 20 34 34 | SBC 44|
000007B0: 00 C9 0F 00 05 83 20 22 20 20 20 20 20 20 20 20 |...... " |
000007C0: 20 20 42 43 53 20 52 55 4E 00 E1 0F 0A 05 83 20 | BCS RUN...... |
000007D0: 22 20 20 20 20 20 20 20 20 20 20 4C 44 41 20 23 |" LDA #|
000007E0: 30 00 FC 0F 14 05 83 20 22 20 20 20 20 20 20 20 |0...... " |
000007F0: 20 20 20 4A 53 52 20 24 41 36 34 32 00 17 10 1E | JSR $A642....|
00000800: 05 83 20 22 3A 52 55 4E 20 20 20 20 20 20 4A 53 |.. ":RUN JS|
00000810: 52 20 24 41 36 35 39 00 32 10 28 05 83 20 22 20 |R $A659.2.(.. " |
00000820: 20 20 20 20 20 20 20 20 20 4A 4D 50 20 24 41 37 | JMP $A7|
00000830: 41 45 00 3B 10 32 05 83 20 22 3B 00 5E 10 3C 05 |AE.;.2.. ";.^.<.|
00000840: 83 20 22 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |. ";************|
00000850: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 81 |**************..|
00000860: 10 46 05 83 20 22 3B 2A 20 C8 49 45 52 20 CD 41 |.F.. ";* .IER .A|
00000870: 53 43 48 49 4E 45 4E 2D D0 52 47 20 20 20 20 20 |SCHINEN-.RG |
00000880: 2A 00 A4 10 50 05 83 20 22 3B 2A 2A 2A 2A 2A 2A |*...P.. ";******|
00000890: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000008A0: 2A 2A 2A 2A 00 AD 10 5A 05 83 20 22 3B 00 C8 10 |****...Z.. ";...|
000008B0: 64 05 83 20 22 3A 50 52 49 4E 54 41 54 20 20 4A |d.. ":PRINTAT J|
000008C0: 53 52 20 43 48 4B 4F 4D 00 E4 10 6E 05 83 20 22 |SR CHKOM...n.. "|
000008D0: 20 20 20 20 20 20 20 20 20 20 4A 53 52 20 47 45 | JSR GE|
000008E0: 54 43 4F 52 00 FD 10 78 05 83 20 22 20 20 20 20 |TCOR...x.. " |
000008F0: 20 20 20 20 20 20 43 50 58 20 23 34 30 00 1A 11 | CPX #40...|
00000900: 82 05 83 20 22 20 20 20 20 20 20 20 20 20 20 42 |... " B|
00000910: 43 53 20 5A 55 47 52 4F 53 53 00 33 11 8C 05 83 |CS ZUGROSS.3....|
00000920: 20 22 20 20 20 20 20 20 20 20 20 20 4C 44 41 20 | " LDA |
00000930: 24 31 34 00 4C 11 96 05 83 20 22 20 20 20 20 20 |$14.L.... " |
00000940: 20 20 20 20 20 43 4D 50 20 23 32 35 00 69 11 A0 | CMP #25.i..|
00000950: 05 83 20 22 20 20 20 20 20 20 20 20 20 20 42 43 |.. " BC|
00000960: 53 20 5A 55 47 52 4F 53 53 00 85 11 AA 05 83 20 |S ZUGROSS...... |
00000970: 22 20 20 20 20 20 20 20 20 20 20 53 54 58 20 53 |" STX S|
00000980: 50 41 4C 54 45 00 A0 11 B4 05 83 20 22 20 20 20 |PALTE...... " |
00000990: 20 20 20 20 20 20 20 53 54 41 20 5A 45 49 4C 45 | STA ZEILE|
000009A0: 00 BD 11 BE 05 83 20 22 20 20 20 20 20 20 20 20 |...... " |
000009B0: 20 20 4A 53 52 20 50 4C 4F 54 43 55 52 00 D8 11 | JSR PLOTCUR...|
000009C0: C8 05 83 20 22 20 20 20 20 20 20 20 20 20 20 4A |... " J|
000009D0: 53 52 20 43 48 4B 4F 4D 00 F3 11 D2 05 83 20 22 |SR CHKOM...... "|
000009E0: 20 20 20 20 20 20 20 20 20 20 4A 4D 50 20 50 52 | JMP PR|
000009F0: 49 4E 54 00 0F 12 DC 05 83 20 22 3A 5A 55 47 52 |INT...... ":ZUGR|
00000A00: 4F 53 53 20 20 4A 4D 50 20 49 4C 4C 51 55 22 00 |OSS JMP ILLQU".|
00000A10: 1C 12 E6 05 83 20 22 3A 45 4E 44 45 00 28 12 5C |..... ":ENDE.(.\|
00000A20: 08 83 20 22 2A 2A 2A 22 00 00 00 |.. "***"... |
. ..C..256.B(44).B(43).26....,.I..,H8...
, ....+H.,8...,.... B. Y.L.. .. ...(....
I....S.V .. ..L .LH.D<<<.,<<.<<<..<..<<.
..<<.<<<$...........~.....~.....~.~.~...
~........................~...~......~..~
....~..|.....~.L|.....~.|~...~..|..|.L..
.|.L.~||..|..L.|..&.D.. "MIT DIESEM PROG
RAMM ERHALTEN".L.N.. "SIE DEN MASCHINEN-
STARTER MIT".P.X.. "PRINTAT UND EIN BASI
C-PRG.,"...... "MIT DEM SIE SICH EIN SOU
RCE-"...... "FILE FUER INPUT-ASS ABSPEI-
".P.... "CHERN KOENNEN."... .SF.B(49152)
:E$.G(34)...H.PA.8.256.67:. "PRINTAT ALT
ER ANFANG + 67".<.R..".GEBEN SIE GERAETE
NUMMER AN:";.Q....GA$:.GA$."".220._...GA
.E(GA$).T.... GA..1.GA.7.220...... SF.12
0.."KALTSTART!!":..M.... GA.7.SF..160.."
ERST SUPERTAPE LADEN UND STARTEN!!":....
...SF.169.SF.160..49152.....F$."":SA.1:.
GA.7.SA.2:F$.",S,W".+."..2,GA,SA,"S01.ST
ARTER".F$:..G.,.. A$:.I(A$,1)."@".. 500.
Z.6.. A$."***".400.H.@..2,A$:.A$.R.J.. 3
00.{... 2:......X$.""...... J.1.C(A$).1.
....: AA$.J(A$,J,1).I...: . AA$."@".X$.X
$.E$:.550.Y...: X$.X$.AA$...&..J...0.A$.
X$...:........ "ORG $0801".#.... ";*****
******************".D.... ";* BASIC-ANFA
NG *".E.... ";* HERAUFSETZEN
*"...... ";***********************"..
.... ";"...... ":CHKOM = $AEFD".D.J..
":GETCOR = $B7EB"...T.. ":PLOTCUR =
$E510"...... ":PRINT = $AAA0"...... "
:ILLQU = $B248".*.... ":SPALTE = $D
3".B.... ":ZEILE = $D6".L.... ";".D..
.. ";BASIC-SYS-ZEILE.N.... ";"...$.. ":B
EGIN W START+1...... " W 198
7.Y.8.. " B $9E,@256@,$AC,$C2,$
28,@44@,$29,$AA@"...B.. " B $C2
,$28,@43@,$29,$AA,@26@@".!.L.. ":START
B 0,0,0.+.V.. ";".C.`.. ":SETBASIC LDA
44.Y.J.. " CLC"..T.. "
ADC #>ENDE-BEGIN+256...~.. "
STA 44...... " PHA.A.... "
SEC.Y.... " SBC #1......
" STA 44...... " LDY 2
55.".... " LDA #0.>.D.. "
STA (43),Y.S.N.. " PLA.K.X.
. " STA 44...... " SEC
...... " LDA 46...... "
SBC 44.I.... " BCS RUN......
" LDA #0...... " JSR $
A642...... ":RUN JSR $A659.2.(.. "
JMP $A7AE.;.2.. ";.^.<.. ";****
**********************...F.. ";* HIER MA
SCHINEN-PRG *...P.. ";**************
************...Z.. ";.H.D.. ":PRINTAT J
SR CHKOM...N.. " JSR GETCOR...X
.. " CPX #40...... " B
CS ZUGROSS.3.... " LDA $14.L...
. " CMP #25.I. .. " BC
S ZUGROSS...... " STX SPALTE. .
... " STA ZEILE...... "
JSR PLOTCUR.X.H.. " JSR CHKOM
...R.. " JMP PRINT...... ":ZUGR
OSS JMP ILLQU"...... ":ENDE.(.\.. "***"
...
> CLICK IMAGE PREVIEW FOR FULL MODAL