Atari 8-bit Source code

10DIMA$(40),F$(12)
20GRAPHICS17:SETCOLOR4,2,3
30POSITION0,0:?#6;"____________________":?#6;
40POSITION2,2:?#6;"<<VERSION1.0>>"
50POSITION1,5:?#6;"**":?#6:?#6;"CREATEANDREAD"
60POSITION1,13:?#6;""
70POSITION0,21:?#6;"____________________"
80POSITION0,22:?#6;"pressstarttobegin"
90IFPEEK(53279)<>6THENGOTO90
100GOTO260
110GRAPHICS17:SETCOLOR4,3,0
120POSITION0,1:?#6;"____________________"
130POSITION0,3:?#6;"WRITEORREADFILE"
140POSITION0,5:?#6;"____________________"
150POSITION2,9:?#6;"=writefile"
160POSITION2,14:?#6;"=readorprint"
170POSITION0,18:?#6;"____________________"
180POSITION2,20:?#6;"PRESS''OR''"
190POSITION0,22:?#6;"____________________"
200OPEN#1,4,0,"K:"
210GET#1,R:CLOSE#1:GOSUB750
220IFR=87THENGOTO470:REMWRITE
230IFR=82THENGOTO880:REMREAD
240IFR<>87THENGOTO200
250IFR<>82THENGOTO200
260GRAPHICS17:SETCOLOR4,14,3
270POSITION3,7:?#6;"instructions?"
280POSITION7,12:?#6;"(Y/N)"
290OPEN#1,4,0,"K:":GET#1,X:CLOSE#1
300GOSUB750
310IFX=78THENGOTO110
320IFX=89THENGOTO350
330IFX<>78THENGOTO290
340IFX<>89THENGOTO290
350GRAPHICS0:SETCOLOR2,0,0:SETCOLOR4,0,0
360?"***INSTRUCTIONS***"
370?:?"Thisprogramwillallowyouto"
380?"writedocumentationfilesandalso"
390?"readtheseandanyotherdocumentationfiles."
400?:?"Youmaygivethedocumentation"
410?"filesanyfilenameyouwish,e.g.,"
420?"'D:FILENAME.DOC'.Youmayuseany"
430?"extender,e.g.,DOC.orTXT."
440?:?"TheprogramwillalsoallowyoutheoptionofprintingyourDOC.fileorviewingitonthescreen."
450?:?:?:?"";
460OPEN#1,4,0,"K:":GET#1,X:CLOSE#1:GOSUB750:GOTO110
470GRAPHICS0:POKE709,0:POKE710,10:POKE712,114
480?"NAMEYOURFILE":?"(ENTERASD:*.*)"
490INPUTF$
500OPEN#1,4,0,"E:":OPEN#2,8,0,F$
510POKE709,0:POKE710,10:POKE712,114
520?"PressRETURNtoendeachline.----PressSTART+RETURNtoendfile.":?"":?
530FORX=1TO37:GET#1,A:IFPEEK(53279)=6THENGOTO580
540IFA=155THENPOP:GOTO560
550A$(X)=CHR$(A):NEXTX:A$(X)=CHR$(155):FORX=40TO1STEP-1:SOUND0,20,4,INT(X/4):NEXTX:SOUND0,0,0,0:GOTO570
560FORX=40TO1STEP-1:SOUND0,20,14,INT(X/4):NEXTX:SOUND0,0,0,0
570PRINT#2;A$:FORX=1TO38:A$(X)="":GOTO530
580?#2;A$:CLOSE#1:CLOSE#2:GOTO590
590?:?:?"ENDOFFILE":CLOSE#1:?:?"Writeanotherfile?(Y/N)"
600OPEN#1,4,0,"K:":GET#1,Y:CLOSE#1:GOSUB750
610IFY=89ORY=121THENGOTO470
620IFY=78ORY=110THENEND
630IFY<>78ORY<>89ORY<>121ORY<>110THENGOTO600
640GRAPHICS0:POKE709,0:POKE710,10:POKE712,114:GOTO670
650TRAP690:OPEN#1,4,0,A$:TRAP700
660?CHR$(125):FORX=1TO20:INPUT#1;A$:PRINTA$:NEXTX:?:?"PRESSRETURN";:INPUTA$:GOTO660
670CLOSE#1:?"WHATDOC.FILE":?"(ENTERASD:*.*)":INPUTA$:GOTO650
680?:?:?"ENDOFFILE":CLOSE#1:?:?"Doyouwishtoreadanotherfile?(Y/N)"
690CLOSE#1:?"WHATDOC.FILE":?"(ENTERASD:*.*)":INPUTA$:GOTO650
700?:?:?"ENDOFFILE":CLOSE#1:?:?"Doyouwishtoreadanotherfile?(Y/N)"
710OPEN#1,4,0,"K:":GET#1,Y:CLOSE#1:GOSUB750
720IFY=89THENGOTO640
730IFY=78THENEND
740IFY<>78ORY<>89THENGOTO710
750FORVOLUME=15TO0STEP-1:SOUND0,1,2,VOLUME:NEXTVOLUME:RETURN
760OPEN#3,8,0,"P:":GOTO770
770GRAPHICS0:POKE709,0:POKE710,10:POKE712,114:GOTO800
780TRAP820:OPEN#1,4,0,A$:TRAP830
790INPUT#1;A$:PRINT#3;A$:GOTO790
800CLOSE#1:?"WHATDOC.FILE":?"(ENTERASD:*.*)":INPUTA$:GOTO780
810CLOSE#1:?:?"Printanotherfile?(Y/N)"
820CLOSE#3:CLOSE#1:?"WHATDOC.FILE":?"(ENTERASD:*.*)":INPUTA$:GOTO780
830?:?:?"ENDOFFILE":CLOSE#1:?:?"Printanotherfile?(Y/N)"
840OPEN#1,4,0,"K:":GET#1,Y:CLOSE#1:GOSUB750
850IFY=78THENCLOSE#3:END
860IFY=89THENGOTO770
870IFY<>78ORY<>89THENGOTO850
880GRAPHICS17:SETCOLOR2,3,0
890POSITION0,1:?#6;"____________________"
900POSITION0,3:?#6;"PRINTEROFSCREEN"
910POSITION0,5:?#6;"____________________"
920POSITION2,9:?#6;"=printer"
930POSITION2,14:?#6;"=screen"
940POSITION0,18:?#6;"____________________"
950POSITION2,20:?#6;"PRESS''OR''"
960POSITION0,22:?#6;"____________________"
1000OPEN#1,4,0,"K":GET#1,A:CLOSE#1
1010IFA=80THENGOTO760
1020IFA=83THENGOTO640
1030IFA<>80ORA<>83THENGOTO1000
2000GRAPHICS17:SETCOLOR4,3,0
2010POSITION0,1:?#6;"____________________"
2020POSITION0,3:?#6;"WRITEORREADFILE"
2030POSITION0,5:?#6;"____________________"
2040POSITION2,9:?#6;"=writefile"
2050POSITION2,14:?#6;"=readorprint"
2060POSITION0,18:?#6;"____________________"
2070POSITION2,20:?#6;"PRESS''OR''"
2080POSITION0,22:?#6;"____________________"	

• Download link 1

• Download link 1