Atari 8-bit Source code

1REMTHISISAPROGRAMTOTESTOUT
2REMTHEGENERALINPUTROUTINE.
3REM
4REMTHEINPUTROUTINEITSELFISINLINES150-195.
5REM
6REMTHEMAINBODYOFTHEPROGRAMSTARTSATLINE1000.
7REM
8REMINITIALIZATIONBEGINSATLINE32000.
9REM
10GOTO32005
150REM***THISISTHEGENERALINPUTROUTINE...
155POKEZTXTROW,ZYCUR:POKEZTXTCOL,ZXCUR:POKEZCURSOR,Z0:PRINTZQ$;
158OPEN#Z4,Z4,Z0,"K:":ZCC=Z0
160ZR$=""
165GOSUB185:IFZR=CARRETTHENPOKEACURSOR,Z1:PRINT:CLOSE#Z4:RETURN
170IFZR<>DELTHEN175
172IFZCC=Z0THEN165
173PRINT"";:ZCC=ZCC-Z1:IFZCC=Z0THEN160
174ZR$=ZR$(Z1,ZCC):GOTO165
175ZC$=CHR$(ZR):ZCC=ZCC+Z1
178IF(ZCC=ZFS+Z1ORZR<ZLOORZR>ZUP)THENZCC=ZCC-Z1:GOTO165
180ZR$(ZCC)=ZC$:PRINTZC$;:GOTO165
185GET#Z4,ZR:IFZR=CARRETTHEN195
188IFZR>Z128THENZR=ZR-Z128
190IFPEEK(SHFLOK)=Z0ANDZR>Z96THENZR=ZR-Z32
195POKESHFLOK,Z64:POKEINVFLG,Z0:RETURN
200REM***THISISTHEBREAKKEYDISABLEROUTINE...
201REM
202REMCALLTHISROUTINEAFTER
203REMEVERYGRAPHICSSTATEMENT
204REM
205I=PEEK(POKMSK):IFI>127THENI=I-Z128:POKEPOKMSK,I:POKE53774,I
210RETURN
1000REM***THISISTHEMAINPROGRAMBODY...
1001REM
1002REMAFTERINITIALIZATION,CONTROLWILLRETURNHERE
1003REM
1004REM
1005GRAPHICS0:PRINT"WELCOMETOTHESOLIDGOLDBULLET"
1010PRINT"PROOFINPUTROUTINETESTPROGRAM."
1015PRINT:PRINT"LET'SSTARTOFFSIMPLE."
1017REM***FIRSTJUSTGETATEXTSTRING.....
1018DIMNAME$(10)
1020ZXCUR=5:ZYCUR=7:ZQ$="ENTERYOURNAME:":ZFS=10:GOSUB155
1025IFZCC=Z0THEN1020
1030NAME$=ZR$:PRINT:PRINT"THANKSFORYOURCOOPERATION,";NAME$
1032REM***NOWGETANUMBER.......
1035ZYCUR=12:ZQ$="HOWOLDAREYOU?:":ZFS=2:ZLO=48:ZUP=57:GOSUB155
1040IFZCC=Z0THEN1035
1045AGE=VAL(ZR$)
1047REM***NOWBACKTOTEXTINPUT....
1050ZXCUR=2:ZYCUR=15:ZQ$="DOYOULIKETHEINPUTROUTINE?:":ZFS=3:ZLO=65:ZUP=96:GOSUB155
1055IFZCC=Z0THEN1050
1060IFZR$(1,1)="Y"THEN1070
1065PRINT:PRINT"I'LLBETYOUCOULDN'TBREAKITTHOUGH.BYE,BYE.":GOTO1075
1070PRINT:PRINT"YOUKNOW,";NAME$;",YOU'REPRETTY"
1072PRINT"SMARTFOR";AGE;"YEARS."
1075STOP
32000REM***THISISTHEINITIALIZ-ATIONSECTION...
32005READZ0,Z1,Z4,Z32,Z64,Z96,Z128
32010DIMZC$(1),ZR$(40),ZQ$(40)
32015READCARRET,DEL,SHFLOK,INVFLG,ZTXTROW,ZTXTCOL,ZCURSOR,POKMSK
32020ZLO=65:ZUP=96:GOSUB205:POKEZCURSOR,Z1
32599GOTO1005
32600DATA0,1,4,32,64,96,128
32605DATA155,126,702,694,84,85,752,16	

• Download link 1
• Download link 2