Sitenotice:
2020: NameSpaces are going to be implemented this year to better separate content. OS-9 Al (talk) 11:18, 15 April 2020 (CDT)
2020-05-17: If a page gives you an error about some revision not being found, just EDIT the page and the old page should appear in the editor. If it does, just SAVE that and the page should be restored. OS-9 Al (talk) 12:22, 17 May 2020 (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