1000 REM: <--- MAIN CHARACTER LOOP
1010 CH$=INKEY$:IF LEN(CH$)<1 GOTO 1010
1020 CH=ASC(CH$)
1030 IF CH=27 GOTO 3000
1040 IF CH=3 GOTO 3000:REM: Goto ending routine
1050 IF CH<65 GOTO 1010
1060 IF CH>122 GOTO 1010
1070 IF CH<91 GOTO 2000
1080 IF CH>96 GOTO 1500
1090 GOTO 1000
1500 REM: Capitalize
1510 CH$=CHR$(CH-32)
2000 REM: <--- FILENAME/SCREEN
2010 FLNAME$=CH$+".OZP"
2020 PRINT CHR$(26);
2030 OPEN "R",#1,FLNAME$,1
2040 FIELD#1,1 AS X$
2050 GET #1,1:SCWID%=ASC(X$):I=1
2060 FOR J=1440 TO 4384 STEP 128
2070	FOR K=0 TO SCWID%-1
2080		PRINT CHR$(12);
2090		I=I+1:GET #1,I:SC%=ASC(X$)
2100		IF EOF(1) GOTO 2140
2110		POKE (J+K+60000!),SC%
2120	NEXT K:PRINT
2130 NEXT J
2140 CLOSE #1:PRINT CHR$(7);CHR$(27)+"S  ";
2150 GOTO 1000
3000 REM: <--- ENDING
3010 PRINT CHR$(26):PRINT:PRINT:PRINT "Stop ? (Y or N)";
3020 YN$=INKEY$:IF LEN(YN$)<1 GOTO 3020
3030 IF YN$<>"Y" AND YN$<>"y" THEN PRINT CHR$(26):GOTO 1000
3040 SYSTEM
3050 END

3020 YN$=INKEY$:IF LEN(YN$)<1 GOTO 3020
3030 IF YN$<>"Y