5 REM * SCREEN SAVE ROUTINE *›8 REM * JOE TREM *›10 GOTO 30000›40 GRAPHICS 7:SETCOLOR 0,6,6:REM *SET GRAPHICS 7 MODE›60 INC=49:CO=1:COLOR 1›65 INC=INC+0.05›70 X=SIN(INC)*20:Y=COS(INC)*20›75 PLOT X+80,Y+35:SOUND 1,X+50,10,8›80 CO=CO+1:IF CO<130 THEN 65›100 CO=1›110 COLOR 3›130 INC=INC+0.05›140 X=SIN(INC+1)*30:Y=COS(INC)*30›145 IF CO>49 AND CO<70 THEN 160›150 COLOR 2:PLOT X+80,Y+35:SOUND 1,X+50,6,8›155 COLOR 3:PLOT X+81,Y+38:COLOR 1:PLOT X+79,Y+32›160 CO=CO+1:IF CO<130 THEN 110›170 COLOR 1:FOR X=1 TO 159:PLOT X,79:DRAWTO X,79-RND(0)*5:SOUND 1,X,10,8:NEXT X›180 FOR X=1 TO 20:COLOR RND(0)*1+1:PLOT 40,40:DRAWTO RND(0)*10,RND(0)*10:SOUND 1,X+20,8,8:NEXT X›183 FOR X=120 TO 159:COLOR RND(0)*2+1:PLOT X,20:DRAWTO X,RND(0)*20:NEXT X›185 COLOR 2:PLOT 130,30:DRAWTO 130,24:DRAWTO 134,24:DRAWTO 134,30:PLOT 130,27:DRAWTO 134,27›186 PLOT 142,25:DRAWTO 142,24:DRAWTO 138,24:DRAWTO 138,30:DRAWTO 142,30:DRAWTO 142,29›187 PLOT 150,24:DRAWTO 146,24:DRAWTO 146,30:DRAWTO 150,30:PLOT 146,27:DRAWTO 149,27›190 COLOR 2:PLOT 0,0:DRAWTO 159,0:DRAWTO 159,79:DRAWTO 0,79:DRAWTO 0,0›195 COLOR 1:PLOT 30,70:PLOT 40,10:PLOT 140,30:PLOT 150,70:PLOT 105,35:SOUND 1,0,0,0›200 GOTO 32000›30000 GRAPHICS 2:? #6;" SCREEN SAVE ROUTINE"›31000 CLOSE #1:OPEN #1,4,0,"K:"›32000 SCRN=32240:GOSUB SCRN:POKE 752,1:? " 1... DRAW PICTURE"›32010 ? " 2...SAVE PICTURE"›32020 ? " 3...LOAD PICTURE"›32050 GET #1,A:IF A<49 OR A>51 THEN 32050›32060 ON A-48 GOTO 40,32100,32200›32100 ? :? " SAVE TO 1...CASSETTE?":? " 2... DISK?"›32101 GET #1,A:IF A<49 OR A>50 THEN 32101›32103 ON A-48 GOTO 32110,32105›32105 ? :? " PLEASE INSERT DISKETTE AND PRESS ÒÅÔÕÒÎ":GET #1,A:OPEN #2,8,0,"D:PICTURE":GOTO 32120›32110 ? :? "PLEASE PLACE CLEAN TAPE IN RECORDER AND PRESS ÒÅÔÕÒÎ"›32115 OPEN #2,8,0,"C:":REM *OPEN FILE TO SAVE›32120 ? :? "SIT BACK AND RELAX... ÓÁÖÉÎÇ ÐÉÃÔÕÒÅ"›32122 MODE=PEEK(87):PUT #2,MODE:FOR I=0 TO 4:COL=PEEK(708+I):PUT #2,COL:NEXT I›32125 FOR I=SCREEN TO SCREEN+(40*80)-1:LOC=PEEK(I):PUT #2,LOC:NEXT I:CLOSE #2›32130 GOTO 32000›32200 ? :? " LOAD TO 1...CASSETTE?":? " 2...DISK?"›32201 GET #1,A:IF A<49 OR A>50 THEN 32201›32203 POKE 752,1›32205 ON A-48 GOTO 32210,32208›32208 ? :? " PLEASE INSERT DISKETTE AND PRESS ÒÅÔÕÒÎ":GET #1,A:OPEN #2,4,0,"D:PICTURE":GOTO 32220›32210 ? " PLEASE INSERT TAPE AND PRESS ÒÅÔÕÒÎ"›32215 OPEN #2,4,0,"C:":REM *OPEN FILE TO LOAD›32220 ? :? :? "RELAX AND ENJOY... ÌÏÁÄÉÎÇ ÐÉÃÔÕÒÅ"›32222 GET #2,MODE:GRAPHICS MODE:GOSUB SCRN:FOR I=0 TO 4:GET #2,COL:POKE 708+I,COL:NEXT I›32225 FOR I=SCREEN TO SCREEN+(40*80)-1:GET #2,LOC:POKE I,LOC:NEXT I:CLOSE #2›32230 GOTO 32000›32240 SCREEN=PEEK(88)+PEEK(89)*256:RETURN ›