00000000: 39 30 30 30 20 50 52 4F 43 20 43 52 45 41 54 45 |9000 PROC CREATE|
00000010: 28 4E 41 4D 45 24 2C 4C 41 53 54 27 52 45 43 2C |(NAME$,LAST'REC,|
00000020: 52 45 43 27 4C 45 4E 29 20 43 4C 4F 53 45 44 0D |REC'LEN) CLOSED.|
00000030: 39 30 31 30 20 5A 3A 3D 5A 4F 4E 45 0D 39 30 32 |9010 Z:=ZONE.902|
00000040: 30 20 5A 4F 4E 45 20 30 0D 39 30 33 30 20 4F 50 |0 ZONE 0.9030 OP|
00000050: 45 4E 20 46 49 4C 45 20 37 39 2C 4E 41 4D 45 24 |EN FILE 79,NAME$|
00000060: 2C 52 41 4E 44 4F 4D 20 52 45 43 27 4C 45 4E 0D |,RANDOM REC'LEN.|
00000070: 39 30 34 30 20 50 52 49 4E 54 20 46 49 4C 45 20 |9040 PRINT FILE |
00000080: 37 39 2C 4C 41 53 54 27 52 45 43 3A 20 43 48 52 |79,LAST'REC: CHR|
00000090: 24 28 32 35 35 29 2C 0D 39 30 35 30 20 43 4C 4F |$(255),.9050 CLO|
000000A0: 53 45 20 46 49 4C 45 20 37 39 0D 39 30 36 30 20 |SE FILE 79.9060 |
000000B0: 5A 4F 4E 45 20 5A 0D 39 30 37 30 20 45 4E 44 50 |ZONE Z.9070 ENDP|
000000C0: 52 4F 43 20 43 52 45 41 54 45 0D |ROC CREATE. |
9000 PROC CREATE(NAME$,LAST'REC,REC'LEN)
CLOSED.9010 Z:=ZONE.9020 ZONE 0.9030 OP
EN FILE 79,NAME$,RANDOM REC'LEN.9040 PRI
NT FILE 79,LAST'REC: CHR$(255),.9050 CLO
SE FILE 79.9060 ZONE Z.9070 ENDPROC CREA
TE.
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL