SAVER

FILE INFORMATION

FILENAME(S): SAVER

FILE TYPE(S): SEQ

FILE SIZE: 1.5K

FIRST SEEN: 2025-11-30 19:35:23

APPEARS ON: 1 disk(s)

FILE HASH

40d4b525fdc6ddc992c00172b2627388dfa5a9cdd6bd4913b0e4e36f8952ccd7

FOUND ON DISKS (1 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
FUENFHAUS XV	SAVER	SEQ	Curtcool, bitbear	13	6	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

00000000: 20 34 30 20 50 4F 4B 45  35 33 32 38 31 2C 30 3A  | 40 POKE53281,0:|
00000010: 50 4F 4B 45 35 33 32 38  30 2C 30 3A 50 52 49 4E  |POKE53280,0:PRIN|
00000020: 54 43 48 52 24 28 35 29  0D 20 35 30 20 50 52 49  |TCHR$(5). 50 PRI|
00000030: 4E 54 22 93 11 11 1D 1D  1D 1D 1D 1D 1D 1D 12 20  |NT"............ |
00000040: 4D 41 43 48 49 4E 45 20  4C 41 4E 47 55 41 47 45  |MACHINE LANGUAGE|
00000050: 20 53 41 56 45 20 92 22  0D 20 36 30 20 46 4F 52  | SAVE .". 60 FOR|
00000060: 49 3D 37 34 32 34 54 4F  37 34 38 39 0D 20 37 30  |I=7424TO7489. 70|
00000070: 20 52 45 41 44 58 0D 20  38 30 20 50 4F 4B 45 49  | READX. 80 POKEI|
00000080: 2C 58 3A 4E 45 58 54 49  0D 20 39 30 20 46 4F 52  |,X:NEXTI. 90 FOR|
00000090: 49 3D 31 54 4F 35 30 30  3A 4E 45 58 54 0D 20 31  |I=1TO500:NEXT. 1|
000000A0: 30 30 20 50 52 49 4E 54  22 11 11 11 1D 1D 1D 1D  |00 PRINT".......|
000000B0: 1D 1D 1D 1D 1D 22 3B 0D  20 31 31 30 20 50 52 49  |.....";. 110 PRI|
000000C0: 4E 54 22 1D 1D 12 54 92  41 50 45 20 4F 52 20 12  |NT"...T.APE OR .|
000000D0: 44 92 49 53 4B 3F 22 0D  20 31 32 30 20 47 45 54  |D.ISK?". 120 GET|
000000E0: 44 24 3A 49 46 44 24 3D  22 22 54 48 45 4E 31 32  |D$:IFD$=""THEN12|
000000F0: 30 0D 20 31 33 30 20 49  46 44 24 3D 22 54 22 54  |0. 130 IFD$="T"T|
00000100: 48 45 4E 50 52 49 4E 54  22 11 1D 1D 1D 1D 1D 1D  |HENPRINT".......|
00000110: 1D 1D 1D 1D 1D 12 54 41  50 45 20 53 45 4C 45 43  |......TAPE SELEC|
00000120: 54 45 44 22 3A 4C 46 3D  31 3A 44 4E 3D 31 3A 53  |TED":LF=1:DN=1:S|
00000130: 41 3D 32 0D 20 31 34 30  20 49 46 44 24 3D 22 44  |A=2. 140 IFD$="D|
00000140: 22 54 48 45 4E 50 52 49  4E 54 22 11 1D 1D 1D 1D  |"THENPRINT".....|
00000150: 1D 1D 1D 1D 1D 1D 1D 12  44 49 53 4B 20 53 45 4C  |........DISK SEL|
00000160: 45 43 54 45 44 22 3A 4C  46 3D 31 35 3A 44 4E 3D  |ECTED":LF=15:DN=|
00000170: 38 3A 53 41 3D 31 35 0D  20 31 35 30 20 49 46 44  |8:SA=15. 150 IFD|
00000180: 24 3C 3E 22 54 22 41 4E  44 44 24 3C 3E 22 44 22  |$<>"T"ANDD$<>"D"|
00000190: 54 48 45 4E 50 52 49 4E  54 22 11 22 3A 47 4F 54  |THENPRINT".":GOT|
000001A0: 4F 31 32 30 0D 20 31 36  30 20 50 4F 4B 45 37 36  |O120. 160 POKE76|
000001B0: 36 31 2C 4C 46 0D 20 31  37 30 20 50 4F 4B 45 37  |61,LF. 170 POKE7|
000001C0: 36 36 32 2C 44 4E 0D 20  31 38 30 20 50 4F 4B 45  |662,DN. 180 POKE|
000001D0: 37 36 36 33 2C 53 41 0D  20 32 30 30 20 49 4E 50  |7663,SA. 200 INP|
000001E0: 55 54 22 11 1D 1D 1D 1D  1D 1D 1D 1D 1D 53 54 41  |UT"..........STA|
000001F0: 52 54 49 4E 47 20 41 44  44 52 45 53 53 20 22 3B  |RTING ADDRESS ";|
00000200: 53 0D 20 32 31 30 20 53  31 3D 49 4E 54 28 53 2F  |S. 210 S1=INT(S/|
00000210: 32 35 36 29 0D 20 32 32  30 20 53 32 3D 53 2D 53  |256). 220 S2=S-S|
00000220: 31 2A 32 35 36 0D 20 32  33 30 20 50 4F 4B 45 32  |1*256. 230 POKE2|
00000230: 35 31 2C 53 32 0D 20 32  34 30 20 50 4F 4B 45 32  |51,S2. 240 POKE2|
00000240: 35 32 2C 53 31 0D 20 32  34 35 20 41 24 3D 22 22  |52,S1. 245 A$=""|
00000250: 0D 20 32 35 30 20 49 4E  50 55 54 22 11 1D 1D 1D  |. 250 INPUT"....|
00000260: 1D 1D 1D 1D 1D 1D 46 49  4E 41 4C 20 41 44 44 52  |......FINAL ADDR|
00000270: 45 53 53 20 22 3B 41 24  0D 20 32 36 30 20 49 46  |ESS ";A$. 260 IF|
00000280: 41 24 3D 22 22 54 48 45  4E 33 30 30 0D 20 32 37  |A$=""THEN300. 27|
00000290: 30 20 46 3D 56 41 4C 28  41 24 29 0D 20 32 38 30  |0 F=VAL(A$). 280|
000002A0: 20 47 4F 54 4F 33 32 30  0D 20 33 30 30 20 49 4E  | GOTO320. 300 IN|
000002B0: 50 55 54 22 91 1D 1D 1D  1D 1D 1D 1D 1D 1D 4E 55  |PUT"..........NU|
000002C0: 4D 42 45 52 20 4F 46 20  42 59 54 45 53 20 20 20  |MBER OF BYTES   |
000002D0: 22 3B 4E 0D 20 33 31 30  20 46 3D 53 2B 4E 2D 31  |";N. 310 F=S+N-1|
000002E0: 0D 20 33 32 30 20 46 31  3D 49 4E 54 28 46 2F 32  |. 320 F1=INT(F/2|
000002F0: 35 36 29 0D 20 33 33 30  20 46 32 3D 46 2D 46 31  |56). 330 F2=F-F1|
00000300: 2A 32 35 36 0D 20 33 33  35 20 49 46 46 3C 53 54  |*256. 335 IFF<ST|
00000310: 48 45 4E 50 52 49 4E 54  22 91 91 91 91 91 22 3A  |HENPRINT".....":|
00000320: 47 4F 54 4F 32 30 30 0D  20 33 34 30 20 50 4F 4B  |GOTO200. 340 POK|
00000330: 45 37 36 35 39 2C 46 32  0D 20 33 35 30 20 50 4F  |E7659,F2. 350 PO|
00000340: 4B 45 37 36 36 30 2C 46  31 0D 20 34 30 30 20 49  |KE7660,F1. 400 I|
00000350: 4E 50 55 54 22 11 1D 1D  1D 1D 1D 1D 1D 1D 1D 50  |NPUT"..........P|
00000360: 52 4F 47 52 41 4D 20 4E  41 4D 45 20 22 3B 4E 24  |ROGRAM NAME ";N$|
00000370: 0D 20 34 31 30 20 4E 4C  3D 4C 45 4E 28 4E 24 29  |. 410 NL=LEN(N$)|
00000380: 0D 20 34 32 30 20 49 46  4E 4C 3C 31 30 54 48 45  |. 420 IFNL<10THE|
00000390: 4E 34 36 30 0D 20 34 33  30 20 50 52 49 4E 54 22  |N460. 430 PRINT"|
000003A0: 11 4E 41 4D 45 20 54 4F  4F 20 4C 4F 4E 47 22 0D  |.NAME TOO LONG".|
000003B0: 20 34 34 30 20 47 4F 54  4F 34 30 30 0D 20 34 36  | 440 GOTO400. 46|
000003C0: 30 20 50 4F 4B 45 37 36  34 38 2C 4E 4C 0D 20 34  |0 POKE7648,NL. 4|
000003D0: 37 30 20 46 4F 52 49 3D  31 54 4F 4E 4C 0D 20 34  |70 FORI=1TONL. 4|
000003E0: 38 30 20 50 4F 4B 45 37  36 34 38 2B 49 2C 41 53  |80 POKE7648+I,AS|
000003F0: 43 28 4D 49 44 24 28 4E  24 2C 49 2C 31 29 29 0D  |C(MID$(N$,I,1)).|
00000400: 20 34 39 30 20 4E 45 58  54 49 0D 20 35 30 30 20  | 490 NEXTI. 500 |
00000410: 49 46 44 24 3D 22 44 22  54 48 45 4E 50 52 49 4E  |IFD$="D"THENPRIN|
00000420: 54 22 11 1D 1D 1D 1D 1D  1D 1D 1D 1D 50 52 45 53  |T"..........PRES|
00000430: 53 20 41 4E 59 20 4B 45  59 20 54 4F 20 53 41 56  |S ANY KEY TO SAV|
00000440: 45 22 0D 20 35 30 35 20  49 46 44 24 3D 22 54 22  |E". 505 IFD$="T"|
00000450: 54 48 45 4E 50 52 49 4E  54 22 11 1D 1D 1D 1D 1D  |THENPRINT"......|
00000460: 1D 1D 1D 1D 52 45 57 49  4E 44 20 54 41 50 45 20  |....REWIND TAPE |
00000470: 41 4E 44 20 50 52 45 53  53 20 41 4E 59 20 4B 45  |AND PRESS ANY KE|
00000480: 59 11 22 0D 20 35 31 30  20 47 45 54 41 24 0D 20  |Y.". 510 GETA$. |
00000490: 35 32 30 20 49 46 41 24  3D 22 22 54 48 45 4E 35  |520 IFA$=""THEN5|
000004A0: 31 30 0D 20 35 33 30 20  53 59 53 37 34 37 32 0D  |10. 530 SYS7472.|
000004B0: 20 35 33 31 20 50 52 49  4E 54 22 11 12 20 53 41  | 531 PRINT".. SA|
000004C0: 56 45 20 43 4F 4D 50 4C  45 54 45 44 20 92 22 0D  |VE COMPLETED .".|
000004D0: 20 35 36 30 20 45 4E 44  0D 20 31 30 30 30 20 44  | 560 END. 1000 D|
000004E0: 41 54 41 20 31 36 39 2C  31 39 32 2C 33 32 2C 31  |ATA 169,192,32,1|
000004F0: 34 34 2C 32 35 35 2C 31  37 33 2C 32 33 37 2C 32  |44,255,173,237,2|
00000500: 39 2C 31 37 34 2C 32 33  38 2C 32 39 2C 31 37 32  |9,174,238,29,172|
00000510: 2C 32 33 39 2C 32 39 2C  33 32 2C 31 38 36 2C 32  |,239,29,32,186,2|
00000520: 35 35 2C 31 37 33 0D 20  31 31 30 30 20 44 41 54  |55,173. 1100 DAT|
00000530: 41 20 32 32 34 2C 32 39  2C 31 36 32 2C 32 32 35  |A 224,29,162,225|
00000540: 2C 31 36 30 2C 32 39 2C  33 32 2C 31 38 39 2C 32  |,160,29,32,189,2|
00000550: 35 35 2C 39 36 2C 32 33  34 2C 32 33 34 2C 32 33  |55,96,234,234,23|
00000560: 34 2C 32 33 34 0D 20 31  32 30 30 20 44 41 54 41  |4,234. 1200 DATA|
00000570: 20 31 36 39 2C 30 2C 33  32 2C 31 34 34 2C 32 35  | 169,0,32,144,25|
00000580: 35 2C 39 36 2C 32 33 34  2C 32 33 34 2C 32 33 34  |5,96,234,234,234|
00000590: 2C 32 33 34 2C 32 33 34  2C 32 33 34 2C 32 33 34  |,234,234,234,234|
000005A0: 2C 32 33 34 2C 32 33 34  2C 32 33 34 0D 20 31 33  |,234,234,234. 13|
000005B0: 30 30 20 44 41 54 41 20  33 32 2C 30 2C 32 39 2C  |00 DATA 32,0,29,|
000005C0: 31 36 39 2C 32 35 31 2C  31 37 34 2C 32 33 35 2C  |169,251,174,235,|
000005D0: 32 39 2C 31 37 32 2C 32  33 36 2C 32 39 2C 33 32  |29,172,236,29,32|
000005E0: 2C 32 31 36 2C 32 35 35  2C 33 32 2C 33 32 2C 32  |,216,255,32,32,2|
000005F0: 39 2C 39 36 0D 00                                 |9,96..          |

 40 POKE53281,0:POKE53280,0:PRINTCHR$(5)
. 50 PRINT"............ MACHINE LANGUAGE
 SAVE .". 60 FORI=7424TO7489. 70 READX. 
80 POKEI,X:NEXTI. 90 FORI=1TO500:NEXT. 1
00 PRINT"............";. 110 PRINT"...T.
APE OR .D.ISK?". 120 GETD$:IFD$=""THEN12
0. 130 IFD$="T"THENPRINT".............TA
PE SELECTED":LF=1:DN=1:SA=2. 140 IFD$="D
"THENPRINT".............DISK SELECTED":L
F=15:DN=8:SA=15. 150 IFD$<>"T"ANDD$<>"D"
THENPRINT".":GOTO120. 160 POKE7661,LF. 1
70 POKE7662,DN. 180 POKE7663,SA. 200 INP
UT"..........STARTING ADDRESS ";S. 210 S
1=INT(S/256). 220 S2=S-S1*256. 230 POKE2
51,S2. 240 POKE252,S1. 245 A$="". 250 IN
PUT"..........FINAL ADDRESS ";A$. 260 IF
A$=""THEN300. 270 F=VAL(A$). 280 GOTO320
. 300 INPUT"..........NUMBER OF BYTES   
";N. 310 F=S+N-1. 320 F1=INT(F/256). 330
 F2=F-F1*256. 335 IFF<STHENPRINT".....":
GOTO200. 340 POKE7659,F2. 350 POKE7660,F
1. 400 INPUT"..........PROGRAM NAME ";N$
. 410 NL=LEN(N$). 420 IFNL<10THEN460. 43
0 PRINT".NAME TOO LONG". 440 GOTO400. 46
0 POKE7648,NL. 470 FORI=1TONL. 480 POKE7
648+I,ASC(MID$(N$,I,1)). 490 NEXTI. 500 
IFD$="D"THENPRINT"..........PRESS ANY KE
Y TO SAVE". 505 IFD$="T"THENPRINT"......
....REWIND TAPE AND PRESS ANY KEY.". 510
 GETA$. 520 IFA$=""THEN510. 530 SYS7472.
 531 PRINT".. SAVE COMPLETED .". 560 END
. 1000 DATA 169,192,32,144,255,173,237,2
9,174,238,29,172,239,29,32,186,255,173. 
1100 DATA 224,29,162,225,160,29,32,189,2
55,96,234,234,234,234. 1200 DATA 169,0,3
2,144,255,96,234,234,234,234,234,234,234
,234,234,234. 1300 DATA 32,0,29,169,251,
174,235,29,172,236,29,32,216,255,32,32,2
9,96..

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL