EXILEQR

1 REM BY EPOOCH 2022-04-19
10 DATA 15,1,3,3,5,13,5,6,6,5,1,3,3,5,16
11 DATA 15,5,0,5,5,12,13,4,8,15,5,0,5,5,18
12 DATA 15,5,3,7,5,8,14,13,14,7,5,3,7,5,16
13 DATA 15,3,3,3,7,6,4,7,4,7,3,3,3,7,16
14 DATA 15,2,1,6,2,3,9,1,3,0,10,11,10,15,16
15 DATA 15,9,10,7,6,5,7,15,3,13,8,11,11,5,19
16 DATA 15,13,6,6,6,11,2,2,7,9,6,6,2,7,16
17 DATA 15,5,1,6,6,14,4,15,8,6,8,1,11,5,16
18 DATA 15,7,7,15,3,12,2,3,4,1,3,4,7,15,16 
19 DATA 15,1,3,3,5,2,4,9,13,5,7,4,2,7,20
20 DATA 15,5,0,5,5,0,4,3,3,2,1,4,4,13,16
21 DATA 15,5,3,7,5,4,14,7,4,12,14,8,7,5,16
22 DATA 15,3,3,3,7,7,3,3,15,15,3,3,3,7,16
23 DATA 26
30 READ A
40 IF A<16 THEN A=A+192: PRINT CHR$(A);: GOTO 30
50 IF A=18 THEN PRINT "    EXILE ";
55 IF A=19 THEN PRINT "     IN";
56 IF A=20 THEN PRINT "  PARADISE";
60 IF A<26 THEN PRINT "": GOTO 30
70 END

Very cool Epooch! Thank you!

Return to Tandy Color Computer