home *** CD-ROM | disk | FTP | other *** search
/ Carousel Volume 2 #1 / carousel.iso / comdore / 64apps / cad30.arc / U (.txt) < prev    next >
Commodore BASIC  |  1988-11-13  |  923b  |  32 lines

  1. 1 FORT=0TO3:A=USR(33),T:NEXT
  2. 2 X1=24:X2=256:Y1=50:Y2=221
  3. 3 A=USR(39),0,35:A=USR(39),1,36:A=USR(39),2,37:A=USR(39),3,38
  4. 4 A=USR(34),X1,Y1,0:A=USR(34),X2,Y1,1:A=USR(34),X1,Y2,2:A=USR(34),X2,Y2,3
  5. 5 FORT=0TO3:A=USR(32),T:NEXT
  6. 6 GETA$:IFA$=""THEN11
  7. 7 IFA$="!"THENSYS36867:GOTO6
  8. 8 IFA$="="THENSYS36882:GOTO6
  9. 9 IFA$="&"THENSYS36879:GOTO6
  10. 10 GOTO28
  11. 11 X1=X1+USR(121)*8
  12. 12 Y1=Y1-USR(122)*8
  13. 13 IFX1<24THENX1=24
  14. 14 IFX1>88THENX1=88
  15. 15 IFY1<50THENY1=50
  16. 16 IFY1>58THENY1=58
  17. 17 X2=X1+232:Y2=Y1+171
  18. 18 A=USR(34),X1,Y1,0:A=USR(34),X2,Y1,1:A=USR(34),X1,Y2,2:A=USR(34),X2,Y2,3
  19. 19 A=USR(117):IFA<>16THEN6
  20. 20 FORT=0TO3:A=USR(33),T:NEXT
  21. 21 A=USR(34),0,Y,6:A=USR(34),X,255,7
  22. 22 X2=X1-25:X3=X1+232:Y2=Y1-51:Y3=Y1+142
  23. 23 IFX2>0THENA=USR(66),X2,Y2+1,X2,Y3-1
  24. 24 IFX3<319THENA=USR(66),X3,Y2+1,X3,Y3-1
  25. 25 IFY2>0THENA=USR(66),X2+1,Y2,X3-1,Y2
  26. 26 IFY3<199THENA=USR(66),X2+1,Y3,X3-1,Y3
  27. 27 GETA$:IFA$=""THEN27
  28. 28 FORT=0TO3:A=USR(33),T:NEXT
  29. 29 A=USR(39),0,16:A=USR(39),1,17:A=USR(39),2,17:A=USR(39),3,17
  30. 30 A=USR(34),8,Y,6:A=USR(34),X,231,7:LOAD"CMND",D0
  31. 31 OPEN15,D0,15,"UI:":CLOSE15:RETURN
  32.