home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / canada-remote-systems / c64 / graphutl / cad.arc / F (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  1.9 KB  |  67 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=12
  13. 13 IFX<12THENX=331
  14. 14 IFY>239THENY=40
  15. 15 IFY<40THENY=239
  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][198]ILE DISK IS IN DRIVE: ";D1;
  31. 31 GETA$:IFA$=""THEN31
  32. 32 IF(D1=8)AND(A$="9")THEND1=9:POKE36863,D1
  33. 33 IF(D1=9)AND(A$="8")THEND1=8:POKE36863,D1
  34. 34 PRINT"[157][157]";D1
  35. 35 PRINT"[147]":A=USR(0),1,7,14:A=USR(1):A=USR(16):GOSUB17
  36. 36 R=1:T=18:A=USR(39),0,18:A=USR(32),0
  37. 37 GOSUB19:GOSUB11:GETA$:IFA$=""THEN37
  38. 38 IFA$=" "THEN48
  39. 39 IFA$="\"THENR=R+1:T=T+1:IFR=5THENR=1:T=18
  40. 40 IFA$="\"THENA=USR(39),0,T:GOTO37
  41. 41 IFA$=""THENSYS36885:GOTO37
  42. 42 IFA$=CHR$(13)THEN55
  43. 43 IFA$="!"THENSYS36867:GOTO37
  44. 44 IFA$="$"ORA$=CHR$(34)THEN37
  45. 45 IFA$="*"THEN28
  46. 46 OPEN15,D1,15,"I0":POKE828,ASC(A$):POKE40448,255:SYS36903
  47. 47 INPUT#15,E:IFE<>0THENPRINT#15,"I0":CLOSE15:GOTO37
  48. 48 CLOSE15:SYS36864:X1=X-12:Y1=Y-40:D=0:FR=40448
  49. 49 X2=PEEK(FR+D):Y2=PEEK(FR+D+1)
  50. 50 IF(X2>254)OR(Y2>254)THEN37
  51. 51 IFX2>127THENX2=-(X2AND127)
  52. 52 IFY2>127THENY2=-(Y2AND127)
  53. 53 ONRGOSUB3,5,7,9
  54. 54 D=D+2:GOTO49
  55. 55 A=USR(33),0:A=USR(34),0,Y,6:A=USR(34),X,255,7:A=USR(0),0,1,4
  56. 56 A=USR(1):A=USR(17):A=USR(19):A=USR(21):GOSUB17
  57. 57 PRINT"[147]"CHR$(14);:IFD0=D1THENPRINT"[201]NSERT [208]ROGRAM DISK AND"
  58. 58 PRINT"[208]RESS A KEY."
  59. 59 GETA$:IFA$=""THEN59
  60. 60 OPEN15,D0,15,"I0"
  61. 61 OPEN2,D0,2,"CMND,P,R"
  62. 62 CLOSE2:GET#15,E
  63. 63 CLOSE15
  64. 64 IFE<>0THENPRINT"[208]ROGRAM DISK NOT PRESENT.":GOTO59
  65. 65 PRINT"[147]":A=USR(0),1,7,14:A=USR(1):A=USR(16):A=USR(39),0,16:GOSUB17
  66. 66 LOAD"CMND",D0
  67.