home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 87xx / 8711.d64 / plo-skelett64 (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  1KB  |  30 lines
  1. 1 GOTO90:REM SAVE"@0:PLO-SKELETT64",8:REM P.KITTEL FFM 9.6.87
  2. 2 SYSP:RETURN:REM LINIE NACH (XX%,YY%)
  3. 3 SYSP+3:RETURN:REM PEN UP
  4. 6 SYSP+6:RETURN:REM PEN DOWN
  5. 9 SYSP+9:RETURN:REM PEN-STELLUNG WECHSELN
  6. 15 SYSP+15:RETURN:REM TEXT AUS ZZ$ HORIZ SCHREIBEN
  7. 18 SYSP+18:RETURN:REM TEXT AUS ZZ$ VERTIKAL SCHREIBEN
  8. 19 GOSUB37:OPEN1,4,1:PRINT#1,CHR$(12);:CLOSE1:REM FORMFEED ZUM NAECHSTEN BLATT
  9. 20 PRINT"[206]EUES [194]LATT, [206]ULLPUNKT EINGESTELLT.
  10. 21 [158]P[170]21:XX%[178]0:YY%[178]0:[142]:[143] NULLPUNKT FESTLEGEN
  11. 30 [151]P[170]30,CS:[142]:[143] CHARACTER-SIZE
  12. 31 [158]P[170]31:[142]:[143] KREISBOGEN GEGUHRSINN XX%=R, YY%=ANFOKT+8*ENDOKT
  13. 34 [158]P[170]34:[142]:[143] KREISBOGEN MITUHRSINN XX%=R, YY%=ANFOKT+8*ENDOKT
  14. 37 [158]P[170]37:[142]:[143] BUFFER LEEREN
  15. 40 [151]P[170]40,AS:[142]:[143] ASPEKTVERHAELTNIS FEST (132/80-1)*256=166 BEI FX
  16. 41 [151]P[170]41,AE:[142]:[143] FLAG FUER ASPEKT: LAHMGELEGT BEI =0
  17. 79 XX%[178]0:YY%[178]0:[141]37:[141]3:[137]2:[143] 'HOME'
  18. 80 [143] SKELETT FUER PLOTTER-TREIBERPROGRAMM
  19. 81 [143]
  20. 82 [143] AUFRUFE SOLLTEN NUR UEBER DIESE SUBROUTINEN ERFOLGEN
  21. 83 [143] RESERVIERTE VARIABLEN: P,XX%,YY%,ZZ$,W1,W3,WG,CS,AS,AE
  22. 84 [143] JE NACH ZEICHENGERAET/COMPUTER FOLGENDE ZEILEN ANPASSEN:
  23. 85 [143] 19,20,40,79,90,91,92
  24. 90 P[178]142[172]256:[139][194](P)[179][177]76[176][194](P[170]3)[179][177]76[167][151]56,142:[156]:[147]"FXPLOT12*",8,1
  25. 91 CS[178]4:[143] NORMALE CHARACTER-GROESSE
  26. 92 X9[178]750:Y9[178]959:[143] MAX. KOORDINATENWERTE
  27. 93 X0[178]0:Y0[178]0:YA[178]Y9[173]([194](P[170]40)[173]256[170]1):[143] MIN. KOORD, MAX. Y BEI ASPEKT
  28. 98 [141]20:[141]30
  29. 99 [143] FOLGT EIGENTLICHES PROGRAMM
  30.