0 REM These procedures and functions 1 REM are for your own programs. 2 REM Note the REMs andMOD ******* 3 REM which denote the end of a 4 REM procedure or function. 5 REM Please read the documentation 6 REM for further information. 7 CLS:PRINT"READ THE DOCUMENTATION FIRST"'"THEN LIST THIS PROGRAM" 8 END 10 DEF FNCASE(A$) 20 *|" 30 *|"‚Case Conversion 40 *|"†by John Carpenter 50 *|"so there! 60 *|" 70 LOCAL B$,b%,a$,a% 80 FORa%=1 TO LEN(A$) 90 B$=MID$(A$,a%,1) 100 b%=ASC(B$) 110 IFb%<123 AND b%>96 THEN b%=b%-32 120 a$=a$+CHR$b% 130 NEXTa% 140 =a$ 192 REMMOD******* 200 DEF PROCcheck(z$) 210 f%=FALSE 220 FORn%=1 TO LEN(Z$) 230 a%=INSTR(Z$,z$) 240 IFa%<>0 THEN f%=a% 250 NEXTn% 260 IF NOT f% check$=MID$(Z$,a%,LEN(z$)) 270 ENDPROC 280 REMMOD******* 300 DEF PROCcon 310 VDU 23,1,1;0;0;0; 320 ENDPROC 330 DEF PROCcoff 340 VDU23,1,0;0;0;0; 350 ENDPROC 360 REMMOD******* 400 DEFPROCesccode:CLS 410 PRINT"ESC+ARed ‡ ESC+B‚Green" 420 PRINT"ESC+CƒYellow ‡ ESC+D„Blue" 430 PRINT"ESC+E…Magenta ‡ ESC+F†Cyan" 440 PRINT"ESC+G White ‡ ESC+HˆFlash" 450 PRINT"ESC+I Steady ESC+J Exit & Save" 460 PRINT"ESC+M Double Height ESC+L Single Ht." 470 PRINT"ESC+O Block ESC+P Pixel Editor" 480 PRINT"ESC+QRed‘,,, ‡ESC+R‚Green’,,," 490 PRINT"ESC+SƒYellow“,,, ‡ESC+T„Blue”,,," 500 PRINT"ESC+U…Magenta•,,, ‡ ESC+V†Cyan–,,," 510 PRINT"ESC+W‡White—,,, ‡ ESC+X " 520 PRINT"ESC+Y Con.— ˙˙˙‡ ESC+Z Sep.—š˙˙˙" 530 PRINT"ESC+^ Hold Graphics ESC+- Release Gpx" 540 PRINT"ESC+] New B/Ground ESC+\ Black BG" 550 PRINT"ƒNB…Use CAPITAL letters where stated!" 560 PRINT"ƒAlso†@ can be used instead of ESC" 570 PRINT"‘ ,,,,,,,,,,,‚Press Any Key‘,,,,,,,,,,,"; 580 G=GET:ENDPROC 590 REM MOD****** 600 DEFPROCfkeys:OSCLI"KEY 0 "+"˙" 610 OSCLI"KEY 2 "+"" 620 OSCLI"KEY 3 "+"Œ" 630 OSCLI"KEY 6 "+"œ" 640 OSCLI"KEY 7 "+"" 650 ENDPROC 660 REM MOD****** 700 DEF FNinput(length%) 710 LOCAL total$,key% 720 REPEAT 730 key% = GET 740 IF key%=13 GOTO 800 750 IF key%=127 AND LEN(total$)=0 THEN 730 760 IF key%=127 VDU8,32,8:total$=LEFT$(total$,LEN(total$)-1):GOTO730 770 IF LEN(total$)=length% GOTO730 780 total$ = total$ + CHR$(key%) 790 VDU key% 800 UNTIL key%=13 810 =total$ 820 REM MOD****** 900 DEF FNlen(len$,len%) 910 IF LEN(len$)>len% THEN =LEFT$(len$,len%) 920 IF LEN(len$)=len% THEN =len$ 930 REPEAT 940 len$=len$+" " 950 UNTIL LEN(len$)=len% 960 =len$ 970 REM MOD****** 1000 DEF FNpassword(length%) 1010 LOCAL key%,line$ 1020 key%=GET 1030 IF key%=13 THEN =line$ 1040 IF key%=127 AND LEN(line$)=0 THEN 1020 1050 IF key%=127 THEN line$=LEFT$(line$,LEN(line$)-1):VDU8,32,8:GOTO1020 1060 IF LEN(line$)=length% THEN 1020 1070 line$=line$+CHR$key% 1080 VDU 42 1090 GOTO1020 1095 REM MOD****** 1100 DEF PROCreturn 1110 PRINT'"”‡Press Return œ"; 1120 REPEAT UNTILGET=13 1130 FORa%=1TO18 1140 VDU8 1150 NEXTa% 1160 PRINT""; 1170 FORA=1TO500:NEXTA 1180 ENDPROC 1190 REM MOD****** 1200 DEF PROCmoveto(xpos%,ypos%) 1210 IF ?&70=13 AND ypos%=21 VDU30:ENDPROC 1220 REPEAT 1230 IF POS>xpos% THEN VDU8 1240 IF POSypos% THEN VDU11 1270 UNTIL xpos%=POS AND ypos%=VPOS 1280 ENDPROC 1290 REM MOD****** 1300 DEF PROCwrite_text(file%,string$) 1310 LOCAL loop% 1320 FOR loop%=1 TO LEN(string$) 1330 BPUT#file%,ASC(MID$(string$,loop%,1)) 1340 NEXT 1350 BPUT#file%,13 1360 ENDPROC 1370