DEMO 2.SRC

FILE INFORMATION

FILENAME(S): DEMO 2.SRC

FILE TYPE(S): PRG

FILE SIZE: 2.5K

FIRST SEEN: 2025-11-30 01:13:01

APPEARS ON: 1 disk(s)

FILE HASH

3ed98ff4697f1b8ab2aa2ebe0a97fe207b599b5cab8a999d2e509851475373ca

FOUND ON DISKS (1 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
10109 SEITE A	DEMO 2.SRC	PRG	C64er, earthshaker	26	9	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)

00000000: 01 08 0C 08 0A 00 9E 33  36 38 36 34 00 18 08 14  |.......36864....|
00000010: 00 2E 4F 50 54 20 4F 4F  00 25 08 1E 00 AC B2 20  |..OPT OO.%..... |
00000020: 24 43 30 30 30 00 48 08  28 00 3B 20 44 49 45 53  |$C000.H.(.; DIES|
00000030: 45 53 20 50 52 4F 47 52  41 4D 4D 20 96 49 4E 49  |ES PROGRAMM .INI|
00000040: 45 52 54 20 5A 57 45 49  00 60 08 32 00 3B 20 4E  |ERT ZWEI.`.2.; N|
00000050: 45 55 45 20 42 41 53 49  43 42 45 46 45 48 4C 45  |EUE BASICBEFEHLE|
00000060: 00 82 08 3C 00 3B 20 AB  20 42 45 45 50 20 20 20  |...<.; . BEEP   |
00000070: 20 20 45 52 5A 45 55 47  54 20 45 49 4E 45 4E 20  |  ERZEUGT EINEN |
00000080: A4 4E 00 AC 08 46 00 3B  20 AB 20 45 52 41 53 45  |.N...F.; . ERASE|
00000090: 20 58 20 20 4C 4F 45 53  43 48 54 20 42 49 4C 44  | X  LOESCHT BILD|
000000A0: 53 43 48 2E 20 5A 45 49  4C 45 20 58 00 D3 08 50  |SCH. ZEILE X...P|
000000B0: 00 3B 20 4E 49 4B 4F 4C  41 55 53 20 48 45 55 53  |.; NIKOLAUS HEUS|
000000C0: 4C 45 52 2C 20 4D 55 45  4E 43 48 45 4E 2C 20 33  |LER, MUENCHEN, 3|
000000D0: 2E 39 31 00 F8 08 64 00  49 42 41 53 20 B2 37 37  |.91...d.IBAS .77|
000000E0: 36 3B 56 45 4B A4 52 20  46 55 45 52 20 42 41 53  |6;VEK.R FUER BAS|
000000F0: 49 43 42 45 46 45 48 4C  00 18 09 6E 00 B5 45 52  |ICBEFEHL...n..ER|
00000100: 20 B2 24 41 37 41 45 3B  B5 45 52 50 52 45 54 45  | .$A7AE;.ERPRETE|
00000110: 52 53 43 48 4C 45 8B 45  00 42 09 78 00 4F 4C 44  |RSCHLE.E.B.x.OLD|
00000120: 42 41 53 20 B2 24 41 37  45 34 3B 41 4C 54 45 4E  |BAS .$A7E4;ALTEN|
00000130: 20 42 45 46 45 48 4C 20  41 55 53 46 55 45 48 52  | BEFEHL AUSFUEHR|
00000140: 45 4E 00 68 09 82 00 53  49 44 20 B2 35 34 32 37  |EN.h...SID .5427|
00000150: 32 3B 53 4F 55 4E 44 43  48 49 50 20 42 41 53 49  |2;SOUNDCHIP BASI|
00000160: 53 41 44 52 45 53 53 45  00 8C 09 8C 00 43 48 52  |SADRESSE.....CHR|
00000170: A1 20 B2 31 31 35 3B 4E  41 45 43 48 53 54 45 53  |. .115;NAECHSTES|
00000180: 20 5A 45 49 43 48 45 4E  20 48 4F C3 00 B5 09 96  | ZEICHEN HO.....|
00000190: 00 49 4C 4C 51 55 41 4E  20 B2 24 42 32 34 38 3B  |.ILLQUAN .$B248;|
000001A0: 49 4C 4C 45 47 41 4C 20  51 55 41 4E 54 49 54 59  |ILLEGAL QUANTITY|
000001B0: 20 45 52 52 B0 00 D9 09  A0 00 A1 58 20 B2 24 42  | ERR.......X .$B|
000001C0: 37 39 45 3B 48 4F 4C 54  20 42 59 54 45 AB 57 45  |79E;HOLT BYTE.WE|
000001D0: 52 54 20 4E 41 43 48 20  58 00 01 0A AA 00 9C 58  |RT NACH X......X|
000001E0: 20 B2 35 39 39 30 33 3B  4C 4F 45 53 43 48 54 20  | .59903;LOESCHT |
000001F0: 42 49 4C 44 53 43 48 49  52 4D 5A 45 49 4C 45 20  |BILDSCHIRMZEILE |
00000200: 58 00 1B 0A B4 00 4F 4B  20 B2 24 45 31 38 44 3B  |X.....OK .$E18D;|
00000210: 4F 4B 20 41 55 53 47 45  42 45 4E 00 37 0A BE 00  |OK AUSGEBEN.7...|
00000220: 54 4D 50 20 B2 32 3B 5A  57 49 53 43 48 45 4E 53  |TMP .2;ZWISCHENS|
00000230: 50 45 49 43 48 45 52 00  5B 0A C8 00 50 54 52 20  |PEICHER.[...PTR |
00000240: B2 31 32 32 3B 5A 45 49  47 45 52 20 41 55 46 20  |.122;ZEIGER AUF |
00000250: 42 41 53 49 43 42 45 46  45 48 4C 00 7B 0A 2C 01  |BASICBEFEHL.{.,.|
00000260: 3B 20 AB AB AB 20 4E 45  55 45 20 42 45 46 45 48  |; ... NEUE BEFEH|
00000270: 4C 45 20 96 49 4E 49 45  52 45 4E 00 B1 0A 36 01  |LE .INIEREN...6.|
00000280: 4C 44 41 20 23 B3 4E 45  55 42 45 46 3A 4C 44 59  |LDA #.NEUBEF:LDY|
00000290: 20 23 B1 4E 45 55 42 45  46 3B 5A 45 49 47 45 52  | #.NEUBEF;ZEIGER|
000002A0: 20 41 55 46 20 4E 45 55  45 20 52 4F 55 54 49 4E  | AUF NEUE ROUTIN|
000002B0: 45 00 D9 0A 40 01 53 54  41 20 49 42 41 53 3A 53  |E...@.STA IBAS:S|
000002C0: 54 59 20 49 42 41 53 AA  31 3B 56 45 4B A4 52 20  |TY IBAS.1;VEK.R |
000002D0: 56 45 52 42 49 45 47 45  4E 00 F0 0A 4A 01 4A 4D  |VERBIEGEN...J.JM|
000002E0: 50 20 4F 4B 3B 4F 4B 20  41 55 53 47 45 42 45 4E  |P OK;OK AUSGEBEN|
000002F0: 00 0F 0B 90 01 3B 20 AB  AB AB 20 4E 45 55 45 20  |.....; ... NEUE |
00000300: 42 45 46 45 48 4C 53 AB  52 4F 55 54 49 4E 45 00  |BEFEHLS.ROUTINE.|
00000310: 58 0B 9A 01 4E 45 55 42  45 46 20 4C 44 41 20 50  |X...NEUBEF LDA P|
00000320: 54 52 3A 4C 44 59 20 50  54 52 AA 31 3A 53 54 41  |TR:LDY PTR.1:STA|
00000330: 20 54 4D 50 3A 53 54 59  20 54 4D 50 AA 31 3B 42  | TMP:STY TMP.1;B|
00000340: 41 53 49 43 AB 50 4F B5  45 52 20 52 45 54 54 45  |ASIC.PO.ER RETTE|
00000350: 4E 3A 4C 44 58 20 23 30  00 78 0B A4 01 3B 20 AB  |N:LDX #0.x...; .|
00000360: AB AB 20 54 45 53 54 2C  20 4F 42 20 42 45 46 45  |.. TEST, OB BEFE|
00000370: 48 4C 20 4E 52 2E 20 31  00 C0 0B AE 01 54 45 53  |HL NR. 1.....TES|
00000380: 54 31 20 4A 53 52 20 43  48 52 A1 3B 4E 41 45 43  |T1 JSR CHR.;NAEC|
00000390: 48 53 54 45 53 20 5A 45  49 43 48 45 4E 20 48 4F  |HSTES ZEICHEN HO|
000003A0: C3 3A 43 4D 50 20 54 45  58 54 31 2C 58 3B 42 45  |.:CMP TEXT1,X;BE|
000003B0: 46 45 48 4C 53 57 B0 54  20 50 52 55 45 46 45 4E  |FEHLSW.T PRUEFEN|
000003C0: 00 F0 0B B8 01 42 4E 45  20 4E 45 49 4E 31 3B 57  |.....BNE NEIN1;W|
000003D0: 45 4E 4E 20 4E 49 43 48  54 2C 20 44 41 4E 4E 20  |ENN NICHT, DANN |
000003E0: 42 45 46 45 48 4C 20 32  20 50 52 55 45 46 45 4E  |BEFEHL 2 PRUEFEN|
000003F0: 00 3F 0C C2 01 49 4E 58  3A 43 50 58 20 23 34 3B  |.?...INX:CPX #4;|
00000400: 4C 41 45 4E 47 45 20 44  45 53 20 42 45 46 45 48  |LAENGE DES BEFEH|
00000410: 4C 53 57 B0 54 45 53 3A  42 4E 45 20 54 45 53 54  |LSW.TES:BNE TEST|
00000420: 31 3B 4E 49 43 48 54 20  45 52 52 45 49 43 48 54  |1;NICHT ERREICHT|
00000430: 2C 20 57 45 49 54 45 52  20 54 45 53 54 45 4E 00  |, WEITER TESTEN.|
00000440: 5F 0C CC 01 4A 53 52 20  50 49 45 50 53 3B 42 45  |_...JSR PIEPS;BE|
00000450: 46 45 48 4C 20 41 55 53  46 55 45 48 52 45 4E 00  |FEHL AUSFUEHREN.|
00000460: 89 0C D6 01 3B 20 AB AB  AB 20 4E 45 55 45 4E 20  |....; ... NEUEN |
00000470: 42 45 46 45 48 4C 20 46  45 52 54 49 47 20 41 55  |BEFEHL FERTIG AU|
00000480: 53 47 45 46 55 45 48 52  54 00 B8 0C E0 01 46 45  |SGEFUEHRT.....FE|
00000490: 52 54 49 47 20 4A 4D 50  20 B5 45 52 3B 57 45 49  |RTIG JMP .ER;WEI|
000004A0: 54 45 52 20 4D 49 54 20  B5 45 52 50 52 45 54 45  |TER MIT .ERPRETE|
000004B0: 52 53 43 48 4C 45 8B 45  00 DD 0C F4 01 3B 20 AB  |RSCHLE.E.....; .|
000004C0: AB AB 20 57 41 52 20 4E  49 43 48 54 20 44 45 52  |.. WAR NICHT DER|
000004D0: 20 45 52 53 54 45 20 42  45 46 45 48 4C 00 23 0D  | ERSTE BEFEHL.#.|
000004E0: FE 01 4E 45 49 4E 31 20  4C 44 41 20 54 4D 50 3A  |..NEIN1 LDA TMP:|
000004F0: 4C 44 59 20 54 4D 50 AA  31 3A 53 54 41 20 50 54  |LDY TMP.1:STA PT|
00000500: 52 3A 53 54 59 20 50 54  52 AA 31 3B 50 4F B5 45  |R:STY PTR.1;PO.E|
00000510: 52 20 5A 55 52 55 45 43  4B 48 4F C3 3A 4C 44 58  |R ZURUECKHO.:LDX|
00000520: 20 23 30 00 43 0D 08 02  3B 20 AB AB AB 20 54 45  | #0.C...; ... TE|
00000530: 53 54 2C 20 4F 42 20 42  45 46 45 48 4C 20 4E 52  |ST, OB BEFEHL NR|
00000540: 2E 20 32 00 8B 0D 12 02  54 45 53 54 32 20 4A 53  |. 2.....TEST2 JS|
00000550: 52 20 43 48 52 A1 3B 4E  41 45 43 48 53 54 45 53  |R CHR.;NAECHSTES|
00000560: 20 5A 45 49 43 48 45 4E  20 48 4F C3 3A 43 4D 50  | ZEICHEN HO.:CMP|
00000570: 20 54 45 58 54 32 2C 58  3B 42 45 46 45 48 4C 53  | TEXT2,X;BEFEHLS|
00000580: 57 B0 54 20 50 52 55 45  46 45 4E 00 B1 0D 1C 02  |W.T PRUEFEN.....|
00000590: 42 4E 45 20 4E 45 49 4E  32 3B 57 45 4E 4E 20 4E  |BNE NEIN2;WENN N|
000005A0: 49 43 48 54 2C 20 44 41  4E 4E 20 46 45 52 54 49  |ICHT, DANN FERTI|
000005B0: 47 00 00 0E 26 02 49 4E  58 3A 43 50 58 20 23 35  |G...&.INX:CPX #5|
000005C0: 3B 4C 41 45 4E 47 45 20  44 45 53 20 42 45 46 45  |;LAENGE DES BEFE|
000005D0: 48 4C 53 57 B0 54 45 53  3A 42 4E 45 20 54 45 53  |HLSW.TES:BNE TES|
000005E0: 54 32 3B 4E 49 43 48 54  20 45 52 52 45 49 43 48  |T2;NICHT ERREICH|
000005F0: 54 2C 20 57 45 49 54 45  52 20 54 45 53 54 45 4E  |T, WEITER TESTEN|
00000600: 00 21 0E 30 02 4A 53 52  20 4C 4F 45 53 43 48 3B  |.!.0.JSR LOESCH;|
00000610: 42 45 46 45 48 4C 20 41  55 53 46 55 45 48 52 45  |BEFEHL AUSFUEHRE|
00000620: 4E 00 44 0E 3A 02 4A 4D  50 20 46 45 52 54 49 47  |N.D.:.JMP FERTIG|
00000630: 3B 55 4E 44 20 57 45 49  54 45 52 20 57 49 45 20  |;UND WEITER WIE |
00000640: 4F 42 45 4E 00 6A 0E 58  02 3B 20 AB AB AB 20 57  |OBEN.j.X.; ... W|
00000650: 41 52 20 4E 49 43 48 54  20 44 45 52 20 5A 57 45  |AR NICHT DER ZWE|
00000660: 49 54 45 20 42 45 46 45  48 4C 00 A9 0E 62 02 4E  |ITE BEFEHL...b.N|
00000670: 45 49 4E 32 20 4C 44 41  20 54 4D 50 3A 4C 44 59  |EIN2 LDA TMP:LDY|
00000680: 20 54 4D 50 AA 31 3A 53  54 41 20 50 54 52 3A 53  | TMP.1:STA PTR:S|
00000690: 54 59 20 50 54 52 AA 31  3B 50 4F B5 45 52 20 5A  |TY PTR.1;PO.ER Z|
000006A0: 55 52 55 45 43 4B 48 4F  C3 00 D6 0E 6C 02 4A 4D  |URUECKHO....l.JM|
000006B0: 50 20 4F 4C 44 42 41 53  3B 41 4C 54 45 4E 20 42  |P OLDBAS;ALTEN B|
000006C0: 41 53 49 43 AB 42 45 46  45 48 4C 20 41 55 53 46  |ASIC.BEFEHL AUSF|
000006D0: 55 45 48 52 45 4E 00 FB  0E BC 02 3B 20 AB AB AB  |UEHREN.....; ...|
000006E0: 20 52 4F 55 54 49 4E 45  4E 20 44 45 52 20 4E 45  | ROUTINEN DER NE|
000006F0: 55 45 4E 20 42 45 46 45  48 4C 45 00 1C 0F C6 02  |UEN BEFEHLE.....|
00000700: 3B 20 AB AB AB 20 42 45  46 45 48 4C 20 31 20 AB  |; ... BEFEHL 1 .|
00000710: 20 A4 4E 20 41 55 53 47  45 42 45 4E 00 66 0F D0  | .N AUSGEBEN.f..|
00000720: 02 50 49 45 50 53 20 4A  53 52 20 43 48 52 A1 3B  |.PIEPS JSR CHR.;|
00000730: 4E 41 45 43 48 53 54 45  53 20 5A 45 49 43 48 45  |NAECHSTES ZEICHE|
00000740: 4E 3A 4C 44 41 20 23 30  3A 4C 44 58 20 23 32 34  |N:LDA #0:LDX #24|
00000750: 3B 53 49 44 AB 52 45 47  49 53 54 45 52 20 4C 4F  |;SID.REGISTER LO|
00000760: 45 53 43 48 45 4E 00 A6  0F DA 02 9C 53 49 44 20  |ESCHEN......SID |
00000770: 53 54 41 20 53 49 44 2C  58 3A 44 45 58 3A 42 50  |STA SID,X:DEX:BP|
00000780: 4C 20 9C 53 49 44 3B 4E  55 4C 4C 20 49 4E 20 41  |L .SID;NULL IN A|
00000790: 4C 4C 45 20 52 45 47 49  53 54 45 52 20 53 43 48  |LLE REGISTER SCH|
000007A0: 52 45 49 42 45 4E 00 D0  0F E4 02 4C 44 41 20 23  |REIBEN.....LDA #|
000007B0: 31 35 3A 53 54 41 20 53  49 44 AA 32 34 3B 4C 41  |15:STA SID.24;LA|
000007C0: 55 54 53 54 41 45 52 4B  45 20 41 55 46 20 31 35  |UTSTAERKE AUF 15|
000007D0: 00 09 10 EE 02 4C 44 41  20 23 31 30 30 3A 53 54  |.....LDA #100:ST|
000007E0: 41 20 53 49 44 AA 31 3B  A4 4E 48 4F 45 48 45 3A  |A SID.1;.NHOEHE:|
000007F0: 4C 44 41 20 23 32 34 30  3A 53 54 41 20 53 49 44  |LDA #240:STA SID|
00000800: AA 36 3B 57 45 4C C3 81  4D 00 26 10 F8 02 4C 44  |.6;WEL..M.&...LD|
00000810: 41 20 23 31 37 3A 53 54  41 20 53 49 44 AA 34 3B  |A #17:STA SID.4;|
00000820: A4 4E 20 45 49 4E 00 45  10 02 03 4C 44 58 20 23  |.N EIN.E...LDX #|
00000830: 30 3A 4C 44 59 20 23 30  3B 57 41 52 54 45 53 43  |0:LDY #0;WARTESC|
00000840: 48 4C 45 8B 45 00 7A 10  0C 03 92 20 4E 4F 50 3A  |HLE.E.z.... NOP:|
00000850: 44 45 58 3A 42 4E 45 20  92 3A 44 45 59 3A 42 4E  |DEX:BNE .:DEY:BN|
00000860: 45 20 92 3B 57 41 52 54  45 54 20 43 41 2E 20 31  |E .;WARTET CA. 1|
00000870: AD 32 20 53 45 4B 55 4E  44 45 00 A2 10 16 03 4C  |.2 SEKUNDE.....L|
00000880: 44 41 20 23 31 36 3A 53  54 41 20 53 49 44 AA 34  |DA #16:STA SID.4|
00000890: 3B A4 4E 20 41 55 53 3A  52 54 53 3B 46 45 52 54  |;.N AUS:RTS;FERT|
000008A0: 49 47 00 CC 10 20 03 3B  20 42 45 46 45 48 4C 20  |IG... .; BEFEHL |
000008B0: 32 20 AB 20 42 49 4C 44  53 43 48 49 52 4D 5A 45  |2 . BILDSCHIRMZE|
000008C0: 49 4C 45 20 4C 4F 45 53  43 48 45 4E 00 0E 11 2A  |ILE LOESCHEN...*|
000008D0: 03 4C 4F 45 53 43 48 20  4A 53 52 20 43 48 52 A1  |.LOESCH JSR CHR.|
000008E0: 3B 4E 41 45 43 48 53 54  45 53 20 5A 45 49 43 48  |;NAECHSTES ZEICH|
000008F0: 45 4E 3A 4A 53 52 20 A1  58 3B 4E 55 4D 4D 45 52  |EN:JSR .X;NUMMER|
00000900: 20 44 45 52 20 5A 45 49  4C 45 20 48 4F C3 00 46  | DER ZEILE HO..F|
00000910: 11 34 03 43 50 58 20 23  32 35 3B 47 52 4F 45 53  |.4.CPX #25;GROES|
00000920: 53 45 52 20 41 4C 53 20  32 34 3A 42 43 43 20 53  |SER ALS 24:BCC S|
00000930: 54 49 4D 4D 54 3B 4B 4C  45 49 4E 45 52 2C 20 44  |TIMMT;KLEINER, D|
00000940: 41 4E 4E 20 4F 4B 00 72  11 3E 03 4A 4D 50 20 49  |ANN OK.r.>.JMP I|
00000950: 4C 4C 51 55 41 4E 3B 53  91 53 54 20 46 45 48 4C  |LLQUAN;S.ST FEHL|
00000960: 45 52 4D 45 4C 44 55 4E  47 20 41 55 53 47 45 42  |ERMELDUNG AUSGEB|
00000970: 45 4E 00 AE 11 48 03 53  54 49 4D 4D 54 20 4A 53  |EN...H.STIMMT JS|
00000980: 52 20 9C 58 3B 42 49 4C  44 53 43 48 49 52 4D 5A  |R .X;BILDSCHIRMZ|
00000990: 45 49 4C 45 20 4E 52 2E  20 58 20 4C 4F 45 53 43  |EILE NR. X LOESC|
000009A0: 48 45 4E 3A 52 54 53 3B  46 45 52 54 49 47 00 C6  |HEN:RTS;FERTIG..|
000009B0: 11 84 03 3B 20 AB AB AB  20 42 45 46 45 48 4C 53  |...; ... BEFEHLS|
000009C0: AB 54 45 58 54 45 00 EB  11 8E 03 54 45 58 54 31  |.TEXTE.....TEXT1|
000009D0: 20 2E C6 20 22 42 45 45  50 22 3B 54 45 58 54 20  | .. "BEEP";TEXT |
000009E0: 49 4D 20 C6 49 49 AB 43  4F 44 45 00 11 12 98 03  |IM .II.CODE.....|
000009F0: 54 45 58 54 32 20 2E C6  20 22 45 52 41 53 45 22  |TEXT2 .. "ERASE"|
00000A00: 3B 54 45 58 54 20 49 4D  20 C6 49 49 AB 43 4F 44  |;TEXT IM .II.COD|
00000A10: 45 00 00 00                                       |E...            |

.......36864......OPT OO.%..... $C000.H.
(.; DIESES PROGRAMM .INIERT ZWEI.`.2.; N
EUE BASICBEFEHLE...<.; . BEEP     ERZEUG
T EINEN .N...F.; . ERASE X  LOESCHT BILD
SCH. ZEILE X.S.P.; NIKOLAUS HEUSLER, MUE
NCHEN, 3.91...D.IBAS .776;VEK.R FUER BAS
ICBEFEHL...N..ER .$A7AE;.ERPRETERSCHLE.E
.B.X.OLDBAS .$A7E4;ALTEN BEFEHL AUSFUEHR
EN.H...SID .54272;SOUNDCHIP BASISADRESSE
.....CHR. .115;NAECHSTES ZEICHEN HOC....
.ILLQUAN .$B248;ILLEGAL QUANTITY ERR..Y.
 ..X .$B79E;HOLT BYTE.WERT NACH X......X
 .59903;LOESCHT BILDSCHIRMZEILE X.....OK
 .$E18D;OK AUSGEBEN.7...TMP .2;ZWISCHENS
PEICHER.[.H.PTR .122;ZEIGER AUF BASICBEF
EHL.{.,.; ... NEUE BEFEHLE .INIEREN...6.
LDA #.NEUBEF:LDY #.NEUBEF;ZEIGER AUF NEU
E ROUTINE.Y.@.STA IBAS:STY IBAS.1;VEK.R 
VERBIEGEN...J.JMP OK;OK AUSGEBEN.....; .
.. NEUE BEFEHLS.ROUTINE.X...NEUBEF LDA P
TR:LDY PTR.1:STA TMP:STY TMP.1;BASIC.PO.
ER RETTEN:LDX #0.X...; ... TEST, OB BEFE
HL NR. 1.....TEST1 JSR CHR.;NAECHSTES ZE
ICHEN HOC:CMP TEXT1,X;BEFEHLSW.T PRUEFEN
.....BNE NEIN1;WENN NICHT, DANN BEFEHL 2
 PRUEFEN.?.B.INX:CPX #4;LAENGE DES BEFEH
LSW.TES:BNE TEST1;NICHT ERREICHT, WEITER
 TESTEN._.L.JSR PIEPS;BEFEHL AUSFUEHREN.
..V.; ... NEUEN BEFEHL FERTIG AUSGEFUEHR
T.....FERTIG JMP .ER;WEITER MIT .ERPRETE
RSCHLE.E.....; ... WAR NICHT DER ERSTE B
EFEHL.#...NEIN1 LDA TMP:LDY TMP.1:STA PT
R:STY PTR.1;PO.ER ZURUECKHOC:LDX #0.C...
; ... TEST, OB BEFEHL NR. 2.....TEST2 JS
R CHR.;NAECHSTES ZEICHEN HOC:CMP TEXT2,X
;BEFEHLSW.T PRUEFEN.....BNE NEIN2;WENN N
ICHT, DANN FERTIG...&.INX:CPX #5;LAENGE 
DES BEFEHLSW.TES:BNE TEST2;NICHT ERREICH
T, WEITER TESTEN.!.0.JSR LOESCH;BEFEHL A
USFUEHREN.D.:.JMP FERTIG;UND WEITER WIE 
OBEN.J.X.; ... WAR NICHT DER ZWEITE BEFE
HL...B.NEIN2 LDA TMP:LDY TMP.1:STA PTR:S
TY PTR.1;PO.ER ZURUECKHOC.V.L.JMP OLDBAS
;ALTEN BASIC.BEFEHL AUSFUEHREN.....; ...
 ROUTINEN DER NEUEN BEFEHLE...F.; ... BE
FEHL 1 . .N AUSGEBEN.F.P.PIEPS JSR CHR.;
NAECHSTES ZEICHEN:LDA #0:LDX #24;SID.REG
ISTER LOESCHEN...Z..SID STA SID,X:DEX:BP
L .SID;NULL IN ALLE REGISTER SCHREIBEN.P
...LDA #15:STA SID.24;LAUTSTAERKE AUF 15
.....LDA #100:STA SID.1;.NHOEHE:LDA #240
:STA SID.6;WELC.M.&...LDA #17:STA SID.4;
.N EIN.E...LDX #0:LDY #0;WARTESCHLE.E.Z.
... NOP:DEX:BNE .:DEY:BNE .;WARTET CA. 1
.2 SEKUNDE.....LDA #16:STA SID.4;.N AUS:
RTS;FERTIG.L. .; BEFEHL 2 . BILDSCHIRMZE
ILE LOESCHEN...*.LOESCH JSR CHR.;NAECHST
ES ZEICHEN:JSR .X;NUMMER DER ZEILE HOC.F
.4.CPX #25;GROESSER ALS 24:BCC STIMMT;KL
EINER, DANN OK.R.>.JMP ILLQUAN;S.ST FEHL
ERMELDUNG AUSGEBEN...H.STIMMT JSR .X;BIL
DSCHIRMZEILE NR. X LOESCHEN:RTS;FERTIG.F
...; ... BEFEHLS.TEXTE.....TEXT1 .F "BEE
P";TEXT IM FII.CODE.....TEXT2 .F "ERASE"
;TEXT IM FII.CODE...

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL