8-Bit Software Online Conversion

Screen Thief Screens - Listing

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