Atari 8-bit Source code

100GRAPHICS0
110DIMA$(1)
120?
130?"PLACEBOOTTAPEINPLAYER"
140?"REWINDTAPE-";
150?"DEPRESSPLAYBUTTON"
160?"PRESSRETURNKEY"
170?
180OPEN#1,4,0,"C:"
190GET#1,A:GET#1,NREC
200GET#1,ADL:GET#1,ADH
210CLOSE#1
220?"SYSTEMPARAMETERS:"
230?
240BTOP=PEEK(144)+256*PEEK(145)
250?"BASICMEMTOP=";BTOP
260OTOP=PEEK(741)+256*PEEK(742)
270?"OSMEMTOP=";OTOP
280?"FREERAM=";OTOP-BTOP
290?
300START=ADL+256*ADH
310?"YOURBOOTTAPENORMALLY"
320?"LOADSSTARTINGAT";START
330IFNREC=0THENNREC=256
340?"CONTAINS";NREC;"RECORDS";
350FLEN=128*NREC
360?"=";FLEN;"BYTES"
370?
380START=BTOP+500
390LAST=START+FLEN
400IFLAST<OTOPTHEN490
410?"WORKAREAREQUIRED"
420?
430?START,"TO";LAST
440?
450?"INSUFFICIENTFREERAM"
460?
470?"SORRY"
480STOP
490FORA=1536TO1569
500READD
510POKEA,D
520NEXTA
530DATA104,162,16,169,7,157,66,3
540DATA104,157,69,3,104,157,68,3
550DATA104,157,73,3,104,157,72,3
560DATA32,86,228,16,4,169,1,133,212
570DATA96
580?"REWINDTHETAPEAGAIN"
590?"DEPRESSPLAYBUTTON"
600?"PRESSRETURN"
610?
620OPEN#1,4,128,"C:"
630X=USR(1536,START,FLEN)
640CLOSE#1
650IFX<>1THEN680
660?"TAPEREADERROR"
670STOP
680?"PUTAFORMATTEDDISKIN"
690?"DRIVE#1-PRESSRETURN"
700INPUTA$
710?
720POKE769,1:REMDUNIT=1
730POKE770,87:REMWRITE=87
740POKE779,0:REMDAUX1=0
750FORA=1536TO1540
760READD
770POKEA,D
780NEXTA
790DATA104,32,83,228
800DATA96
810FORSECTOR=1TONREC
820POKE772,START-256*INT(START/256)
830POKE773,INT(START/256)
840POKE778,SECTOR
850X=USR(1536)
860START=START+128
870NEXTSECTOR
880?
890?"DONE"
900END	

• Download link 1
• Download link 2