Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- 1 ON ERROR PRINTREPORT$;" at line ";ERL:END
- 2
- 3 REM OLD Colours of historic interest only
- 4 DIM BarsLU%(16)
- 5 BarsLU%(0)=7
- 6 BarsLU%(1)=3
- 7 BarsLU%(2)=6
- 8 BarsLU%(3)=2
- 9 BarsLU%(4)=5
- 10 BarsLU%(5)=1
- 11 BarsLU%(6)=4
- 12 BarsLU%(7)=0
- 13 BarsLU%(8)=1
- 14 BarsLU%(9)=1
- 15 BarsLU%(10)=1
- 16 BarsLU%(11)=1
- 17 BarsLU%(12)=1
- 18 BarsLU%(13)=1
- 19 BarsLU%(14)=1
- 20 BarsLU%(15)=1
- 21
- 22
- 23 REM MODE MODE :REM Reset Screen display. but leave in current mode.
- 24 CLG
- 25 OFF :REM Turn off text cursor
- 26 :
- 27 REM The following four line read the current screen size co-ords.
- 28 SYS "OS_ReadModeVariable",-1,4 TO ,,XEigFactor%
- 29 SYS "OS_ReadModeVariable",-1,5 TO ,,YEigFactor%
- 30 SYS "OS_ReadModeVariable",-1,11 TO ,,XSize%:XSize%+=1
- 31 SYS "OS_ReadModeVariable",-1,12 TO ,,YSize%:YSize%+=1
- 32 :
- 33 REM Now calculate the satrting point and step size for 8x10 grid
- 34 endX%=XSize%<<XEigFactor%
- 35 XStep%=(XSize%/8)<<XEigFactor%
- 36 halfY%=(YSize%/3 )<<YEigFactor%
- 37 :
- 38 endY%=YSize%<<YEigFactor%
- 39 REM Draw BARS
- 40 Step%=0
- 41 FOR X%= XStep% TO endX% STEP XStep%
- 42 REM GCOL0,BarsLU%(Step%)
- 43
- 44 PROCSetColour(Step%)
- 45
- 46 RECTANGLEFILL X%-XStep%,halfY%,X%,endY%
- 47 GCOL 255,0,0
- 48 RECTANGLEFILL X%-XStep%,0,X%,halfY%
- 49 Step% +=1
- 50 NEXT
- 51 REM OSCLI("<MonitorTest$Dir>.!Runimage")
- 52
- 53 PRINT XSize%,YSize%
- 52 END
- 53
- 54 DEF PROCSetColour(step)
- 55
- 56 RESTORE 72
- 57 READ col,r,g,b
- 58
- 59 WHILE (col<>step) AND (col <> -1)
- 60
- 61 READ col,r,g,b
- 62 ENDWHILE
- 63
- 64 IF col <> -1 THEN
- 65 GCOL r,g,b
- 66 ENDIF
- 67
- 68 ENDPROC
- 69
- 70
- 71
- 72 DATA 0,255,255,255
- 73 DATA 1,255,255,0
- 74 DATA 2,0,255,255
- 75 DATA 3,0,255,0
- 76 DATA 4,255,0,255
- 77 DATA 5,255,0,0
- 78 DATA 6,0,0,255
- 79 DATA 7,0,0,0
- 80 DATA -1,-1,-1,-1
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement