h 2021-11-17 00:12 (Edited)
have some subprograms
'RASTER SUBPROGRAM
'$A000 - BG
'$A080 - COLOR 1
'$A100 - COLOR 2
'$A180 - COLOR 3
SUB SCREEN2
A=$A000+RASTER
PALETTE 0,PEEK(A),PEEK(A+128),PEEK(A+256),PEEK(A+382)
END SUB
'SCROLLING TEXT SUBPROGRAM
'A$ - DA INPUT
'W - NUMBER OF FRAMES BETWEEN EACH CHARACTER
'P - (0 - NOTHING AFTER, 1 - NEW LINE, 2 - SPACE)
'WW - # OF FRAMES TO WAIT AFTER TEXT IS PRINTED
'S - PITCH OF SOUND
'(-1 FOR NO SOUND)
SUB TXT(A$,W,P,WW,S)
FOR A=1 TO LEN(A$)
PRINT MID$(A$,A,1);
IF S>-1 THEN PLAY 0,S,1
IF W>0 THEN WAIT W
NEXT A
IF P=1 THEN PRINT ""
IF P=2 THEN PRINT "",
IF WW>0 THEN WAIT WW
END SUB
'WAITS FOR ANY INPUT
SUB WFT
A=PEEKL($FF70)+PEEKL($FF73)
WHILE A=PEEKL($FF70)+PEEKL($FF73)
WEND
END SUB