home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / canada-remote-systems / c64 / graphutl / cad.arc / T (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  2.0 KB  |  71 lines
  1. 1 POKE40448,255:FORT=1TO4:READA:POKE828+T,A:NEXT:GOTO28
  2. 2 DATA46,70,73,71
  3. 3 X3=X2+X1:Y3=Y2+Y1:IF(X3<0)OR(X3>319)OR(Y3<0)OR(Y3>199)THENRETURN
  4. 4 A=USR(64),X3,Y3:RETURN
  5. 5 X3=X1+Y2:Y3=Y1-X2:IF(X3<0)OR(X3>319)OR(Y3<0)OR(Y3>199)THENRETURN
  6. 6 A=USR(64),X3,Y3:RETURN
  7. 7 X3=X1-X2:Y3=Y1-Y2:IF(X3<0)OR(X3>319)OR(Y3<0)OR(Y3>199)THENRETURN
  8. 8 A=USR(64),X3,Y3:RETURN
  9. 9 X3=X1-Y2:Y3=Y1+X2:IF(X3<0)OR(X3>319)OR(Y3<0)OR(Y3>199)THENRETURN
  10. 10 A=USR(64),X3,Y3:RETURN
  11. 11 X=X+USR(121):Y=Y-USR(122)
  12. 12 IFX>331THENX=X-320
  13. 13 IFX<12THENX=X+320
  14. 14 IFY>239THENY=Y-200
  15. 15 IFY<40THENY=Y+200
  16. 16 A=USR(34),X,Y,0:A=USR(34),16,Y,6:A=USR(34),X,231,7:RETURN
  17. 17 OPEN15,D0,15,"I0"
  18. 18 CLOSE15:RETURN
  19. 19 A=USR(117):IFA<>16THENRETURN
  20. 20 X1=X-12:Y1=Y-40:A=USR(34),X,Y,1:A=USR(32),1
  21. 21 A=USR(117):IFA<>0THEN21
  22. 22 GOSUB11:A=USR(117):IFA<>16THEN22
  23. 23 X2=X-12:Y2=Y-40:A=USR(34),X,Y,2:A=USR(32),2
  24. 24 A=USR(117):IFA<>0THEN24
  25. 25 IFY1>Y2THENX3=X2:X2=X1:X1=X3:Y3=Y2:Y2=Y1:Y1=Y3
  26. 26 A=USR(33),0:A=USR(33),1:A=USR(33),2
  27. 27 FORB=Y1TOY2:A=USR(67),X1,B,X2,B:NEXT:A=USR(32),0:RETURN
  28. 28 A=USR(33),0:A=USR(34),0,Y,6:A=USR(34),X,255,7:A=USR(0),0,1,4
  29. 29 A=USR(21):A=USR(17):A=USR(19):A=USR(1)
  30. 30 GOSUB17:PRINTCHR$(14)"[147]":IFD0=D1THENPRINT"[201]NSERT FILE DISK AND
  31. 31 [153]"(null)RESS A KEY."
  32. 32 [161]A$:[139]A$[178]""[167]32
  33. 33 [133]"LENHARACTER SPACING (PIXELS) ";SP:SP[178]SP[170]1
  34. 34 [153]"LOAD":A[178][183](0),1,7,14:A[178][183](1):A[178][183](16):[141]17
  35. 35 R[178]1:T[178]18:A[178][183](39),0,18:A[178][183](32),0
  36. 36 [141]19:[141]11:[161]A$:[139]A$[178]""[167]36
  37. 37 [139]A$[178]" "[167]47
  38. 38 [139]A$[178]"\"[167]R[178]R[170]1:T[178]T[170]1:[139]R[178]5[167]R[178]1:T[178]18
  39. 39 [139]A$[178]"\"[167]A[178][183](39),0,T:[137]36
  40. 40 [139]A$[178]""[167][158]36885:[137]36
  41. 41 [139]A$[178][199](13)[167]59
  42. 42 [139]A$[178]"!"[167][158]36867:[137]36
  43. 43 [139]A$[178]"$"[176]A$[178][199](34)[167]36
  44. 44 [139]A$[178]"*"[167]28
  45. 45 [159]15,D1,15,"I0":[151]828,[198](A$):[151]40448,255:[158]36903
  46. 46 [132]15,E:[139]E[179][177]0[167][152]15,"I0":[160]15:[137]36
  47. 47 [160]15:[158]36864:X1[178]X[171]12:Y1[178]Y[171]40:D[178]0:FR[178]40448:XM[178]0
  48. 48 X2[178][194](FR[170]D):Y2[178][194](FR[170]D[170]1)
  49. 49 [139](X2[177]254)[176](Y2[177]254)[167][145]R[137]55,56,57,58
  50. 50 [139]X2[177]127[167]X2[178][171](X2[175]127)
  51. 51 [139]Y2[177]127[167]Y2[178][171](Y2[175]127)
  52. 52 [139]X2[177]XM[167]XM[178]X2
  53. 53 [145]R[141]3,5,7,9
  54. 54 D[178]D[170]2:[137]48
  55. 55 X[178]X[170]XM[170]SP:[137]36
  56. 56 Y[178]Y[171]XM[171]SP:[137]36
  57. 57 X[178]X[171]XM[171]SP:[137]36
  58. 58 Y[178]Y[170]XM[170]SP:[137]36
  59. 59 A[178][183](33),0:A[178][183](34),0,Y,6:A[178][183](34),X,255,7:A[178][183](0),0,1,4
  60. 60 A[178][183](1):A[178][183](17):A[178][183](19):A[178][183](21):[141]17
  61. 61 [153][199](14)"LOAD":[139]D0[178]D1[167][153]"RIGHT$NSERT (null)ROGRAM DISK AND"
  62. 62 [153]"(null)RESS A KEY."
  63. 63 [161]A$:[139]A$[178]""[167]63
  64. 64 [159]15,D0,15,"I0"
  65. 65 [159]2,D0,2,"CMND,P,R"
  66. 66 [160]2:[161]#15,E
  67. 67 [160]15
  68. 68 [139]E[179][177]0[167][153]"(null)ROGRAM DISK NOT PRESENT.":[137]63
  69. 69 [153]"LOAD":A[178][183](0),1,7,14:A[178][183](1):A[178][183](16):A[178][183](39),0,16:[141]17
  70. 70 [147]"CMND",D0
  71.