home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Software / MONITOR-TEST (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  3.1 KB  |  63 lines
  1. 10 POKE53280,5:POKE53281,12:SW=0
  2. 20 PRINT"ôƒ        ░└└└└└└└└└└└└└└└└└└└└└└«"
  3. 30 PRINT"        ▌₧MONITOR ALIGNMENT TESTƒ▌"
  4. 40 PRINT"        ¡└└└└└└└└└└└└└└└└└└└└└└╜"
  5. 80 PRINT"¢        [1]ƒ -- SELECT A SCREEN"
  6. 90 PRINT"¢        [2]ƒ -- SWEEP THRU SCREENS"
  7. 95 PRINT"¢        [E]ƒ -- EXIT PROGRAM"
  8. 100 PRINT"        PLEASE ENTER CHOICE¢:";
  9. 110 OPEN1,0:INPUT#1,Q$:CLOSE1:PRINT
  10. 120 IFLEFT$(Q$,1)="1"THEN200
  11. 130 IFLEFT$(Q$,1)="2"THEN1000
  12. 140 IFLEFT$(Q$,1)="E"THENEND
  13. 150 GOTO10
  14. 200 PRINT"ƒ        ENTER SCREEN #(1-6)¢:";:OPEN1,0:INPUT#1,Q$:CLOSE1:PRINT
  15. 210 S=VAL(Q$):IFS=0ORS>6THENPRINT"ææ";:GOTO200
  16. 220 SW=0:ONSGOSUB400,500,600,700,800,900,10
  17. 230 GOTO10
  18. 400 PRINT"ô              SCREEN #1"
  19. 401 PRINT"           CONVERGENCE TEST"
  20. 405 FORDE=1TO1500:NEXT
  21. 410 PRINT"ô";
  22. 420 PRINT"░└▓└▓└▓└▓└▓└▓└▓└▓└▓└▓└▓└▓└▓└▓└▓└▓└▓└▓└«"
  23. 425 FORX=1TO11
  24. 430 PRINT"▌.▌.▌.▌.▌.▌.▌.▌.▌.▌.▌.▌.▌.▌.▌.▌.▌.▌.▌.▌"
  25. 440 PRINT"½└█└█└█└█└█└█└█└█└█└█└█└█└█└█└█└█└█└█└│"
  26. 450 NEXT
  27. 455 PRINT"▌.▌.▌.▌.▌.▌.▌.▌.▌.▌.▌.▌.▌.▌.▌.▌.▌.▌.▌.▌"
  28. 460 PRINT"¡└▒└▒└▒└▒└▒└▒└▒└▒└▒└▒└▒└▒└▒└▒└▒└▒└▒└▒└╜ææ":POKE198,0
  29. 470 IFSW=1THEN495
  30. 480 GETA$:IFA$<>CHR$(13)THEN480
  31. 490 RETURN
  32. 495 FORDE=1TO4000:NEXT:GOTO490
  33. 500 PRINT"ô              SCREEN #2"
  34. 501 PRINT"          COLOR PURITY TEST"
  35. 505 FORDE=1TO1500:NEXT
  36. 510 POKE53280,2:POKE53281,2
  37. 520 POKE198,0:IFSW=1THEN540
  38. 530 GETA$:IFA$<>CHR$(13)THEN5    
  39. 535 GOTO550
  40. 540 FORDE=1TO2000:NEXT
  41. 550 POKE53280,5:POKE53281,5
  42. 560 POKE198,0:IFSW=1THEN580
  43. 570 GETA$:IFA$<>CHR$(13)THEN570
  44. 575 GOTO590
  45. 580 FORDE=1TO2000:NEXT
  46. 590 POKE53280,6:POKE53281,6
  47. 591 POKE198,0:IFSW=1THEN594
  48. 592 GETA$:IFA$<>CHR$(13)THEN592
  49. 593 GOTO595
  50. 594 FORDE=1TO2000:NEXT
  51. 595 RETURN
  52. 600 PRINT"ôƒ              SCREEN #3"
  53. 601 PRINT"          COLOR BALANCE TEST"
  54. 605 FORDE=1TO1500:NEXT
  55. 610 POKE53280,1:POKE53281,1
  56. 620 POKE198,0:IFSW=1THEN650
  57. 630 GETA$:IFA$<>CHR$(13)THEN630
  58. 640 GOTO660
  59. 650 FORDE=1TO2000:NEXT
  60. 660 POKE53280,0:POKE53281,0:RETURN
  61. 700 PRINT"ô              SCREEN #4"
  62. 701 PRINT"           RESOLUTION TEST"    
  63.