00000000: 39 30 30 30 20 2F 2F 20 50 41 53 53 20 22 53 30 |9000 // PASS "S0|
00000010: 3A 4D 43 4C 4F 41 44 45 52 2E 50 22 0D 39 30 30 |:MCLOADER.P".900|
00000020: 32 20 2F 2F 20 4C 49 53 54 20 22 30 3A 4D 43 4C |2 // LIST "0:MCL|
00000030: 4F 41 44 45 52 2E 50 22 0D 39 30 30 34 20 2F 2F |OADER.P".9004 //|
00000040: 0D 39 30 30 36 20 2F 2F 20 44 49 45 53 45 20 50 |.9006 // DIESE P|
00000050: 52 4F 43 45 44 55 52 45 20 4B 41 4E 4E 20 4D 41 |ROCEDURE KANN MA|
00000060: 53 43 48 49 4E 45 4E 2D 0D 39 30 30 38 20 2F 2F |SCHINEN-.9008 //|
00000070: 20 53 50 52 41 43 48 45 20 41 42 53 4F 4C 55 54 | SPRACHE ABSOLUT|
00000080: 20 4C 41 44 45 4E 2E 0D 39 30 31 30 20 2F 2F 20 | LADEN..9010 // |
00000090: 42 49 4E 44 45 4E 20 53 49 45 20 45 53 20 4D 49 |BINDEN SIE ES MI|
000000A0: 54 20 27 45 4E 54 45 52 27 20 49 4E 0D 39 30 31 |T 'ENTER' IN.901|
000000B0: 32 20 2F 2F 20 49 48 52 45 20 45 49 47 45 4E 45 |2 // IHRE EIGENE|
000000C0: 4E 20 50 52 4F 47 52 41 4D 4D 45 20 45 49 4E 21 |N PROGRAMME EIN!|
000000D0: 0D 39 30 31 34 20 2F 2F 0D 39 30 31 36 20 50 52 |.9014 //.9016 PR|
000000E0: 4F 43 20 4F 42 4A 45 43 54 4C 4F 41 44 28 4E 41 |OC OBJECTLOAD(NA|
000000F0: 4D 45 24 29 20 43 4C 4F 53 45 44 0D 39 30 31 38 |ME$) CLOSED.9018|
00000100: 20 50 4F 4B 45 20 38 35 38 2C 31 36 39 0D 39 30 | POKE 858,169.90|
00000110: 32 30 20 50 4F 4B 45 20 38 35 39 2C 30 0D 39 30 |20 POKE 859,0.90|
00000120: 32 32 20 50 4F 4B 45 20 38 36 30 2C 37 36 0D 39 |22 POKE 860,76.9|
00000130: 30 32 34 20 50 4F 4B 45 20 38 36 31 2C 32 31 33 |024 POKE 861,213|
00000140: 0D 39 30 32 36 20 50 4F 4B 45 20 38 36 32 2C 32 |.9026 POKE 862,2|
00000150: 35 35 0D 39 30 32 38 20 4F 50 45 4E 20 46 49 4C |55.9028 OPEN FIL|
00000160: 45 20 37 31 2C 4E 41 4D 45 24 2B 22 2C 50 22 2C |E 71,NAME$+",P",|
00000170: 52 45 41 44 0D 39 30 33 30 20 53 59 53 20 38 35 |READ.9030 SYS 85|
00000180: 38 0D 39 30 33 32 20 43 4C 4F 53 45 20 46 49 4C |8.9032 CLOSE FIL|
00000190: 45 20 37 31 0D 39 30 33 34 20 45 4E 44 50 52 4F |E 71.9034 ENDPRO|
000001A0: 43 20 4F 42 4A 45 43 54 4C 4F 41 44 0D 39 30 33 |C OBJECTLOAD.903|
000001B0: 36 20 2F 2F 0D 39 30 33 38 20 2F 2F 20 57 45 4E |6 //.9038 // WEN|
000001C0: 4E 20 53 49 45 20 44 41 53 20 27 2C 50 27 20 44 |N SIE DAS ',P' D|
000001D0: 55 52 43 48 20 45 49 4E 0D 39 30 34 30 20 2F 2F |URCH EIN.9040 //|
000001E0: 20 27 2C 55 27 20 45 52 53 45 54 5A 45 4E 2C 20 | ',U' ERSETZEN, |
000001F0: 4B 4F 45 4E 4E 45 4E 20 53 49 45 20 41 55 43 48 |KOENNEN SIE AUCH|
00000200: 0D 39 30 34 32 20 2F 2F 20 27 55 53 52 27 2D 44 |.9042 // 'USR'-D|
00000210: 41 54 45 49 45 4E 20 41 42 53 4F 4C 55 54 20 4C |ATEIEN ABSOLUT L|
00000220: 41 44 45 4E 21 0D 39 30 34 34 20 2F 2F 0D |ADEN!.9044 //. |
9000 // PASS "S0:MCLOADER.P".9002 // LIS
T "0:MCLOADER.P".9004 //.9006 // DIESE P
ROCEDURE KANN MASCHINEN-.9008 // SPRACHE
ABSOLUT LADEN..9010 // BINDEN SIE ES MI
T 'ENTER' IN.9012 // IHRE EIGENEN PROGRA
MME EIN!.9014 //.9016 PROC OBJECTLOAD(NA
ME$) CLOSED.9018 POKE 858,169.9020 POKE
859,0.9022 POKE 860,76.9024 POKE 861,213
.9026 POKE 862,255.9028 OPEN FILE 71,NAM
E$+",P",READ.9030 SYS 858.9032 CLOSE FIL
E 71.9034 ENDPROC OBJECTLOAD.9036 //.903
8 // WENN SIE DAS ',P' DURCH EIN.9040 //
',U' ERSETZEN, KOENNEN SIE AUCH.9042 //
'USR'-DATEIEN ABSOLUT LADEN!.9044 //.
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL