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;