8-Bit Software Online Conversion
Intro 1 - Listing
5REM" Title1
10ON ERROR GOTO 620
20REM"
SAMPLE TITLE PAGE
FOR 8BIT SOFTWARE
BY ROY DICKENS (20G)
30REM" JUNE 1994 ON MASTER 128
35REM" PLEASE CHANGE LINE 380 TO
SHOW CORRECT ISSUE NUMBER
40MODE7
50CLS
60VDU23,1,0;0;0;0;
70FOR H=0TO22STEP2
80PROCdbl(25,H)
90PROCdbl(16,H)
100PROCdbl(8,H)
110PROCdbl(0,H)
120NEXT
130FOR T=1TO2000:NEXT
140SOUND1,-7,20,1
150PROCCentScrol(" 5 T BIT ¼¶¶¶¶¶
¶w BIT T j",18,22,10)
160SOUND1,-7,25,1
170PROCCentScrol(" 5 W ÷¶¶'
+¶¶¾ W j",18,22,12)
180SOUND1,-7,30,1
190PROCCentScrol(" 5 F o¶¶t
x¶¶? F j",18,22,8)
200SOUND1,-7,35,1
210PROCCentScrol(" 5 A ¶¶¶
¶¶¶ A j",18,22,14)
220SOUND1,-7,40,1
230PROCCentScrol(" 5 O ¶¶¶
¶¶¶ O j",18,22,6)
240SOUND1,-7,45,1
250PROCCentScrol(" 5 R o¶¶t
x¶¶? R j",18,22,16)
260SOUND1,-7,50,1
270PROCCentScrol(" 5 S ÷¶¶'
+¶¶¾ S j",18,22,4)
280SOUND1,-7,55,1
290PROCCentScrol(" 5 E +o¶¶¶¶¶
¶?' E j",18,22,18)
300SOUND1,-7,60,1
310PROCCentScrol(" 5 x÷¶¶¶¶¶
¶¾t j",18,22,2)
320SOUND1,-7,65,1
330PROCCentScrol("::::::::::::::::::::
::::::::::::::",2,6,0)
340SOUND1,-7,70,1
350PROCCentScrol(" 5
j",18,22,20)
360SOUND1,-7,75,1
370REM" CHANGE THIS NEXT LINE FOR THE
CORRECT ISSUE NUMBER
.....................................
.
380PROCCentScrol(":::::::::::::ISSUE 3
6:::::::::::::",2,6,22)
390REM" ..............................
..
400SOUND1,-7,80,5
405 FORL%=1 TO2000:NEXT:CHAIN"Menu"
410END
420DEFPROCCentScrol(text$,c1%,c2%,y)
430LOCALc3%
440IFLENtext$=1THEN520
450pos%=0:REPEATpos%=pos%+1
460t1$=LEFT$(text$,pos%):t2$=RIGHT$(te
xt$,pos%)
470c3%=18-LEN(t1$)
480PRINTTAB(c3%,y);CHR$141;CHR$(c1%+12
8);t1$;t2$
490PRINTTAB(c3%,y+1);CHR$141;CHR$(c2%+
128);t1$;t2$
500VDU11,11
510UNTILpos%=INT(LEN(text$)/2)
520c3%=18-(LEN(text$)/2)
530PRINTTAB(c3%);CHR$141;CHR$(c1%+128)
;text$
540PRINTTAB(c3%);CHR$141;CHR$(c2%+128)
;text$
550ENDPROC
560DEFPROCdbl(x,y)
570R$=CHR$(255)+CHR$(255)+CHR$(255)+CH
R$(255)+CHR$(255)+CHR$(255)+CHR$(255)+CH
R$(255)+CHR$(255)
580PRINTTAB(x,y);CHR$(141)+CHR$(154)+C
HR$(146)+R$
590PRINTTAB(x,y+1);CHR$(141)+CHR$(154)
+CHR$(150)+R$
600ENDPROC
620REPORT:PRINT" at line ";ERL:VDU23,1
,1,0;0;0;