10 REM SCREEN SAVER 20 REM MODEL B ONLY 30 REM BY ANDREW YORK 1995 35 : 40 MODE7:?&D0=0:*FX18 50 VDU23;10,32;0;0;0:ONERROR VDU23;10,32;0;0;0 :PROCerror 60 PROCmenu:*FX4,1 70 choice$=GET$ 80 IF choice$="A" OR choice$="a" THEN PROCsure(5,7):PROCfile:CLS:PROCedit 90 IF choice$="B" OR choice$="b" THEN PROCsure(5,9):PROCfile:PROCreload 100 IF choice$="C" OR choice$="c" THEN PROCsure(6,11):PROCfile:CLS:OSCLI"DELETE "+file$:RUN 110 IF choice$="D" OR choice$="d" THEN PROCinstructions 120 IF choice$="E" OR choice$="e" OR choice$="*" THEN PROCcommand 130 IF choice$="F" OR choice$="f" THEN PROCsure(6,17):CALL !-4 140 GOTO 70 150 END 10000 DEFPROCmenu:PRINT" "; 10010 PRINT" "; 10020 PRINT" ƒ „MODE 7 SCREEN SAVER œ "; 10030 PRINT" ƒ „MODE 7 SCREEN SAVER œ "; 10040 PRINT" "; 10050 PRINT"† "; 10060 PRINT" "; 10070 PRINT" ƒ A) Start a new screen "; 10080 PRINT" "; 10090 PRINT" ‚ B) Edit an old screen "; 10100 PRINT" "; 10110 PRINT" ƒ C) Delete a file "; 10120 PRINT" "; 10130 PRINT" ‚ D) Instructions "; 10140 PRINT" "; 10150 PRINT" ƒ E) * Command "; 10160 PRINT" "; 10170 PRINT" ‚ F) Exit "; 10180 PRINT" "; 10190 PRINT" "; 10200 PRINT" "; 10210 PRINT" "; 10220 PRINT" "; 10230 REM 10240 PRINT"ƒ„ BY ANDREW YORK 1995 FOR MODEL B ":*FX200,1 10250 ENDPROC 10260 DEFPROCsure(X,Y) 10270 PRINTTAB(6,20);" Are You Sure ?" 10280 PRINTTAB(X,Y);"ˆ" 10290 REPEAT:sure$=GET$ 10300 IF sure$="Y" OR sure$="y" THEN ENDPROC 10310 IF sure$="N" OR sure$="n" THEN RUN 10311 UNTIL FALSE 10320 ENDPROC 10330 DEFPROCcommand 10340 CLS:VDU23;10,100;0;0;0 10350 INPUT"*"command$ 10360 CLS:OSCLIcommand$:*FX200,1 10370 PROCspace 10380 ENDPROC 10390 DEFPROCspace 10400 PRINT 10410 VDU23;10,32;0;0;0:PRINT" Press space...":REPEAT:A$=GET$:UNTIL A$=" " 10420 RUN:ENDPROC 10430 DEFPROCfile:VDU23;10,100;0;0;0 10440 PRINTTAB(6,20);" " 10450 INPUTTAB(6,20);"Enter file:"file$ 10460 IF file$="" OR file$=" " THEN GOTO10440 10470 ENDPROC 10480 DEFPROCedit:*FX200,0 10490 ?&D0=2 10500 VDU23;10,0;0;0;0 10510 *FX4,2 10520 *KEY12|H 10530 *KEY13|I 10540 *KEY14|J 10550 *KEY15|K 10560 *KEY11|U 10570 OSCLI"KEY9 ˙" 10580 OSCLI"KEY7" 10590 OSCLI"KEY6œ" 10600 OSCLI"KEY8" 10610 REM 10620 REM 10630 REPEAT:INPUT""TEXT$:UNTIL FALSE 10640 REM 10650 ENDPROC 10660 DEFPROCreload 10670 CLS:OSCLI"LO."+file$+" 7C00" 10680 PROCedit 10690 ENDPROC 10695 DEFPROCerror 10705 ONERROR OFF 10715 IF ERR=17 THEN PROCsave 10725 CLS 10735 ?&D0=0:*FX18 10745 PRINT 10755 PRINT CHR$(129); 10765 VDU7 10775 REPORT:PRINT" at line ";ERL 10785 PRINT 10795 PROCspace 10805 ENDPROC 10815 DEFPROCsave:ONERROR PROCerror 10825 OSCLI"SAVE "+file$+" 7C00 7FED":*FX200,1 10826 CLS:VDU23;10,32;0;0;0:PRINT:PRINTTAB(10,2);"FILE '";file$;"' SAVED":PRINTTAB(2,5);"Do you wish to carry on editing this":PRINTTAB(15,6);"file ? ":VDU7 10827 PRINTTAB(15,6);"file ? " 10828 REPEAT:B$=GET$ 10838 IF B$="N" OR B$="n" THEN RUN 10848 IF B$="Y" OR B$="y" THEN PROCreload 10849 UNTIL FALSE:ENDPROC 10850 DEFPROCinstructions 10911 REM 10921 VDU28,0,24,39,6:CLS:VDU14:PRINT:PRINT"† Scrolls Text" 10931 PROCtext1 10941 PROCtext2 10951 VDU15 10961 PROCspace 10971 RUN 10981 DEFPROCtext1:PRINT 10991 PRINT"‚This program is easy to use.It simply" 11001 PRINT"‚allows you to edit a Mode7 screen" 11011 PRINT"‚then save it." 11021 PRINT 11031 PRINT 11041 PRINT"‚When you have made your screen and" 11051 PRINT"‚saved it you can use it in your " 11061 PRINT"‚own software.To display your" 11071 PRINT"‚screen type:" 11081 PRINT 11091 PRINT"‚MODE7:*LOAD 7C00" 11101 PRINT 11111 PRINT"‚and like magic it should display on":PRINT"‚your screen!" 11121 ENDPROC 11131 DEFPROCtext2 11141 PRINT:PRINT:PRINT 11151 PRINT"Using the Program" 11161 PRINT"‘ppppppppppppppppp" 11162 PRINT 11172 PRINT"‚This program allows you to use all" 11173 PRINT"‚kinds of c‚oƒl„o…u†r‡s." 11174 PRINT"‚Here is how you produce them:" 11184 PRINT 11185 PRINT 11195 PRINT"SHIFT+'F1' :RED TEXT" 11205 PRINT 11215 PRINT"SHIFT+'F2' :‚GREEN TEXT" 11225 PRINT 11235 PRINT"SHIFT+'F3' :ƒYELLOW TEXT" 11245 PRINT 11255 PRINT"SHIFT+'F4' :„DARK BLUE TEXT" 11265 PRINT 11275 PRINT"SHIFT+'F5' :…PURPULE TEXT" 11276 PRINT 11286 PRINT"SHIFT+'F6' :†LIGHT BLUE TEXT" 11296 PRINT 11306 PRINT"SHIFT+'F7' :‡Normal (white)" 11316 PRINT 11326 PRINT"SHIFT+'F8' :ˆFLASHING" 11336 PRINT 11346 PRINT"SHIFT+'F9' :‡STOP FLASHING" 11347 PRINT 11357 PRINT"‚You can produce graphics too by" 11358 PRINT"‚holding‚down‡CTRL‚and pressing a" 11359 PRINT"‚function key." 11368 PRINT:PRINT:PRINT"‚For example by holding down‡CTRL‚and " 11378 PRINT"‚pressing‡'F1'‚then typing‡ppp‚you " 11388 PRINT"‚can produce‘ppp" 11389 PRINT:PRINT 11399 PRINT"‚Here are some other things you can" 11409 PRINT"‚produce:" 11419 PRINT 11429 PRINT"'F9' : ˙":PRINT 11430 PRINT"'F8' :";CHR$(141);"DOUBLE HEIGHT" 11431 PRINT" ";CHR$(141);"DOUBLE HEIGHT" 11432 PRINT 11442 PRINT"'F7' :„BACKGROUND" 11443 PRINT 11453 PRINT"'F6' :turns background off at a certain point" 11454 PRINT" e.g „HELLO œBYE" 11455 PRINT:PROCmore 11465 PRINT 11475 PRINT"‚Saving" 11485 PRINT"’pppppp" 11495 PRINT 11505 PRINT"‚To save your screen simply press‡ESCAPE" 11506 PRINT"‚To edit a screen simply enter‡B" 11516 PRINT"‚at the menu screen." 11526 PRINT 11536 PRINT"WARNING IF THE FILE IS LOCKED" 11546 PRINT"YOU CAN'T EDIT AND SAVE IT " 11547 ENDPROC 11550 DEFPROCmore:PRINT 11560 PRINT"‚To move around the screen use the" 11570 PRINT"‚cursor keys.":PRINT 11580 PRINT"‚Pressing‡COPY‚will delete all text" 11590 PRINT"‚on current line." 11591 PRINT 11601 PRINT"‚If you want to clear the screen" 11611 PRINT"‚simply press‡CTRL‚and‡L‚at the same" 11621 PRINT"‚time." 11622 PRINT 11632 PRINT"‚If you hear abeep‚simply press" 11642 PRINT" RETURN‚and carry on like normal." 11643 ENDPROC