8-Bit Software Online Conversion

TBI-54. Mandelbrot And Julia - Listing

10DEFFNS="Menu" 20ONERROR VDU3:RUN 30MODE7 40*FX21 50VDU23;8202;0;0;0; 60PRINT'TAB(5)"    IA " 70PRINTTAB(5)"    A "' 80PRINTTAB(10)" Supplied by: " 90PRINT'TAB(10)"   100PRINTTAB(10)"   110PRINT'" 17 Lambert Park Road, Hed on, Hull" 120PRINTTAB(5)" HU12 8HF Tel. 01482 8 96868"' 130PRINT''TAB(11)" 1. The Program" 140PRINTTAB(11)" 2. Read Info" 150PRINTTAB(11)" 3. Print Info" 160PRINTTAB(11)" 4. Read Quick Info" 170PRINTTAB(11)" 5. Print Quick Info" 180PRINT''TAB(10)" Choose 1 to 5 " ; 190REPEAT 200A$=GET$ 210UNTILINSTR("12345",A$) 220IF A$="1":OSCLI"*/mbb" 230MODE3 240IF INSTR("24",A$):PRINT''"Press SHI FT to scroll text" 250IF INSTR("35",A$):VDU2 ELSE VDU14 260IF INSTR("23",A$):*TYPE help 270IF INSTR("45",A$):*TYPE Qinf 280VDU3 290PRINT'"Press a key" 300REPEATUNTILGET 310RUN