Atari 8-bit Source code

10REM
20REM
25REM
30REM
40REM
41REM
42REM
50REM
53Q10=10:Q210=210:Q540=540:Q6=6:Q200=200:Q260=260:Q560=560:Q520=520:Q559=559:Q750=750:Q752=752:Q630=630
54Q1=1:RS=580:Q16=16:BRK=53774
56Q64=64:POKERS,Q1:POKEQ16,Q64:POKEBRK,Q16
57Q600=600:Q570=570:Q155=155:Q40000=40000:Q5000=5000:Q2=2:Q8=8:Q21=21:Q500=500:Q530=530:Q380=380:Q340=340
58Q370=370:Q133=133:Q15=15:Q128=128:Q127=127:Q7=7:Q4=4:Q0=0:Q53279=53279:Q12=12:Q17=17
59Q18=18:Q19=19:Q20=20:Q720=720:Q255=255:Q280=280:Q320=320:Q3=3:Q330=330:Q70=70
60GOSUBQ5000:REMInitialize.
70GRAPHICSQ1+Q16
74POKERS,Q1:POKEQ16,Q64:POKEBRK,Q16
80?#6;""
90?#6;"":?#6
110?#6;""
120?#6:?#6;"list"
130?#6:?#6;""
140?#6:?#6;"inversecontrol"
150?#6:?#6;""
160?#6;"":?#6
165POSITIONQ0,Q17:?#6;""
170POSITIONQ0,Q18:?#6;"PRESSstart"
180POSITIONQ0,Q19:?#6;"TOCONTINUE"
190POSITIONQ0,Q20:?#6;""
200IFPEEK(Q53279)<>Q6THENGOTOQ200
210REM
220GRAPHICSQ0:SETCOLORQ2,Q12,Q4:SETCOLORQ1,Q0,Q0
224IFPEEK(Q16)>128THENPOKEQ16,Q64:POKEBRK,Q64
230?"AWytragofUtilityProgram."
240?""
250?").CASSETTE":?").DISK"
255POSITIONQ2,Q12:?">";
260OPEN#Q1,Q4,Q0,"K:":GET#Q1,IN:CLOSE#Q1
262IFIN=ASC("C")ORIN=ASC("c")ORIN=ASC("")ORIN=ASC("")ORIN=ASC("")ORIN=ASC("")THEN?"C":GOTOQ280
264IFIN=ASC("D")ORIN=ASC("d")ORIN=ASC("")ORIN=ASC("")ORIN=ASC("")ORIN=ASC("")THEN?"D":GOTOQ320
266GOTOQ260
280?:?"POSITIONTAPEINCASSETTEDECK,"
290?"ANDPRESSWHENREADY."
300FN$="C:"
310GOTOQ500
320?:?"D:";
330FN$="D:"
340OPEN#Q1,Q4,Q0,"K:":GET#Q1,IN:CLOSE#Q1
350IFIN=Q155THENGOTOQ500
360IFIN=ASC("")THENGOTOQ380
365IFLEN(FN$)=14THENGOTOQ340
366IFLEN(FN$)>2AND(IN>=ASC("0")ANDIN<=ASC("9"))THENGOTOQ370
367IFIN<>ASC(".")AND(IN<ASC("A")ORIN>ASC("Z"))THENGOTOQ340
370FN$(LEN(FN$)+1)=CHR$(IN):?CHR$(IN);:GOTOQ340
380IFLEN(FN$)=2THENGOTOQ340
390IFLEN(FN$)=Q3THEN?CHR$(IN);:GOTOQ330
400FN$=FN$(Q1,LEN(FN$)-Q1):?CHR$(IN);:GOTOQ340
500REM
510TRAPQ520:OPEN#Q1,Q4,Q0,FN$:TRAPQ40000:GOTOQ560
520?:?""
530?:?"PRESSTOCONTINUE..."
535CLOSE#Q1:CLOSE#Q7
540IFPEEK(Q53279)<>Q6THENGOTOQ540
550GOTOQ210
560TRAPQ570:OPEN#Q7,Q8,Q0,"P:":TRAPQ40000:?#Q7;CHR$(Q15);:GOTOQ600
570?:?""
580GOTOQ530
600REM
604POKEQ752,Q1
605FORDELAY=Q1TOQ10
610POSITIONQ2,Q20:?"":FORD=Q1TOQ20:NEXTD
611POSITIONQ2,Q20:?"TheScreenWillNowBlackout.":FORD=Q1TOQ20:NEXTD:NEXTDELAY
612LETON=PEEK(Q559)
613POKEQ559,Q0
620TRAPQ750
630GET#Q1,IN
640IFIN=Q155THEN?#Q7;"K<BB<":GOTOQ630
670IFIN>Q127THENIN=IN-Q128:?#Q7;"K";FONT$(IN*Q8+Q1,IN*Q8+Q8);:GOTOQ720
700?#Q7;"K";
710FORJ=Q0TOQ7:?#Q7;CHR$(Q255-ASC(FONT$(IN*Q8+Q1+J,IN*Q8+Q1+J)));:NEXTJ
720GOTOQ630
730?#Q7
740GOTOQ630
750CLOSE#Q1:CLOSE#Q7
755POKEQ559,ON
756POSITIONQ2,Q20:?""
760POSITIONQ2,Q20:?""
2000FORDELAY=1TO500:NEXTDELAY:GOTOQ70
4997REM
4998REMDataforCharacters.
4999REM
5000DIMFONT$(Q8*Q128),IN$(Q133),FN$(Q15)
5010FONT$(1,80)="??"
5020FONT$(81,160)="????????"
5030FONT$(161,240)="QQ"
5040FONT$(241,320)="))E"
5050FONT$(321,400)=""
5060FONT$(401,480)=""
5070FONT$(481,560)="99"
5080FONT$(561,640)=""
5090FONT$(641,720)=""
5100FONT$(721,800)=""
5110FONT$(801,880)=""
5120FONT$(881,960)=""
5130FONT$(961,1024)=""
5140RETURN	

• Download link 1

• Download link 1