home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / commodore-users-of-norman / CUON_121_(06-1985).d64 / housepainter-64 (.txt) < prev    next >
Commodore BASIC  |  2019-04-13  |  1KB  |  60 lines
  1. 100 PRINT"[147]    HOUSEPAINTER  -  JIM BUTTERFIELD    "
  2. 110 PRINT"   TRY TO PAINT THE HOUSE USING THE
  3. 120 [153]"FUNCTION KEYS TO MOVE THE BRUSH.
  4. 130 PRINT"   YOU'RE NOT ALLOWED TO PAINT OVER
  5. 140 [153]"AN AREA...SO DON'T PAINT YOURSELF
  6. 150 PRINT"INTO A CORNER.
  7. 160 [153]"   YOU HAVE 5 MINUTES.  LEAVE THE
  8. 170 PRINT"PAINT BRUSH IN THE RED SHED WHEN
  9. 180 [153]"YOU'RE FINISHED.  PRESS ANY KEY TO GO.
  10. 185 PRINT"   IF YOU GET STUCK, PRESS Q
  11. 190 [129]J[178]1[164]1E4:[161]X$:[139]X$[178]""[167][130]J
  12. 200 [131]3,0,24,0,39
  13. 210 [131]7,10,20,10,30
  14. 220 [131]7,8,9,15,18
  15. 230 [131]3,15,17,13,15
  16. 240 [131]3,16,18,25,27
  17. 250 [131]3,17,20,19,21
  18. 260 [131]2,18,20,31,33
  19. 270 [131]-1
  20. 300 [153][199](159);[199](147);"WAIT";[199](142);[199](8):[151]53281,1
  21. 310 C0[178]55296:S0[178]1024
  22. 320 [143]
  23. 330 [135]C:[139]C[179]0[137]400
  24. 340 [135]V1,V2,H1,H2
  25. 350 [129] J[178]V1[172]40 [164] V2[172]40 [169] 40
  26. 360 [129] X[178]C0[170]J[170]H1 [164] C0[170]J[170]H2
  27. 370 [151] X,C
  28. 380 [130] X,J
  29. 390 [137]330
  30. 400 [129] J[178]S0[170]4 [164] S0[170]999:[151] J,160:[130]J
  31. 410 [129] J[178]C0 [164] C0[170]999
  32. 420 [139] ([194](J) [175] 15)[178]7 [167] N[178]N[170]1
  33. 430 [130] J
  34. 440 TI$[178]"000000"
  35. 450 V[178]19:H[178]32
  36. 460 [151] V0[172]40[170]H0[170]S0,160
  37. 470 [151] V[172]40[170]H[170]S0,209
  38. 480 V0[178]V:H0[178]H
  39. 490 [153] [199](19);[199](18);TI$
  40. 500 [139] TI$[177]"000499" [137] 680
  41. 510 K[178][194](203)
  42. 520 [161]K$:K1[178][198](K$[170][199](0))
  43. 530 [139] K1[178]133 [167] V1[178][171]1
  44. 540 [139] K1[178]134 [167] H1[178][171]1
  45. 550 [139] K1[178]135 [167] H1[178]1
  46. 560 [139] K1[178]136 [167] V1[178]1
  47. 565 [139] K1[178]81 [137] 680
  48. 570 [139] K[179]64 [137] 590
  49. 580 V1[178]0:H1[178]0
  50. 590 V[178]V0[170]V1:H[178]H0[170]H1
  51. 600 P[178]C0[170]V[172]40[170]H:[139] P[178]P9 [137] 490
  52. 610 C[178][194](P) [175] 15
  53. 620 [139] C[179][177] 7 [175] C[179][177]2 [137] 490
  54. 630 [139] C9[178]7 [167][151] P9,1: N[178]N[171]1
  55. 640 P9[178]P:C9[178]C
  56. 650 [139] C[179][177]2 [176] N[177]0 [137] 460
  57. 660 [153]"WINNER!"
  58. 670 [128]
  59. 680 [153]"YOU MISSED";[196](N);" SQUARES"
  60.