10REM Stolen Screens by Janny Looyeng
a
20REM Screen Thief did do it!!!
30REM Can be found on TBI 68
40MODE 7
50A$="
60B$=" STRING
70CLS
80PRINTB$A$'A$'B$'
90PRINTCHR$130" A) Barbarian II"
100PRINTCHR$130" B) Galaforce 2"
110PRINTCHR$130" C) Hopper"
120PRINTCHR$130" D) Hunchback"
130PRINTCHR$130" E) The Sentinel"
140PRINTCHR$130" F) Summer Olympics"
150PRINT'CHR$130" G) GET ME OUT (STOP)
"
160ON ERROR:IF ERR=17 RUN
170A$=GET$
180IF A$="A" THEN MODE5:HIMEM=&2800:VD
U23;7,28;0;0;0;23;8202;0;0;0;23;6,23;0;0
;0;19,1,0;0;17,129,12,19,0,1;0;19,2,5;0;
19,3,3;0;:FORL%=0TO11:PRINTTAB(0,31)CHR$
10;:NEXT:VDU28,0,22,19,22,17,129,12:*LO.
SCREEN
190IF A$="B" THEN MODE5:VDU23;8202;0;0
;0;28,0,31,19,26:VDU19,1,1;0;19,2,3;0;19
,3,4;0;:*RUN G2Title
200IF A$="C" THEN MODE5:VDU23;8202;0;0
;0;0;:VDU19,3,2;0;:*LO.HOPLSCR
210IF A$="D" THEN MODE5:VDU23;8202;0;0
;0;0;:VDU19,3,2;0;:*LO.HCHLSCR
220IF A$="E" THEN MODE5:VDU23;8202;0;0
;0;0;:VDU19,3,4;0;:*LO.SENLSCR
230IF A$="F" THEN MODE1:VDU23;8202;0;0
;0;0;:VDU19,3,1;0;:*LO.SUMOLY
240IF A$="G" THEN END
250ON ERROR:IF ERR=17 RUN
260GOTO170