home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Software / JB.1520-3.B.SFX / totplotarea (.txt) < prev    next >
Commodore BASIC  |  1990-02-12  |  714b  |  41 lines
  1. 1000 REM PLATZ & WGCA 1987
  2. 1010 REM TESTS REGISTER OF PEN & PAPER
  3. 1020 REM DRAWS 1 CM GRID OF PLOT AREA
  4. 1030 OPEN1,6,1
  5. 1040 OPEN2,6,2
  6. 1050 OPEN4,6,0
  7. 1060 PRINT#2,3
  8. 1070 FORP=1TO5:PRINT#4:NEXTP
  9. 1080 PRINT#4,"PLOTTABLE X,Y AREA"
  10. 1090 :
  11. 1100 REM HORIZONTAL LINES AT 1 CM
  12. 1110 FORP=1TO10:PRINT#4:NEXTP
  13. 1120 PRINT#1,"M";0,-998
  14. 1130 REM GIVE SOME SPACE
  15. 1140 FORP=1TO5:PRINT#4:NEXTP
  16. 1150 PRINT#1,"H"
  17. 1160 :
  18. 1170 REM VERTICAL LINES AT 1 CM
  19. 1180 FORI=50TO479STEP100
  20. 1190 PRINT#1,"M",I-50,-998
  21. 1200 PRINT#1,"D",I-50,998
  22. 1210 PRINT#1,"M",I,998
  23. 1220 PRINT#1,"D",I,-998
  24. 1230 NEXT I
  25. 1240 PRINT#1,"M";479,-998
  26. 1250 PRINT#1,"D";479,998
  27. 1260 PRINT#1,"D";0,998
  28. 1270 FORJ=948TO-998STEP-100
  29. 1280 PRINT#1,"M",0,J
  30. 1290 PRINT#1,"D",479,J
  31. 1300 IFJ-50=<-998THEN1330
  32. 1310 PRINT#1,"M",479,J-50
  33. 1320 PRINT#1,"D",0,J-50
  34. 1330 NEXT J
  35. 1340 PRINT#1,"M";0,-998
  36. 1350 PRINT#1,"D";479,-998
  37. 1360 PRINT#1,"M",0,-998
  38. 1370 FORP=1TO5:PRINT#4:NEXTP
  39. 1380 CLOSE4:CLOSE2:CLOSE1
  40. 1390 END
  41.