Atari 8-bit Source code

10DIMA$(152):DIMB$(120):POKE752,1:PRINTCHR$(125)
20VT=1:A$="THISISASHORTDEMONSTRATIONOFHOWEASYITISTOUSETHIS"
30A$(LEN(A$)+1)="SIMPLESUBROUTINEINYOUROWNPROGRAMS.LISTTHEPROGRAMANDLOOKAT..."
40GOSUB1030
50VT=10:B$="LINES10-170TOSEE":GOSUB2010
80VT=11:B$="HOWTOPRINTLINES,OR":GOSUB2010
110VT=14:B$="LINES1000-2100TO":GOSUB2010
140VT=15:B$="SEETHEROUTINES.":GOSUB2010
170END
1000REM--OPTIONALLINEBREAKSUBROUTINE--
1010REM--USETHISIFYOUWANTTHEOUTPUTSUBROUTINETOBEABLETO
1020REMHANDLELINESTHATARELONGERTHANYOURCOMPUTER'SSCREENISWIDE--
1030IFLEN(A$)<=38THENB$=A$:A$="":GOSUB2010:RETURN
1080Y=38:FORX=2TO39
1100IFA$(X,X)=""THENY=X-1
1120NEXTX:B$=A$(1,Y):A$=A$(Y+1)
1150GOSUB2010:VT=VT+1
1170GOTO1030
2000REM--HERE'STHEOUTPUTSUBROUTINE
2010M=LEN(B$)
2020IFM/2<>INT(M/2)THENB$(M+1)="":M=M+1
2050FORN=1TOM/2
2070POSITION20-N,VT:?B$(1,N);B$(M-N+1)
2090NEXTN
2100RETURN	

• Download link 1
• Download link 2