Sitenotice: 11/29/2018: The wiki is back. It turns out, some anti-virus product on my web server had an issue with the latest version of PHP. My server techs have resolved this issue, and things should be working again. During the investigation, I did restore to a backup from September. There is a chance that any changes done since then were lost, but I do not recall any edits. --OS-9 Al

8/30/2016: Massive re-work is being done on the InfoBox Templates. Read that page to keep up with the plan for that, and adding better keyword tags (categories) to all the pages. --OS-9 Al (talk) 15:28, 31 August 2016 (CDT)

SAINTS

From CoCopedia - The Tandy/Radio Shack Color Computer Wiki
Jump to navigation Jump to search
100 DATA -1,-1,89,4,125,4,133,4,147,16,-2,-2,147,4,89,4,123,4,133,4,147,16
110 DATA -3,-3,147,4,89,4,125,4,133,4,147,8,125,8,89,8,125,8,108,16
120 DATA -4,-4,108,8,125,4,108,4,89,8,89,4,89,4,108,8,147,4,147,4,147,4
130 DATA -5,-5,133,8,133,4,133,8,125,4,133,4,147,8,123,8,89,8,108,8
140 DATA 89,16,-6,-6
150 CLS
160 READ A,B: IF A<0 THEN 190
170 SOUND A,B
180 GOTO 160
190 IF A=-1 THEN PRINT@263,"OH WHEN THE SAINTS":GOTO 160
200 IF A=-2 THEN PRINT@263," GO MARCHING IN":GOTO 160
210 IF A=-3 THEN PRINT@263, "OH WHEN THE SAINTS"
220 IF A=-3 THEN PRINT@297,"GO MARCHING IN": GOTO 160
230 IF A=-4 THEN PRINT@259,"I WANT TO BE IN THAT NUMBER":PRINT:GOTO 160
240 IF A=-5 THEN PRINT@257,"WHEN THE SAINTS GO MARCHING IN":GOTO 160
250 RESTORE: GOTO 150