home *** CD-ROM | disk | FTP | other *** search
/ Carousel Volume 2 #1 / carousel.iso / comdore / 64apps / cad30.arc / T (.txt) < prev    next >
Commodore BASIC  |  1988-11-13  |  3KB  |  71 lines
  1. 1 POKE40448,255:FORT=1TO4:READA:POKE828+T,A:NEXT:GOTO20
  2. 2 DATA46,70,73,71
  3. 3 X=X+USR(121):Y=Y-USR(122)
  4. 4 IFX>331THENX=X-320
  5. 5 IFX<12THENX=X+320
  6. 6 IFY>239THENY=Y-200
  7. 7 IFY<40THENY=Y+200
  8. 8 A=USR(34),X,Y,0:A=USR(34),16,Y,6:A=USR(34),X,231,7:RETURN
  9. 9 OPEN15,D0,15,"UI:"
  10. 10 CLOSE15:RETURN
  11. 11 A=USR(117):IFA<>16THENRETURN
  12. 12 X1=X-12:Y1=Y-40:A=USR(34),X,Y,1:A=USR(32),1
  13. 13 A=USR(117):IFA<>0THEN13
  14. 14 GOSUB3:A=USR(117):IFA<>16THEN14
  15. 15 X2=X-12:Y2=Y-40:A=USR(34),X,Y,2:A=USR(32),2
  16. 16 A=USR(117):IFA<>0THEN16
  17. 17 IFY1>Y2THENX3=X2:X2=X1:X1=X3:Y3=Y2:Y2=Y1:Y1=Y3
  18. 18 A=USR(33),0:A=USR(33),1:A=USR(33),2
  19. 19 FORB=Y1TOY2:A=USR(67),X1,B,X2,B:NEXT:A=USR(32),0:RETURN
  20. 20 A=USR(33),0:A=USR(34),0,Y,6:A=USR(34),X,255,7:A=USR(0),0,1,4
  21. 21 A=USR(21):A=USR(17):A=USR(19):A=USR(1):O=4210
  22. 22 GOSUB9:PRINTCHR$(14)"[147][198]ILE DISK IS IN DRIVE: ";D1;
  23. 23 GETA$:IFA$=""THEN23
  24. 24 IF(D1=8)AND(A$="9")THEND1=9:POKE36863,D1
  25. 25 IF(D1=9)AND(A$="8")THEND1=8:POKE36863,D1
  26. 26 PRINT"[157][157]";D1
  27. 27 INPUT"[195]HARACTER SPACING (PIXELS) ";SP:SP=SP+1
  28. 28 INPUT"[204]INE SPACING               ";LP
  29. 29 PRINT"[147]":A=USR(0),1,7,14:A=USR(1):A=USR(16):GOSUB9
  30. 30 XP=X:YP=Y:F=0:R=4:T=18:A=USR(39),0,18:A=USR(32),0
  31. 31 FORI=1TO4:YM(I)=0:NEXT:A$="\":GOTO33
  32. 32 GOSUB11:GOSUB3:GETA$:IFA$=""THEN32
  33. 33 IFA$=B$THEN51
  34. 34 IFA$=" "THENF=1:XM=2*SP:GOTO54
  35. 35 IFA$="\"THENYM(R)=0:R=R+1:T=T+1:IFR=5THENR=1:T=18
  36. 36 IFA$="\"THENA=USR(39),0,T:YM(R)=LP:POKEO-1,R:GOTO32
  37. 37 IFA$=CHR$(17)THENX=X+YM(2)-YM(4):Y=Y+YM(1)-YM(3):GOTO32
  38. 38 IFA$=CHR$(145)THENX=X-YM(2)+YM(4):Y=Y-YM(1)+YM(3):GOTO32
  39. 39 IFA$=CHR$(20)THENX=XP:Y=YP:IFF=0THENSYS36885
  40. 40 IFA$=CHR$(20)THEN32
  41. 41 IFA$=CHR$(13)THEN59
  42. 42 IFA$="!"THENSYS36867:GOTO32
  43. 43 IFA$=CHR$(141)THEN20
  44. 44 IFA$="$"ORA$=CHR$(34)THEN32
  45. 45 B$=A$
  46. 46 POKE828,ASC(A$)
  47. 47 POKE40448,255
  48. 48 SYS36903
  49. 49 OPEN15,D1,15,"UI:"
  50. 50 CLOSE15
  51. 51 SYS36864:POKEO-3,0:IFX-12>255THENPOKEO-3,1:POKEO-2,X-268:GOTO53
  52. 52 POKEO-2,X-12
  53. 53 POKEO-4,Y-40:F=0:SYSO:XM=PEEK(O-5)
  54. 54 XP=X:YP=Y:ONRGOTO55,56,57,58
  55. 55 X=X+XM+SP:GOTO32
  56. 56 Y=Y-XM-SP:GOTO32
  57. 57 X=X-XM-SP:GOTO32
  58. 58 Y=Y+XM+SP:GOTO32
  59. 59 A=USR(33),0:A=USR(34),0,Y,6:A=USR(34),X,255,7:A=USR(0),0,1,4
  60. 60 A=USR(1):A=USR(17):A=USR(19):A=USR(21):GOSUB9
  61. 61 PRINT"[147]"CHR$(14);:IFD0=D1THENPRINT"[201]NSERT [208]ROGRAM DISK AND"
  62. 62 PRINT"[208]RESS A KEY"
  63. 63 GETA$:IFA$=""THEN63
  64. 64 OPEN15,D0,15,"UI:"
  65. 65 OPEN2,D0,2,"CMND,P,R"
  66. 66 CLOSE2:GET#15,E
  67. 67 CLOSE15
  68. 68 IFE<>0THENPRINT"[208]ROGRAM DISK NOT PRESENT.":GOTO63
  69. 69 PRINT"[147]":A=USR(0),1,7,14:A=USR(1):A=USR(16):A=USR(39),0,16:GOSUB9
  70. 70 LOAD"CMND",D0
  71.