bugrepellent3.ahoy

10 PRINTCHR$(147)"LOADING AND CHECKING THE DATA[3"."]":J=49152
20 FORB=0TO11:READA:IFA<0ORA>255THEN40
30 POKEJ+B,A:X=X+A:NEXTB:READA:IFA=XTHEN50
40 PRINT:PRINT"ERROR IN DATA LINE:"PEEK(64)*256+PEEK(63):END
50 X=0:J=J+12:IFJ<49456THEN20
60 POKE198,0:POKE49456,0:A$="Y":B$=A$:C$="D":D$="DISK":D=8:PRINTCHR$(147)
70 INPUT"DO YOU WANT AUTOMATIC SAVES (Y/N)";A$:PRINT:IFA$="Y"THEN90
80 PRINT"NO AUTOMATIC SAVES[3"."]":GOTO150
90 POKE49456,1:INPUT"DISK OR TAPE (D/T)";C$:IFC$<>"D"THEND=1:D$="TAPE"
100 POKE49457,D:D$=D$+" DRIVE":PRINT:INPUT"FILE NUMBER (0-99)";N
110 N$=RIGHT$(STR$(N),2):IFN<10THENN$=CHR$(48)+CHR$(N+48)
120 F$="BACKUP":PRINT:INPUT"FILENAME";F$:F$=N$+LEFT$(F$,14):L=LEN(F$)
130 POKE49458,L:FORJ=1TOL:POKE49458+J,ASC(MID$(F$,J,1)):NEXTJ:PRINT
140 PRINT"SAVING DEVICE ** "D$:PRINT"STARTING WITH ** "F$
150 PRINT:INPUT"IS THIS CORRECT (Y/N)";B$:IFB$<>"Y"THEN60
160 POKE770,131:POKE771,164:SYS49152:END
170 DATA169,79,32,210,255,162,38,160,192,204,3,3,1507
180 DATA208,10,162,131,160,164,169,70,32,210,255,44,1615
190 DATA169,78,32,210,255,142,2,3,140,3,3,76,1113
200 DATA36,193,32,96,165,134,122,132,123,32,115,0,1180
210 DATA170,240,243,162,255,134,58,144,3,76,150,164,1799
220 DATA32,107,169,32,121,165,173,0,2,240,5,169,1215
230 DATA79,141,2,3,76,162,164,169,0,133,2,133,1064
240 DATA251,133,252,133,254,24,101,20,69,254,230,254,1975
250 DATA24,101,21,69,254,170,230,254,164,252,185,0,1724
260 DATA2,133,253,201,34,208,6,165,2,73,255,133,1465
270 DATA2,201,32,208,4,165,2,240,8,138,24,101,1125
280 DATA253,69,254,170,44,198,254,230,252,164,253,208,2349
290 DATA213,138,41,240,74,74,74,74,24,105,129,141,1327
300 DATA44,193,138,41,15,24,105,129,141,45,193,162,1230
310 DATA0,189,43,193,240,12,157,0,4,173,134,2,1147
320 DATA157,0,216,232,208,239,169,38,141,2,3,173,1578
330 DATA48,193,240,23,165,161,201,212,176,4,165,160,1748
340 DATA240,13,238,32,208,160,0,32,225,255,208,6,1617
350 DATA32,33,193,76,38,192,232,208,242,200,208,239,1893
360 DATA32,68,229,169,0,168,174,49,193,32,186,255,1555
370 DATA173,50,193,162,51,160,193,32,189,255,169,43,1670
380 DATA166,45,164,46,32,216,255,162,1,189,51,193,1520
390 DATA168,200,152,201,58,144,2,169,48,157,51,193,1543
400 DATA201,48,208,3,202,16,234,32,33,193,76,116,1362
410 DATA164,206,32,208,169,0,170,168,76,219,255,160,1827
420 DATA1,1,160,0,0,65,72,79,89,33,0,0,500