1 REM "+++++ BIT MAP GRAPHIC DISPLAY SYSTEM - MAIN PROGRAM +++++"
2 POKE53281,0:PRINT""
3 POKE49152,32
4 POKE49153,1
9 GOTO600
10 PRINT"[147] THIS PROGRAM GIVES YOU THE OPPORTUNITY"
11 PRINT" TO DEVELOP CREATIVE GRAPHICS."
12 PRINT" INITIALLY, YOUR DRAWINGS MAY LOOK       STRANGE, BUT DON'T GIVE UP."
13 PRINT" DRAWING WITH YOUR COMPUTER IS MORE      FUN THAN YOU CAN IMAGINE!"
16 PRINT" NOTE: WHEN YOU WANT THE MENU, JUST"
17 PRINT" PRESS THE 'M' KEY. MENU WILL APPEAR."
19 PRINT" ************** MENU *****************"
20 PRINT" *                                    *"
21 PRINT" *   'S' - TO SAVE THE PRESENT SCREEN *"
22 PRINT" *   'P' - TO PRINT PRESENT SCREEN    *"
23 PRINT" *   'I' - INSTRUCTIONS (HOW TO USE)  *"
24 PRINT" *   'N' - NEW SCREEN (ERASE ALL)     *"
25 PRINT" *   'B' - BACK TO PRESENT SCREEN     *"
26 PRINT" *   'L' - TO LOAD A NEW SCREEN       *"
27 PRINT" *   'E' - END OF DRAWING             *"
28 PRINT" *                                    *"
29 PRINT" **************************************"
30 PRINT" *** PRESS RETURN FOR THE NEXT PAGE ***"
31 GETT$:IFT$=""THEN31
50 PRINT"[147] *** INSTRUCTIONS ***"
51 PRINT" ALL INFORMATION REQUIRED TO EXECUTE"
52 PRINT" THIS PROGRAM IS DESCRIBED IN THE "
53 PRINT" ACCOMPANYING ARTICLE. CAREFULLY LOAD"
54 PRINT" AND EXECUTE THE TWO PROGRAMS."
55 PRINT" ONCE EXECUTED, A BIT-MAP SCREEN WILL"
56 PRINT" APPEAR. THE SCREEN WILL BE BLANK "
57 PRINT" UNTIL THE JOYSTICK IS MOVED WITH THE"
58 PRINT" FIRE BUTTON PRESSED."
76 PRINT" YOU CAN ALSO ERASE DOTS BY PLOTTING"
77 PRINT" BLANK DOTS OVER DOTS WHICH YOU WANT"
78 PRINT" TO ERASE. ERASE BY MOVING THE JOYSTICK
79 [153]" WITHOUT PRESSING THE FIRE BUTTON."
80 [153]" WHENEVER YOU WANT TO KNOW WHERE YOUR"
81 [153]" DOT IS, STOP MOVING YOUR JOYSTICK AND"
82 [153]" HIT THE FIRE BUTTON. YOU'LL SEE A       BLINKING DOT."
84 [153][166]18)"PRESS ANY KEY..."
85 [161]T$:[139]T$[178]""[167]85
90 [153]" THE WAY TO GET FAMILIAR WITH THIS"
91 [153]" DRAWING SYSTEM IS TO PRACTICE."
92 [153]" GOOD LUCK !!"
97 [153]" **** PRESS RETURN FOR MENU ****"
98 [161]T$:[139]T$[178]""[167]98
99 [137]600
100 [153]"LOAD  DO YOU WANT TO CLEAN UP THIS SCREEN?""    YES OR NO?"
102 [161]T$:[139]T$[178]""[167]102
103 [139]T$[178]"Y"[167][158]49174:[137]200
104 [139]T$[178]"N"[167]200
105 [137]102
200 [153]"LOAD  ENTER X-Y CORDINATES TO START WITH."
201 [153]"  X (0 TO 319) ";:[133]XI:[139]XI[179]0[176]XI[177]319[167]201
211 [153]"  Y (0 TO 199) ";:[133]Y:[139]Y[179]0[176]Y[177]199[167]211
220 [139]XI[177]255[167]XL[178]XI[171]256:XH[178]1:[137]222
221 XL[178]XI:XH[178]0
222 [151]49166,XL:[151]49167,XH:[151]49168,Y
230 [153]"  ENTER THE DRAWING SPEED."
231 [153]"     1 FOR SLOW"
232 [153]"     2 FOR MED."
233 [153]"     3 FOR FAST"
235 [161]S$:[139]S$[178]""[167]235
236 [139]S$[178]"1"[167]SP[178]100:[137]300
237 [139]S$[178]"2"[167]SP[178]30:[137]300
238 [139]S$[178]"3"[167]SP[178]1:[137]300
239 [137]235
300 [158]49228
310 [158]49278
400 [158]49312
410 [139][194](49172)[178]1[167]500
420 [129]I[178]0[164]SP:[130]:[137]400
500 [158]49295
510 [151]49172,0
600 [153]"LOAD *********** MENU OF GRADS ************"
601 [153]" *                                    *"
602 [153]" *   'I' - INSTRUCTION                *"
603 [153]" *   'E' - END OF DRAWING             *"
604 [153]" *   'N' - NEW SCREEN (ERASE ALL)     *"
605 [153]" *   'B' - BACK TO PRESENT SCREEN     *"
606 [153]" *   'S' - SAVING A PRESENT SCREEN    *"
607 [153]" *   'L' - LOADING A NEW SCREEN       *"
608 [153]" *   'P' - PRINTING A PRESENT SCREEN  *"
609 [153]" *                                    *"
610 [153]" **************************************"
620 [153]"     SELECT ONE OF THE ABOVE LETTERS"
621 [161]T$:[139]T$[178]""[167]621
622 [139]T$[178]"I"[167]10
623 [139]T$[178]"E"[167][128]
624 [139]T$[178]"N"[167]100
625 [139]T$[178]"B"[167]300
626 [139]T$[178]"S"[167][151]49171,1:[137]800
627 [139]T$[178]"L"[167][151]49171,0:[137]802
628 [139]T$[178]"P"[167]700
629 [137]621
700 [153]"LOAD  PRINTING MODE"
701 [153]"         READY FOR PRINTING?"
702 [153]"         IF READY, PRESS 'P'."
703 [153]"         'M' FOR MENU."
710 [161]T$:[139]T$[178]""[167]710
712 [139]T$[178]"P"[167]730
713 [139]T$[178]"M"[167]600
714 [137]710
730 [153]"LOAD     PRINTING....."
731 [159]4,4
732 [158]49676
733 [152]4:[160]4
734 [137]600
800 [153]"LOAD  SAVING MODE":[137]803
802 [153]"LOAD  LOADING MODE"
803 [153]"     IS YOUR DISK DRIVE READY?"
804 [153]"     IF READY, PRESS RETURN."
805 [153]"     'M' FOR MENU."
810 [161]T$:[139]T$[178]""[167]810
811 [139][198](T$)[178]13[167]820
812 [139]T$[178]"M"[167]600
813 [203]T810
820 [153]"     ENTER A SCREEN NAME."
822 [158]49957
830 [137]600