home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / Plus4 / HIRES-DRAW&FILE < prev    next >
Encoding:
Text File  |  2019-04-13  |  4.0 KB  |  3 lines
  1.  
  2.  
  3. 10 TRAP1000:IFL=1ANDNC=0THENGETKEYK$:IFK$<>"M"THEN10
  4. 12 IFNC=1THEN770
  5. 15 IFL=0THEN20:ELSE50
  6. 20 C0=1:L0=0:C1=6:L6=5:C1$=CHR$(34):R$=CHR$(18):O$=CHR$(146)
  7. 30 COLOR0,1,0:COLOR1,8,5:COLOR4,1,0:GRAPHIC1,1
  8. 40 GOSUB50
  9. 50 GRAPHIC0,1:PRINTTAB(17)"MAIN MENU":FORI=0TO8:PRINTTAB(I+17)CHR$(163);:NEXT:PRINT:
  10. 60 PRINT" 1. SET BACKGROUND COLOR":PRINT:
  11. 70 PRINT" 2. SET BACKGROUND LUMANANCE":PRINT
  12. 80 PRINT" 3. SET FORGROUND COLOR":PRINT
  13. 90 PRINT" 4. SET FORGROUND LUMANANCE":PRINT:
  14. 100 PRINT" 5. ENTER DRAW MODE (CLEARED SCREEN)":PRINT:
  15. 110 PRINT" 6. RETURN TO DRAW MODE":PRINT:
  16. 120 PRINT" 7. SAVE WORK TO DISC (HI-RES=32 BLKS)":PRINT:
  17. 130 PRINT" 8. LOAD HI-RES SCREEN FROM DISK":PRINT:
  18. 140 PRINT" 9. ***** INSTRUCTIONS *****":PRINT:
  19. 150 PRINT" 0. QUIT":PRINT
  20. 160 PRINT" ENTER ABOVE CHOISE "
  21. 170 GETK$:IFK$=""THEN170
  22. 180 IFK$="1"THENGOSUB290
  23. 190 IFK$="2"THENGOSUB320
  24. 200 IFK$="3"THENGOSUB350:GOTO50
  25. 210 IFK$="4"THENGOSUB380:GOTO50
  26. 220 IFK$="5"THENGRAPHIC1,1:GOTO770:REM * ENTER DRAW MODE (SCNCLR)
  27. 230 IFK$="6"THENGOSUB1010:GRAPHIC1:GOTO780:REM * RETURN TO DRAW MODE (NO CLR)
  28. 240 IFK$="7"THENGRAPHIC0,1:PRINT:PRINT:GOSUB410
  29. 250 IFK$="8"THENGRAPHIC0,1:PRINT:PRINT:GOTO480
  30. 260 IFK$="9"THENGOSUB550
  31. 270 IFK$="0"THENGOSUB660
  32. 280 GOTO170
  33. 290 C0=C0+1:IFC0=17THENC0=1
  34. 300 COLOR0,C0,L0:COLOR4,C0,L0
  35. 310 RETURN
  36. 320 L0=L0+1:IFL0=8THENL0=0
  37. 330 COLOR0,C0,L0:COLOR4,C0,L0
  38. 340 RETURN
  39. 350 C1=C1+1:IFC1=17THENC1=1
  40. 360 COLOR1,C1,L1
  41. 370 RETURN
  42. 380 L1=L1+1:IFL1=8THENL1=0
  43. 390 COLOR1,C1,L1
  44. 400 RETURN
  45. 410 PRINT" 1. SAVE SCREEN":PRINT
  46. 420 PRINT" 2. RETURN TO MAIN MENU":PRINT:
  47. 430 PRINT" ENTER CHOISE"
  48. 440 GETK$:IFK$=""THEN440
  49. 450 IFK$="1"THEN870
  50. 460 IFK$="2"THEN50
  51. 470 GOTO440
  52. 480 PRINT" 1. LOAD SCREEN":PRINT
  53. 490 PRINT" 2. RETURN TO MAIN MENU":PRINT:
  54. 500 PRINT" ENTER CHOISE"
  55. 510 GETK$:IFK$=""THEN510
  56. 520 IFK$="1"THEN920
  57. 530 IFK$="2"THEN50
  58. 540 GOTO510
  59. 550 GRAPHIC0,1:PRINTTAB(14)"INSTRUCTIONS":FORI=0TO11:PRINTTAB(I+14)CHR$(163);:NEXT
  60. 560 PRINT:
  61. 570 PRINT"  WHEN RUNNING THE DRAW & FILE PROGRAM  YOU WILL BE GIVEN THE MAIN MENU."
  62. 580 PRINT"  MAKE YOUR SELECTOIN FROM THIS MENU BY ENTERING THE NUMBER OF THE ";
  63. 590 PRINT"SELECTION.":PRINT"  WHEN IN DRAW MODE  THE CURSOR KEY     ARROWS ARE YOUR ";
  64. 600 PRINT"PEN. ON ENTERING DRAW   MODE YOU WILL NOTICE THE PC FLASHING OFFAND ON."
  65. 610 PRINT"  THIS IS SET AT IT'S DEFAULT OF NO DRAWOR ERASE. TO BEGIN DRAWING, JUST ";
  66. 620 PRINT"PRESS  'D'. TO ERASE, PRESS 'E'."
  67. 630 PRINT"  AT ANY TIME YOU MAY RETURN TO THE MAINMENU BY PRESSING 'M'.":PRINT:
  68. 632 PRINT" * NOTE: WHEN EVER YOU SELECT 'REDRAW   MODE', THE SCREEN WILL RELOAD. THIS";
  69. 633 PRINT" WILLINSURE A PEN COLOR MATCH IF ANY C";"OLOR   SETTING HAS BEEN";
  70. 634 PRINT" CHANGED. YOU WILL THEN BE READY TO  RE-DRAW.":PRINT:
  71. 640 PRINT:PRINTTAB(1)"<PRESS ANY KEY TO RETURN TO MAIN MENU>"
  72. 650 GETKEYK$:GOTO50
  73. 660 END
  74. 670 X=1:Y=1
  75. 680 DRAW1,X,Y
  76. 690 GETK$:IFK$=""THEN690
  77. 700 IFK$=CHR$(157)THENX=X-1
  78. 710 IFK$=CHR$(29)THENX=X+1
  79. 720 IFK$=CHR$(145)THENY=Y-1
  80. 730 IFK$=CHR$(17)THENY=Y+1
  81. 740 IFK$="E"THENGOSUB780
  82. 750 IFK$="M"THENGRAPHIC0:GOTO50
  83. 760 GOTO680
  84. 770 IFX>1ORY>1THEN780:ELSEX=1:Y=1
  85. 780 DRAW1,X,Y:DRAW0,X,Y
  86. 790 GETK$:IFK$=""THEN780
  87. 800 IFK$=CHR$(157)THENX=X-1
  88. 810 IFK$=CHR$(29)THENX=X+1
  89. 820 IFK$=CHR$(145)THENY=Y-1
  90. 830 IFK$=CHR$(17)THENY=Y+1
  91. 840 IFK$="D"THENGOTO680
  92. 850 IFK$="M"THENGRAPHIC0:GOTO50
  93. 860 GOTO780
  94. 870 PRINT:INPUT" ENTER FILE NAME TO SAVE (16 CHAR. MAX. ";FL$:C$=CHR$(13)
  95. 880 KEY1,"*MONITOR"+C$+"S"+C1$+FL$+C1$+",8,2000,3F41"+C$+"X"+C$+"GOTO1000"+C$
  96. 890 PRINT:PRINT" PRESS FUNCTION KEY 1 TO SAVE FILE":PRINT:
  97. 900 PRINT" PRESS ANY KEY TO ABORT"
  98. 910 GETKEYK$:END
  99. 920 GRAPHIC0,1:DIRECTORY
  100. 930 PRINT" ";R$;"TO REVIEW DIRECTORY PRESS'D'. TO LOAD"O$;"   ";R$;"FILE PRESS 'L'";O$
  101. 940 GETK$:IFK$=""THEN940
  102. 950 IFK$="D"THENDIRECTORY:GOTO930
  103. 960 IFK$="L"THEN980
  104. 970 GOTO940
  105. 980 INPUT" FILE NAME TO LOAD ";FL$:L=0
  106. 990 TRAP1000:IFL=0THENL=1:GRAPHIC1,1:LOAD(FL$),8,1:PRINTDS$
  107. 1000 IFDS>0THENGRAPHIC0,1:PRINTDS$:FORI=0TO1500:NEXT:GOTO50:ELSERESUME
  108. 1010 IFFL$>""THENNC=1:L=0:GOTO1020:ELSERETURN
  109. 1020 TRAP1000:IFL=0THENL=1:GRAPHIC1,1:LOAD(FL$),8,1:PRINTDS$
  110.  
  111. READY.
  112.  
  113.