home *** CD-ROM | disk | FTP | other *** search
/ Carousel Volume 2 #1 / carousel.iso / comdore / 64apps / cad30.arc / F (.txt) < prev    next >
Commodore BASIC  |  1988-11-13  |  2KB  |  52 lines
  1. 1 POKE40448,255:FORT=1TO4:READA:POKE828+T,A:NEXT:GOTO16
  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):IF(A<>16)ORF=0THENRETURN
  12. 12 IFPEEK(O-5)=1THENC=1:GOTO37
  13. 13 SYS36864:POKEO-3,0:IFX>267THENPOKEO-3,1:POKEO-2,X-268:GOTO15
  14. 14 POKEO-2,X-12
  15. 15 POKEO-4,Y-40:POKEO-5,1:SYSO:RETURN
  16. 16 A=USR(33),0:A=USR(34),0,Y,6:A=USR(34),X,255,7:A=USR(0),0,1,4
  17. 17 A=USR(21):A=USR(17):A=USR(19):A=USR(1):O=3600:F=0:C=0
  18. 18 GOSUB9:PRINTCHR$(14)"[147][198]ILE DISK IS IN DRIVE:  ";D1;
  19. 19 GETA$:IFA$=""THEN19
  20. 20 IF(D1=8)AND(A$="9")THEND1=9:POKE36863,D1
  21. 21 IF(D1=9)AND(A$="8")THEND1=8:POKE36863,D1
  22. 22 PRINT"[157][157]";D1
  23. 23 PRINT"[147]":A=USR(0),1,7,14:A=USR(1):A=USR(16):GOSUB9
  24. 24 R=1:T=18:POKEO-1,R:A=USR(39),0,18:A=USR(32),0
  25. 25 GOSUB11:GOSUB3:GETA$:IFA$=""THEN25
  26. 26 IFA$="\"THENR=R+1:T=T+1:IFR=5THENR=1:T=18
  27. 27 IFA$="\"THENA=USR(39),0,T:POKEO-1,R:GOTO25
  28. 28 IFA$=""THENSYS36885:GOTO25
  29. 29 IFA$=CHR$(13)THEN40
  30. 30 IFA$="!"THENSYS36867:GOTO25
  31. 31 IFA$="$"ORA$=CHR$(34)THEN25
  32. 32 POKE828,ASC(A$)
  33. 33 POKE40448,255
  34. 34 SYS36903
  35. 35 OPEN15,D1,15,"UI:"
  36. 36 CLOSE15
  37. 37 F=1:POKEO-2,12:POKEO-3,0:POKEO-4,10:POKEO-5,0:SYSO
  38. 38 IFC=1THENC=0:RETURN
  39. 39 GOTO25
  40. 40 A=USR(33),0:A=USR(34),0,Y,6:A=USR(34),X,255,7:A=USR(0),0,1,4
  41. 41 A=USR(1):A=USR(17):A=USR(19):A=USR(21):GOSUB9
  42. 42 PRINT"[147]"CHR$(14);:IFD0=D1THENPRINT"[201]NSERT [208]ROGRAM DISK AND"
  43. 43 PRINT"[208]RESS A KEY."
  44. 44 GETA$:IFA$=""THEN44
  45. 45 OPEN15,D0,15,"UI:"
  46. 46 OPEN2,D0,2,"CMND,P,R"
  47. 47 CLOSE2:GET#15,E
  48. 48 CLOSE15
  49. 49 IFE<>0THENPRINT"[208]ROGRAM DISK NOT PRESENT.":GOTO44
  50. 50 PRINT"[147]":A=USR(0),1,7,14:A=USR(1):A=USR(16):A=USR(39),0,16:GOSUB9
  51. 51 LOAD"CMND",D0
  52.