Atari 8-bit Source code

100REM****************************
110REM*BLACKRABBIT2.0MAKER*
120REM*BYBRIANMORIARTY*
130REM*ANALOGCOMPENDIUMV.1*
140REM****************************
150REM
160CLR:DIMBUF$(768),ML$(4):FORI=1TO4:READBYTE:ML$(I)=CHR$(BYTE):NEXTI:POKE752,1
170BUF$(1)="":BUF$(768)="":BUF$(2)=BUF$:?"VerifyingDATAlines.":?"ReadingLine";
180B=0:TOTAL=B:LINE=990:RESTORE1000:TRAP250
190LINE=LINE+10
200POSITION15,3:?LINE
210FORI=1TO25:B=B+1:READBYTE:TOTAL=TOTAL+BYTE:BUF$(B,B)=CHR$(BYTE):NEXTI
220IFPEEK(183)+256*PEEK(184)<>LINETHEN?"Line";LINE;"missing.":END
230READCHECKSUM:IFCHECKSUM=TOTALTHEN190
240GOTO360
250POKE752,0:IFPEEK(195)<>6THEN360
260?"DATAlinesverified.":?"InsertablankdiskinDrive#1."
270?"Presstowritedisk."
280IFPEEK(53279)<>6THEN280
290POKE769,1:POKE770,33:?"Formattingdisk.":X=USR(ADR(ML$))
300IFPEEK(771)<>1THEN?"Formaterror!":?"Removewrite-protecttabor":?"replacedisk.":GOTO270
310?"Writingdata.":POKE770,87:POKE779,0:BUFFER=ADR(BUF$)
320FORSECTOR=1TO6
330POKE778,SECTOR:POKE773,INT(BUFFER/256):POKE772,BUFFER-(256*PEEK(773)):X=USR(ADR(ML$))
340BUFFER=BUFFER+128:NEXTSECTOR
350?"Rabbitdiskokay.":END
360?"Baddataatline";LINE:LISTLINE:END
370DATA104,76,83,228
380REM*M/LDATA
1000DATA0,6,128,4,134,4,169,0,168,145,94,32,77,6,165,106,201,192,176,12,169,158,133,134,169,2582
1010DATA6,32,131,6,76,157,4,162,0,142,198,2,134,129,134,131,142,68,2,232,134,128,134,130,134,5130
1020DATA9,142,1,3,134,144,24,165,88,105,239,133,136,133,138,165,89,105,0,133,137,133,139,32,77,7734
1030DATA6,169,192,133,134,169,6,32,131,6,24,165,88,105,122,133,140,144,2,230,141,230,138,208,2,10584
1040DATA230,139,162,2,160,0,169,14,145,138,200,192,240,208,249,24,165,138,105,240,133,138,144,2,230,14151
1050DATA139,202,16,231,32,143,6,24,165,136,101,128,133,138,165,137,101,129,133,139,169,226,133,134,169,17380
1060DATA6,32,131,6,32,91,6,169,82,141,2,3,165,128,141,10,3,165,129,141,11,3,32,83,228,19320
1070DATA173,3,3,16,4,169,31,208,15,160,127,177,132,208,7,136,16,249,169,16,208,2,169,128,133,21979
1080DATA143,160,0,132,77,145,138,230,138,208,2,230,139,230,128,208,2,230,129,165,129,201,2,208,6,25359
1090DATA165,128,201,209,240,31,165,143,201,128,208,181,24,173,4,3,105,128,141,4,3,133,132,173,5,28387
1100DATA3,105,0,141,5,3,133,133,201,188,208,156,24,165,136,101,130,133,138,165,137,101,131,133,139,31296
1110DATA169,4,133,134,169,7,32,131,6,32,91,6,198,144,208,32,32,66,6,169,33,141,2,3,32,33276
1120DATA83,228,173,3,3,201,1,240,14,169,72,133,134,169,7,32,131,6,32,91,6,240,224,32,143,35843
1130DATA6,169,87,141,2,3,165,130,141,10,3,165,131,141,11,3,160,0,132,77,177,138,133,143,201,38312
1140DATA128,208,5,32,83,228,48,251,169,142,160,0,145,138,230,138,208,2,230,139,230,130,208,2,230,41796
1150DATA131,165,131,201,2,208,6,165,130,201,209,240,30,165,143,201,128,208,193,24,173,4,3,105,128,45090
1160DATA141,4,3,173,5,3,105,0,141,5,3,201,188,208,172,76,1,5,169,38,133,134,169,7,32,47206
1170DATA131,6,173,31,208,201,6,240,10,201,3,208,245,32,123,6,76,119,228,32,123,6,76,160,4,49854
1180DATA169,0,141,4,3,169,4,141,5,3,96,24,165,88,105,42,133,140,165,89,105,0,133,141,96,52015
1190DATA169,100,141,0,210,169,170,141,1,210,169,0,133,20,165,20,201,15,208,250,169,0,141,1,210,55028
1200DATA173,31,208,201,6,208,249,173,31,208,201,7,208,249,96,133,135,160,33,177,134,145,140,136,16,58486
1210DATA249,96,169,128,133,132,141,4,3,169,7,133,133,141,5,3,96,50,101,109,111,118,101,0,99,60917
1220DATA97,114,116,114,105,100,103,101,27,0,114,101,113,117,105,114,101,115,0,20,24,43,0,50,33,62844
1230DATA45,162,236,225,227,235,128,178,225,226,226,233,244,128,146,142,144,0,98,121,0,34,114,105,97,66563
1240DATA110,0,45,111,114,105,97,114,116,121,41,110,115,101,114,116,0,51,47,53,50,35,37,0,100,68466
1250DATA105,115,107,12,0,112,114,101,115,115,0,179,180,161,178,180,0,0,0,41,110,115,101,114,116,70837
1260DATA0,35,47,48,57,0,100,105,115,107,12,0,112,114,101,115,115,0,179,180,161,178,180,0,0,72898
1270DATA0,0,0,179,180,161,178,180,0,116,111,0,114,101,13,114,117,110,12,0,175,176,180,169,175,75459
1280DATA174,0,116,111,0,98,111,111,116,0,0,0,50,101,112,108,97,99,101,0,98,97,100,0,35,77294
1290DATA47,48,57,0,100,105,115,107,12,0,112,114,101,115,115,0,179,180,161,178,180,0,0,0,0,79320	

• Download link 1
• Download link 2