8-Bit Software Online Conversion

Intro 2 - Listing

10: 20: 30REM" TITLE2 40ON ERROR:PROCerror:END 50REM" SUGGESTED TITLE PAGE BY ROY DICKENS (20G) 60MODE7 70CLS 80REM" PLEASE CHANGE NEXT LINE FOR CORRECT ISSUE NUMBER 90issuenumber=37 100REM" ......................... 110VDU23,1,0;0;0;0; 120PROCeightinBe 130PROCsideprint 140PRINTTAB(25,23);issuenumber"...." 145FORL%=1TO2000:NEXT:CHAIN"Menu" 150END 160DEF PROCeightinBe 170PRINT' 180PRINT"   190PRINT"   200PRINT"    210PRINT"    220PRINT"    230PRINT"      240PRINT"    250PRINT"    260PRINT"      270PRINT"   280PRINT"   290PRINT"      300PRINT"    310PRINT"     320PRINT"     330PRINT"     340PRINT"     350PRINT"    360PRINT"       ' ~/¾ " 370PRINT"       o< " 380ENDPROC 390DEF PROCsideprint 400PRINTTAB(0,0)CHR$(130); 410PROCany(" ....WELCOME TO... .",28) 420FORloop%=0TO23:PRINTTAB(0,loop%);CH R$130;:NEXT 430FORloop2%=0TO23:PRINTTAB(34,loop2%) ;CHR$130;:NEXT 440VDU28,1,22,1,3:REM L 450PROCany("::8 BIT SOFTWARE::",19) 460VDU28,36,22,36,3:REM R 470PROCany("::8 BIT SOFTWARE::",19) 480VDU28,8,24,24,23 490PROCany("....ISSUE NUMBER ",19) 500VDU26 510ENDPROC 520DEFPROCany(A$,Z%):FORX%=1TOZ% 530PRINT" "; 540SOUND1,-5,200,1 550PRINTCHR$8MID$(A$,X%,1); 560SOUND1,0,0,1 570NEXT 580ENDPROC 590DEF PROCerror:VDU26:CLS:REPORT:PRIN T" at line ";ERL:VDU23,1,1;0;0;0;