Atari 8-bit Source code

20 REM
30 DIM STRING$(70),​SCREENINZ$(9),​TEMP$(10)
40 REM
50 REM ****** MOVE SCREEN DATA ******
60 REM
70 FOR I=1 TO 9:​READ J:​SCREENINZ$(I)=CHR$(J):​NEXT I
80 DATA 104,​104,​104,​133,​106,​32,​246,​243,​96
90 IF PEEK(106)<=128 THEN GOTO 150
100 X=USR(ADR(SCREENINZ$),​128)
110 REM
120 REM ****** LOAD SPECIAL *****
130 REM ****** DISK INTERFACE *****
140 REM
150 ? "":​POKE 752,​1:​? "CREATING DISK INTERFACE:​";:​GOSUB 1540:​RESTORE 160:​POKE 82,​1
160 PRINT CHR$(125):​GOTO 890
890 PRINT " "
895 ?:​? " * INSERT DESTINATION DISK IN DRIVE #1."
900 POSITION 2,​5:​? "* ENTER DESTINATION FILE NAME":​?:​? " ";:​INPUT STRING$:​IF LEN(STRING$)>15 THEN 900
910 IF LEN(STRING$)=0 THEN GOTO 900
920 IF STRING$(1,​3)<>"D1:​" THEN POSITION 17,​7:​? " ":​?:​? " ":​GOTO 900
940 STRING$(LEN(STRING$)+1)=CHR$(155)
950 REM
960 REM ****** OPEN FILE *******
970 REM
980 OPEN #1,​8,​0,​STRING$
990 FOR I=1 TO 6:​READ J:​STRING$(I)=CHR$(J):​NEXT I
1000 REM
1010 REM ***** WRITE FILE HEADER *****
1020 REM
1030 DATA 255,​255,​0,​96,​255,​127
1040 X=USR(1538,​ADR(STRING$),​ADR(STRING$)+6)
1050 IF X=1 THEN GOTO 1070
1060 PRINT "ERROR ";X:​CLOSE #1:​STOP
1070 J=128:​PRINT:​PRINT "LEFT OR RIGHT CARTRIDGE (L or R)"
1072 PRINT "('L' FOR BASIC - 'R' FOR ANY OTHER)"
1075 INPUT TEMP$:​IF TEMP$(1)="L" THEN J=160
1080 PRINT:​PRINT "IF YOU HAVE THE CORRECT CARTRIDGE"
1090 PRINT "IN THE CORRECT SLOT - PRESS [RETURN]":​INPUT TEMP$
1095 ?:​? ""
1100 REM
1110 REM **** WRITE CARTRIDGE ******
1120 REM
1130 X=USR(1538,​J*256,​(J+32)*256)
1140 IF X<>1 THEN GOTO 1060
1150 ? ""
1160 REM ***** WRITE BOOT ROUTINE ****
1170 REM ***** AND AUTORUN VECTOR ****
1180 REM
1190 FOR I=1 TO 62:​READ J:​STRING$(I)=CHR$(J):​NEXT I
1195 ? ""
1200 X=USR(1538,​ADR(STRING$),​ADR(STRING$)+62)
1210 CLOSE #1
1440 ? "":​END
1450 DATA 0,​6,​51,​6
1460 DATA 165,​106,​201,​144,​144,​42,​169,​144
1470 DATA 133,​106,​32,​246,​243,​173,​0,​96
1480 DATA 238,​14,​6,​208,​3,​238,​15,​6
1490 DATA 141,​0,​160,​238,​25,​6,​208,​237
1500 DATA 238,​26,​6,​169,​192,​77,​26,​6
1510 DATA 208,​227,​32,​49,​6,​108,​250,​191
1520 DATA 96,​108,​254,​191
1530 DATA 224,​2,​225,​2,​0,​6
1540 RESTORE 1550
1550 READ N,​N2:​FOR K=N TO N2:​POSITION 27,​1:​? "";:​POKE 53279,​0:​READ Q:​POKE K,​Q:​POSITION 27,​1:​? "X";:​NEXT K:​RETURN
1560 DATA 1536,​1661
1570 DATA 0,​0,​104,​169,​11,​141,​82,​3
1580 DATA 169,​128,​141,​84,​3,​169,​6,​141
1590 DATA 85,​3,​104,​133,​213,​104,​133,​212
1600 DATA 56,​104,​170,​104,​229,​212,​141,​0
1610 DATA 6,​138,​229,​213,​141,​1,​6,​162
1620 DATA 125,​173,​0,​6,​56,​233,​125,​141
1630 DATA 0,​6,​173,​1,​6,​233,​0,​141
1640 DATA 1,​6,​176,​7,​24,​173,​0,​6
1650 DATA 105,​125,​170,​138,​168,​136,​48,​8
1660 DATA 177,​212,​153,​128,​6,​24,​144,​245
1670 DATA 138,​101,​212,​133,​212,​169,​0,​101
1680 DATA 213,​133,​213,​138,​141,​88,​3,​169
1690 DATA 0,​141,​89,​3,​162,​16,​32,​86
1700 DATA 228,​16,​10,​173,​83,​3,​133,​212
1710 DATA 169,​0,​133,​213,​96,​169,​255,​77
1720 DATA 1,​6,​208,​171,​240,​237	

• Download link 1

• Download link 1