0  ' C64 SEQ Image Generation Language Picture Display Program
10 ' By John Galt for MBASIC and FABGL ANSI Terminal: 10/27/2025
20 PRINT CHR$(27)+"_GPEN255;255;255":PRINT CHR$(27)+"[2J"+CHR$(27)+"[H"; ' CLEAR SCREEN
30 PRINT "All SEQ Images Files Found on Disk:":PRINT
40 FILES "*.SEQ":PRINT
50 PRINT:INPUT "Enter The NAME of SEQ file to display, no extension needed: ",SEQF$
60 INPUT "ENTER SCALE: ",S
70 INPUT "ENTER X OFFSET: ",MX
80 INPUT "ENTER Y OFFSET: ",MY
90 PRINT CHR$(27)+"_E0":PRINT CHR$(27)+"[2J"+CHR$(27)+"[H"; ' CLEAR SCREEN
100 PRINT CHR$(27)+"_GPEN255;255;255"
110 OPEN "I",1,SEQF$+".SEQ"
130 Q=1024/512:R=768/384
140 IF EOF(1) THEN 320 ' MAIN LOOP
150 INPUT #1,I,X,Y
250 X=(X/Q)*S-MX
260 Y=(Y/R)*S-MY
270 Y=224-Y
275 PRINT CHR$(27)+"[H";
290 IF I=0 THEN PRINT CHR$(27)+"_GPEN255;255;255":PRINT CHR$(27)+"_GLINE"STR$(INT(X*S)-MX)";"STR$(INT(384-(Y*S)-MY))";"STR$(INT(X*S)-MX)";"STR$(INT(384-(Y*S)-MY))"$":PREX=X:PREY=Y
300 IF I=1 THEN PRINT CHR$(27)+"_GPEN255;255;255":PRINT CHR$(27)+"_GLINE"STR$(INT((PREX*S)-MX))";"STR$(INT(384-(PREY*S)-MY))";"STR$(INT(X*S)-MX)";"STR$(INT(384-(Y*S)-MY))"$":PREX=X:PREY=Y
305 IF I=3 THEN GOTO 320
307 COMMAND$=INKEY$: IF COMMAND$="Q" THEN GOTO 320
310 GOTO 140
320 CLOSE #1
330 PRINT CHR$(27)+"[H";:PRINT CHR$(27)+"_F27;46":PRINT CHR$(27)+"_GPEN255;255;255"
340 PRINT "PRESS 'ESC' KEY TO RETURN TO CP/M";
350 WHILE INKEY$<>CHR$(27):WEND
360 PRINT CHR$(27)+"[2J"+CHR$(27)+"[H";
370 PRINT CHR$(27)+"_E1"
380 END