10 : 20 : 30 *|"PROGRAM BY RUSHDEN ROY 40 *|"A 'L'PLATE PROGRAMMER 50 *|" FOR 8-BIT SOFTWARE 60 : 70 MODE7 80 VDU23,1,0;0;0;0; 90 PRINT' 100 PROCROY 110 PROCdblht("This program looks at the instruction",0,12) 120 PROCdblht("PRESS SPACE",12,20) 130 PROCget 140 PROCSTAR(20,2,151) 150 PROCSTAR(5,5,151) 160 PROCSTAR(2,10,147) 170 PROCSTAR(19,8,147) 180 PROCSTAR(11,13,151) 190 PROCSTAR(28,13,151) 200 PRINT"No, not this space above but....." 210 PRINT'".....this space below" 220 PROCcentreSpa(23,"Press Space",129,131) 230 PROCget 240 PROCdblht("There are a lot of programs that ",1,2) 250 PROCdblht(" require the instruction",2,4) 260 PROCdblht("'Press Space'",10,6) 270 PROCdblht(" this is usually placed at the ",2,8) 280 PROCdblht("bottom of the screen.",7,10) 290 PRINT'CHR$(134)"(Some do not give any instruction and " 300 PRINT'CHR$(134)" you are left with a screen wondering" 310 PRINT'CHR$(134)" 'What do I do now?!'). So I have put" 320 PRINT'CHR$(134)" together a few ideas to brighten" 330 PRINT'CHR$(134)" up the PRESS SPACE a bit." 340 REPEAT UNTIL GET=32:CLS 350 PROCdblht("First we must consider the type of",1,2) 360 PROCdblht("program this press space is to be",1,4) 370 PROCdblht("used.",14,6) 380 PRINTCHR$(134)" Explanatory: Children/New users" 390 PRINT'CHR$(134)" Formal : Business type" 400 PRINT'CHR$(134)" Colourful : Fun & games" 410 PRINT'CHR$(134)" Small : Formal" 420 PRINT'CHR$(134)" Large : Show off your skill!" 430 PRINTCHR$(131)" All the ideas are in MODE 7 and " 440 PRINTCHR$(131)" contained in a PROCEDURE " 450 PRINTCHR$(131)"( I'm sure that you can improve them )" 460 PRINTTAB(2,21)CHR$(133)" This one is PROCcentreSpa" 470 PROCcentreSpa(23,"Please Press the Space Bar",132,135) 480 PROCget 490 PROCdblht("This is the PROC of a press space",1,2) 500 PROCdblht("it's small, neat and you see it a lot",0,4) 510 PRINT'" It will self centre, you just give" 520 PRINT"the line no. (column no. not required)" 530 PRINT" DEF PROCcentreSpa(y%,t$,b%,f%):s%=18- LENt$/2:PRINTTAB(0,y%);SPC(s%);CHR$b%; CHR$157;CHR$f%;t$;"""SPC(2)""";CHR$156:ENDPROC" 540 PRINT'"IN THE BRACKETS(y%,t$,b%,f%)" 550 PRINT"FIRSTis they%this is the TAB line postion (where you want it e.g.23)." 560 PRINT"SECONDis thet$this is the text(What you want printed e.g.Press Space)." 570 PRINT"THIRDis theb%this is for the back- ground colour (e.g.129red)." 580 PRINT"FORTHis thef%this is the forground colour (e.g.131yellow)." 590 PROCcentreSpa(23,"Press Space",129,131) 600 PROCget 610 PROCdblht(" A different PROCEDURE ",4,4) 620 PROCdblht("if a small one is required then",2,6) 630 PROCdblht(" it could be flashing in a box",2,8) 640 PRINTTAB(5,15)CHR$(133)"This is called PROCboxSpa" 650 PRINT'' 660 PROCboxSpa 670 PROCget 680 PROCdblht("Or...",2,4) 690 PROCdblht("a flashing box and a steady text",2,6) 700 PRINTTAB(5,15)CHR$(133)"This one is PROCflashboxSpa" 710 PRINT'' 720 PROCflashboxSpa 730 REPEAT UNTIL GET=32:CLS 740 PROCdblht("...and a box with a shadow",2,4) 750 PRINTTAB(6,15)CHR$(133)"This is PROCshadowSpa" 760 PROCshadowSpa(6,19) 770 PROCget 780 PROCdblht("Then you could have the box",2,4) 790 PROCdblht("with a box at each corner",3,6) 800 PRINTTAB(1,15)CHR$(133)"So we will call this PROCsqu4Spa" 810 PRINT'' 820 PROCsqu4Spa 830 PROCget 840 PROCdblht("...then if we are not careful we",2,4) 850 PROCdblht("might tie ourselves in a knot!",1,6) 860 PRINTTAB(2,15)CHR$(133)"This we will call PROCknotsSpa" 870 PROCknotsSpa(5,19) 880 PROCget 890 PROCdoublehtSpa(12,20) 900 PROCdblht("This is straight to the point but",2,4) 910 PROCdblht("DOUBLE height",10,6) 920 PRINTTAB(3,15)CHR$(133)"This is called PROCdoublehtSpa" 930 PROCget 940 PROCdblht("And in two colours if you wish",2,4) 950 PRINTTAB(2,15)CHR$(133)"This is called PROCdoublehtSpa2" 960 PROCdoublehtSpa2(12,20) 970 PROCget 980 PROCdblht("Which could then lead on to this",2,4) 990 PRINTTAB(4,15)CHR$(133)"This is called PROCsnowSpa" 1000 PROCsnowSpa(8,20) 1010 PROCget 1020 PROCdblht("Also multi colour",8,4) 1030 PRINTTAB(2,15)CHR$(133)"This is called PROCdoublemulticolSpa" 1040 PROCdoublemulticolSpa(10,18) 1050 PROCget 1060 PROCdblht("This one is borrowed from GLM PD",2,4) 1070 PROCdblht("Gareth Moore uses this type of scroll",1,6) 1080 PROCdblht("in his menu (Many thanks Gareth)",2,8) 1090 PRINTTAB(5,15)CHR$(133)"This name is PROCCentScrolSpa" 1100 PRINT 1110 FOR T=0 TO 500:NEXT T 1120 PROCCentScrolSpa("PLEASE PRESS SPACE BAR FOR THE MENU",3,1) 1130 PRINT'"Please wait and you will see it again" 1140 FOR T=0 TO 2000:NEXT T 1150 PROCCentScrolSpa("PLEASE PRESS SPACE BAR FOR THE MENU",5,6) 1160 PROCget 1170 PROCdblht("Should we try and let them know",3,4) 1180 PROCdblht("by drawing a picture (well I tried!)",1,6) 1190 PRINTTAB(4,15)CHR$(133)"This is called PROCbarSpa" 1200 PROCbarSpa(0,17) 1210 PROCget 1220 PROCdblht("Or..would this be better?",2,4) 1230 PRINTTAB(4,15)CHR$(133)"This is called PROCfingerSpa" 1240 PROCfingerSpa(3,17) 1250 PROCget 1260 PROCdblht("By drawing pictures we could have",2,4) 1270 PROCdblht("a funny one (as seen on Teletext)",2,6) 1280 PRINTTAB(4,13)CHR$(133)"This is called PROCfaceSpa" 1290 PROCfaceSpa(8,15) 1300 PROCget 1310 PROCdblht("... and perhaps not so funny.",1,4) 1320 PRINTTAB(4,13)CHR$(133)"This is called PROCwotnoSpa" 1330 PROCwotnoSpa(9,20) 1340 PROCget 1350 PROCdblht("You will need a lot of room for ",2,4) 1360 PROCdblht("this... but it's different",2,6) 1370 PRINTTAB(3,8)CHR$(133)"This is called PROCcupmenuSpa" 1380 PROCcupmenuSpa(7,10) 1390 PROCget 1400 PROCdblht("Chris Richardson did one like this",1,4) 1410 PROCdblht("he did a big 'Press Break' in",3,6) 1420 PROCdblht("Issue 23 (Thanks Chris)",5,8) 1430 PRINTTAB(3,11)CHR$(133)"This is called PROCbigblockSpa" 1440 PROCbigblockSpa(4,13) 1450 PROCget 1460 PROCdblht("....and a bit of my needle work!",2,4) 1470 PROCdblht("(I dont know where you would use",2,6) 1480 PROCdblht("this, but is'nt it pretty!!)",2,8) 1490 PRINTTAB(3,11)CHR$(133)"This is called PROCneedleSpa" 1500 PROCneedleSpa(3,13) 1510 PROCget 1520 PROCdblht("...and soon you can go over the top",2,4) 1530 PROCdblht("if your not careful and do the ",4,6) 1540 PROCdblht("ridiculous!!",6,8) 1550 PRINTTAB(0,12)CHR$(133)"If your really interested it's called" 1560 PRINTTAB(8,14)CHR$(133)"PROCcarsSpa" 1570 PROCcarsSpa(0,18) 1580 PROCget 1590 PROCdblht("To sum up a 'small' press space ",3,1) 1600 PROCdblht("will be used mostly because it is",2,3) 1610 PROCdblht("straight to the point and does'nt",2,5) 1620 PROCdblht("take over the screen from the main",2,7) 1630 PROCdblht("message and of course needs less room.",0,9) 1640 PROCdblht("But if you have room to spare,",3,11) 1650 PROCdblht("memory to spare,",10,13) 1660 PROCdblht("(and programming time to spare)",2,15) 1670 PROCdblht("why not give it a thought?",5,17) 1680 FOR I=1TO2000:NEXT 1690 PROCmanSpa1 1700 REPEAT: UNTIL GET=32 1710 PROCmanSpa2 1720 CLS 1730 PROCdblht("Well thats a few ideas, it can",3,2) 1740 PROCdblht("be fun so have a go.",8,4) 1750 PROCdblht("Thanks to Chris for his big block",2,6) 1760 PROCdblht("Thanks to TV Teletext for the face",2,8) 1770 PROCdblht(" Thanks to Gareth for his scroll",2,10) 1780 PROCdblht(" and of course Thanks to You for",2,12) 1790 PROCdblht("pressing thespacebar!",5,14) 1800 PRINT'" To see it all again guess what!" 1810 PRINT'"Please note :-" 1820 PRINT"I have given the procedures long names deliberately. Shorten them if you wish." 1830 PROCget:GOTO70 1840 END:REM************************* 1850 REM":::::::::::::::::::::::: 1860 DEF PROCSTAR(x,y,c) 1870 PRINTTAB(x,y)CHR$(c);CHR$(154);" "CHR$(156) 1880 PRINTTAB(x,y+1)CHR$(c);CHR$(154)" "CHR$(156)"*" 1890 PRINTTAB(x,y+2)CHR$(c);CHR$(154)" "CHR$(156) 1900 PRINTTAB(x,y+3)CHR$(c);CHR$(154);" ﯦ"CHR$(156) 1910 PRINTTAB(x,y+4)CHR$(c);CHR$(154);" "CHR$(156) 1920 ENDPROC 1930 REM":::::::::::::::::::::::: 1940 DEFPROCdblht(x$,x,y) 1950 PRINTTAB(x,y);CHR$(141);CHR$(134);x$ 1960 PRINTTAB(x,y+1);CHR$(141);CHR$(134);x$ 1970 ENDPROC 1980 REM"::::::::::::::::::::::::: 1990 DEF PROCcentre(t$,b%,f%):s%=18-LENt$/2:PRINTSPC(s%);CHR$b%;CHR$157;CHR$f%;t$;" ";CHR$156:ENDPROC 2000 REM"::::::::::::::::::::::::: 2010 DEF PROCcentreSpa(y%,t$,b%,f%):s%=18-LENt$/2:PRINTTAB(0,y%);SPC(s%);CHR$b%;CHR$157;CHR$f%;t$;" ";CHR$156:ENDPROC 2020 REM"::::::::::::::::::::::::: 2030 DEF PROCdoublehtSpa(x,y) 2040 PRINTTAB(x,y)CHR$(141)CHR$(145)"PRESS SPACE" 2050 PRINTTAB(x,y+1)CHR$(141)CHR$(145)"PRESS SPACE" 2060 ENDPROC 2070 REM"::::::::::::::::::::::::: 2080 DEF PROCdoublehtSpa2(x,y) 2090 PRINTTAB(x,y)CHR$(141)CHR$(131)"PRESS SPACE" 2100 PRINTTAB(x,y+1)CHR$(141)CHR$(145)"PRESS SPACE" 2110 ENDPROC 2120 REM"::::::::::::::::::::::: 2130 DEF PROCboxSpa 2140 PRINT" " 2150 PRINT" ꈆ PRESS SPACE " 2160 PRINT" " 2170 ENDPROC 2180 REM"::::::::::::::::::::::::: 2190 DEF PROCflashboxSpa 2200 PRINT" " 2210 PRINT" ꉆ PRESS SPACE " 2220 PRINT" " 2230 ENDPROC 2240 REM":::::::::::::::::::::::::: 2250 DEFPROCsnowSpa(x,y) 2260 PRINTTAB(x,y)"a 2 8 9a 2 8a 2 8" 2270 PRINTTAB(x,y+1);CHR$(141)" PRESS SPACE)!&" 2280 PRINTTAB(x,y+2)CHR$(141)"PRESS SPACE d" 2290 PRINTTAB(x,y+3)"!!!!!!!!!!!!!!!!!!!" 2300 ENDPROC 2310 REM"::::::::::::::::::::::::: 2320 DEF PROCsqu4Spa 2330 PRINT" " 2340 PRINT" " 2350 PRINT" PRESS SPACE " 2360 PRINT" 㣣 " 2370 PRINT" " 2380 ENDPROC 2390 REM"::::::::::::::::::::::::: 2400 DEF PROCdoublemulticolSpa(x,y) 2410 PRINTTAB(x+2,y)"ppppppppppppp" 2420 PRINTTAB(x+2,y+1)"`````````````" 2430 PRINTTAB(x,y+2)CHR$(134);CHR$(157);CHR$(141)CHR$(129)"PRESS SPACE "CHR$(156) 2440 PRINTTAB(x,y+3)CHR$(134);CHR$(157);CHR$(141)CHR$(129)"PRESS SPACE "CHR$(156) 2450 PRINTTAB(x+2,y+4)"ppppppppppppp" 2460 PRINTTAB(x+2,y+5)"`````````````" 2470 ENDPROC 2480 REM":::::::::::::::::::::::: 2490 DEFPROCCentScrolSpa(text$,c1%,c2%) 2500 LOCALc3% 2510 IFLENtext$=1THEN2590 2520 pos%=0:REPEATpos%=pos%+1 2530 t1$=LEFT$(text$,pos%):t2$=RIGHT$(text$,pos%) 2540 c3%=18-LEN(t1$) 2550 PRINTTAB(c3%);CHR$141;CHR$(c1%+128);t1$;t2$ 2560 PRINTTAB(c3%);CHR$141;CHR$(c2%+128);t1$;t2$ 2570 VDU11,11 2580 UNTILpos%=INT(LEN(text$)/2) 2590 c3%=18-(LEN(text$)/2) 2600 PRINTTAB(c3%);CHR$141;CHR$(c1%+128);text$ 2610 PRINTTAB(c3%);CHR$141;CHR$(c2%+128);text$ 2620 ENDPROC 2630 REM"::::::::::::::::::::::::: 2640 DEF PROCfingerSpa(x,y) 2650 PRINTTAB(x,y)"pppppppppppppppppppppppppp " 2660 PRINTTAB(x,y+1)" Press ー " 2670 PRINTTAB(x,y+2)" Space " 2680 PRINTTAB(x,y+3)" ssssssssssssssssssss" 2690 PRINTTAB(x,y+4)" " 2700 PRINTTAB(x,y+5)" " 2710 ENDPROC 2720 REM"::::::::::::::::::::::: 2730 DEF PROCbarSpa(x,y) 2740 PRINTTAB(x,y) "ppppp p p p p p p p pp pp pp ppppp" 2750 PRINTTAB(x,y+1)" SHIFT :Z:X:C:V:B:N:M:<,:>.:?/: SHIFT" 2760 PRINTTAB(x,y+2)"" 2770 PRINTTAB(x,y+3)" Press the SPACE bar j" 2780 PRINTTAB(x,y+4)"O@ O" 2790 PRINTTAB(x,y+5)"///////////////////////" 2800 ENDPROC 2810 REM"::::::::::::::::::::::::: 2820 DEF PROCfaceSpa(x,y) 2830 PRINTTAB(x,y)" ~} " 2840 PRINTTAB(x,y+1)" " 2850 PRINTTAB(x,y+2)" " 2860 PRINTTAB(x,y+3)" " 2870 PRINTTAB(x,y+4)"_&```,p " 2880 PRINTTAB(x,y+5)"ePRESS`d " 2890 PRINTTAB(x,y+6)" e SPACEps " 2900 PRINTTAB(x,y+7)" )ppppp& " 2910 ENDPROC 2920 REM":::::::::::::::::::::::: 2930 DEFPROCcupmenuSpa(x,y) 2940 PRINTTAB(x,y)" >ssssssssssm " 2950 PRINTTAB(x,y+1)" 55 bkj " 2960 PRINTTAB(x,y+2)" 5u x~j " 2970 PRINTTAB(x,y+3)" 5}pppp~j " 2980 PRINTTAB(x,y+4)"___5j___" 2990 PRINTTAB(x,y+5)" 5j " 3000 PRINTTAB(x,y+6)" 5j " 3010 PRINTTAB(x,y+7)" 5j" 3020 PRINTTAB(x,y+8)" j" 3030 PRINTTAB(x,y+9)" z " 3040 PRINTTAB(x,y+10)"rssssssssssssssssssq " 3050 PRINTTAB(x,y+11)"PRESS SPACE FOR MENU" 3060 PRINTTAB(x,y+12)"```````````````````` " 3070 ENDPROC 3080 REM"::::::::::::::::::::::: 3090 DEF PROCbigblockSpa(x,y) 3100 PRINTTAB(x,y)CHR$(132);CHR$(157);" "CHR$(156) 3110 PRINTTAB(x,y+1)CHR$(132);CHR$(157);"ꧣꧣꧣꧣ "CHR$(156) 3120 PRINTTAB(x,y+2)CHR$(132);CHR$(157);" "CHR$(156) 3130 PRINTTAB(x,y+3)CHR$(132);CHR$(157);" "CHR$(156) 3140 PRINTTAB(x,y+4)CHR$(132);CHR$(157);" 껯껯 "CHR$(156) 3150 PRINTTAB(x,y+5)CHR$(132);CHR$(157);" "CHR$(156) 3160 PRINTTAB(x,y+6)CHR$(132);CHR$(157);"ꧣoꧣꧣꧣ "CHR$(156) 3170 PRINTTAB(x,y+7)CHR$(132);CHR$(157);" "CHR$(156) 3180 PRINTTAB(x,y+8)CHR$(132);CHR$(157);" "CHR$(156) 3190 PRINTTAB(x,y+9)CHR$(132);CHR$(157);" "CHR$(156) 3200 PRINTTAB(x,y+10)CHR$(132);CHR$(157);" "CHR$(156) 3210 ENDPROC 3220 REM"::::::::::::::::::::::: 3230 DEF PROCneedleSpa(x,y) 3240 PRINTTAB(x,y)"椒𬣬𬣬𬣬𬣬" 3250 PRINTTAB(x,y+1)" 2 " 3260 PRINTTAB(x,y+2)" 椓飩飩飣ণ" 3270 PRINTTAB(x,y+3)" 0欦 欱 " 3280 PRINTTAB(x,y+4)" 椓 𸡢" 3290 PRINTTAB(x,y+5)" 0$ " 3300 PRINTTAB(x,y+6)" 椕飩 飣" 3310 PRINTTAB(x,y+7)" 0 欦 欱 " 3320 PRINTTAB(x,y+8)" 椕𸡺 𸡺" 3330 PRINTTAB(x,y+9)" 0 " 3340 PRINTTAB(x,y+10)" 椒s𬣬𬣬𬣬𬣬" 3350 ENDPROC 3360 PROCcarsSpa(0,18) 3370 REM":::::::::::::::::::::::: 3380 DEF PROCcentre(y%,t$,b%,f%):s%=18-LENt$/2:PRINTTAB(0,y%);SPC(s%);CHR$b%;CHR$157;CHR$f%;t$;" ";CHR$156:ENDPROC 3390 REM":::::::::::::::::::::::: 3400 DEF PROCknotsSpa(x,y) 3410 PRINTTAB(x,y)" " 3420 PRINTTAB(x,y+1)" ppppppppppppp" 3430 PRINTTAB(x,y+2)" PRESS SPACE 袴" 3440 PRINTTAB(x,y+3)" `````````````㣡 " 3450 PRINTTAB(x,y+4)" " 3460 ENDPROC 3470 REM"::::::::::::::::::::::::::: 3480 DEF PROCcarsSpa(x,y) 3490 PRINTTAB(x,y)" PRESS " 3500 PRINTTAB(x,y+1)" " 3510 PRINTTAB(x,y+2)" " 3520 PRINTTAB(x,y+3)"qcqcqcq3q3q3q3q3qs/////////-" 3530 PRINTTAB(x,y+4)",PARKING SPACE$,￯" 3540 PRINTTAB(x,y+5)"`` `` `` ``!" 3550 ENDPROC 3560 REM":::::::::::::::::::::::::: 3570 DEF PROCshadowSpa(x,y) 3580 PRINTTAB(x,y)" ppppppppppppppp " 3590 PRINTTAB(x,y+1)" ssssssssssssss " 3600 PRINTTAB(x,y+2)" PRESS SPACE " 3610 PRINTTAB(x,y+3)" ```````````` " 3620 PRINTTAB(x,y+4)" ////////////// " 3630 ENDPROC 3640 REM"::::::::::::::::::::::::::: 3650 DEF PROCmanSpa1 3660 FOR tab=27TO12STEP-1 3670 PROCman(tab,19) 3680 PROCman2(tab-1,19) 3690 NEXT 3700 PROCman3(11,19) 3710 ENDPROC 3720 DEF PROCmanSpa2 3730 FOR tab=11TO1STEP-1 3740 PROCman(tab,19) 3750 PROCman2(tab-1,19) 3760 NEXT 3770 ENDPROC 3780 DEF PROCman(x,y) 3790 PROCdelay 3800 PRINTTAB(x,y)" " 3810 PRINTTAB(x,y+1)"PRESS " 3820 PRINTTAB(x,y+2)"SPACE " 3830 PRINTTAB(x,y+3)"b&) j " 3840 ENDPROC 3850 DEF PROCman2(x,y) 3860 PROCdelay 3870 PRINTTAB(x,y)" " 3880 PRINTTAB(x,y+1)"PRESS " 3890 PRINTTAB(x,y+2)"SPACE " 3900 PRINTTAB(x,y+3)"d$)1_&e " 3910 ENDPROC 3920 DEF PROCdelay 3930 FOR T=1TO100:NEXT 3940 ENDPROC 3950 DEF PROCman3(x,y) 3960 PRINTTAB(x,y)" p " 3970 PRINTTAB(x,y+1)"PRESSfg$? " 3980 PRINTTAB(x,y+2)"SPACE8k{`! " 3990 PRINTTAB(x,y+3)"榣 jk " 4000 ENDPROC 4010 REM"::::::::::::::::::::::::::: 4020 DEF PROCwotnoSpa(x,y) 4030 PRINTTAB(x,y)" .?. " 4040 PRINTTAB(x,y+1)"PRESS SPACE " 4050 PRINTTAB(x,y+2)" " 4060 ENDPROC 4070 DEFPROCROY 4080 PRINT"7`+47``57k`5 ````` PROGRAM BY ````````" 4090 PRINT"5b(55( 5m h%7`+4757`k 7k`57`k 7e757`k" 4100 PRINT"uzp5upp5jpz 5( 5555js05 n15bs550!5u0`5" 4110 PRINT"ppppppppppp upp5u5upp5uzp5upp5u7t5upp5" 4120 PRINT 4130 PRINT" FOR 8-BIT SOFTWARE" 4140 PRINT"1 Oakwood Drive Heaton BOLTON BL1 5EE"' 4150 ENDPROC 4160 DEF PROCget 4170 REPEAT UNTIL GET=32:CLS 4180 ENDPROC