50 REM STEP UP VARIABLES FOR CALLS›60 CHECK=1000:SCREEN=2000:QUIT=3000:DIM AN$(10):? CHR$(125)›100 REM MOVE DOWN RAMTOP›110 RAMTOP=PEEK(106)›120 ? "MOVE DOWN RAMTOP";:INPUT AN$:IF AN$(1,1)="N" THEN 200›130 RAMTOP=RAMTOP-5:POKE 106,RAMTOP›140 GRAPHICS 0›200 REM FILL 900 BYTES ABOVE RAMTOP›210 FIRST=RAMTOP*256+1:LAST=RAMTOP*256+900›220 ? "FILL MEMORY ABOVE RAMTOP";:INPUT AN$:IF AN$(1,1)="N" THEN 300›230 POKE 559,0:REM TURN OFF SCREEN REFRESHER›240 FOR POSITION=FIRST TO LAST›250 IF VALUE=255 THEN VALUE=0›260 VALUE=VALUE+1›270 POKE POSITION,VALUE›280 NEXT POSITION›290 POKE 559,34:REM TURN ON SCREEN›300 REM CHOOSE ACTION›310 ? :? "WHAT ACTION?":? "± TO CHECK RAM":? "² TO PLAY WITH SCREEN":? "³ TO QUIT"›320 INPUT ACTION›330 ON ACTION GOSUB SCREEN,CHECK,QUIT›340 GOTO 300›1000 REM SCREEN PLAY›1010 ? "CLEAR SCREEN":INPUT AN$›1020 IF AN$(1,1)="Y" THEN ? CHR$(125)›1030 ? "CHANGE GRAPHICS MODE";:INPUT AN$›1040 IF AN$(1,1)="Y" THEN ? "WHAT MODE";:INPUT MODE:GRAPHICS MODE›1050 IF MODE<>0 THEN ? "ENTER ANSWERS UNTIL DONE, THEN NO";:INPUT AN$›1060 IF AN$(1,1)<>"N" THEN GOTO 1050›1070 IF MODE<>0 THEN GRAPHICS 0›1100 RETURN ›2000 REM CHECK MEMORY›2010 ? :? "FIRST POSITION = ";FIRST:? "LAST = ";LAST:? "ENTER POSITIONS TO CHECK OR 0,0    TO RETURN"›2020 INPUT START,FINISH:IF START=0 THEN GOTO 2100›2030 POKE 82,7:POKE 201,11:? :REM MOVE MARGIN, SET TAB›2040 FOR POSITION=START TO FINISH›2050 VALUE=PEEK(POSITION):? POSITION;" = ";VALUE,›2055 HALT=PEEK(53775):IF HALT=251 THEN GOTO 2055›2060 NEXT POSITION›2070 POKE 82,2:REM RESTORE MARGIN›2075 POKE 764,255›2080 GOTO 2000›2100 RETURN ›3000 REM QUIT›3010 ? "NORMAL END OF JOB":END ›