home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / s85xx / s8501.d64 / worktool (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  4KB  |  125 lines
  1. 0 REMWORKTOOL
  2. 1 REMULRICH GROTHAUS
  3. 2 REMFALLWEG 18
  4. 3 REM8450 AMBERG
  5. 4 :
  6. 5 :
  7. 10 REM --------------------------------
  8. 20 REM      ABFRAGE DER OPTIONSWERTE
  9. 30 REM --------------------------------
  10. 40 :
  11. 50 :
  12. 60 RESTORE:POKE 53280,0:POKE53281,0
  13. 70 PRINTCHR$(147):POKE646,5:PRINT"***************WORKTOOL*****************"
  14. 80 POKE646,7:PRINTTAB(8)"VON ULRICH GROTHAUS"
  15. 90 POKE646,15:PRINT:PRINT:PRINT:PRINT"OPTIONS:";,:POKE646,10
  16. 100 PRINT"F1=FARBE SETZEN":PRINT,"F3=ZEIT AUSGEBEN":PRINT,"F5=WARNTON EIN"
  17. 110 PRINT,"F7=WARNTON AUS":PRINT:PRINT:POKE646,14
  18. 120 INPUT"FARBCODE RAHMEN";R
  19. 130 INPUT"FARBCODE GRUND";G
  20. 140 INPUT"FARBCODE CURSOR";C
  21. 150 :
  22. 160 :
  23. 170 REM -------------------------------
  24. 180 REM WERTUEBERGABE MASCHINENPROGRAMM
  25. 190 REM -------------------------------
  26. 200 :
  27. 210 :
  28. 220 POKE49425,R:POKE49426,G:POKE49427,C
  29. 230 PRINT:PRINTTAB(7);"HHMMSS":PRINTCHR$(145);:INPUT"ZEIT ";Z$
  30. 240 DEF FNF(X)=INT(X/10)*16+(X-INT(X/10)*10)
  31. 250 H=VAL(LEFT$(Z$,2)):M=VAL(MID$(Z$,3,2)):S=VAL(RIGHT$(Z$,2))
  32. 260 POKE56335,PEEK(56335)AND127
  33. 270 POKE56329,FNF(S):POKE56330,FNF(M):POKE56331,FNF(H):POKE56328,0
  34. 280 POKE56334,PEEK(56334)OR128
  35. 290 :
  36. 300 :
  37. 310 REM -------------------------------
  38. 320 REM       EINLESEN DER DATEN
  39. 330 REM -------------------------------
  40. 340 :
  41. 350 :
  42. 360 GOSUB 720
  43. 370 FORT=1TO4:SYS36500:NEXT
  44. 380 FORT=1TO40:PRINT:NEXT
  45. 390 POKE646,13:PRINT"DAS  EINLESEN  DES MASCHINENPROGRAMMES DAUERT 15 SEKUNDEN"
  46. 400 GOSUB 800
  47. 410 FORT=1TO4:SYS36500:NEXT
  48. 420 :
  49. 430 :
  50. 440 REM ------------------------------
  51. 450 REM      BENUTZERHINWEISE
  52. 460 REM ------------------------------
  53. 470 :
  54. 480 :
  55. 490 POKE792,193:PRINTCHR$(147):POKE646,7
  56. 500 PRINT"AUS PROGRAMMTECHNISCHEN GRUENDEN IST DER NMI-INTERRUPT";:POKE646,7
  57. 510 PRINT" AUSGESCHALTET(ZEILE 490)."
  58. 520 PRINT"DAS WORKTOOL LIEGT BEI 49152."
  59. 530 PRINT"ES SIND 38911 BYTES BASIC-RAM FREE."
  60. 540 POKE53280,0:POKE646,3:PRINT"KANN ICH MICH LOESCHEN (J/N)[160]?"
  61. 550 FORT=1TO11:GETN$:NEXT
  62. 560 GETA$:IFA$=""THEN560
  63. 570 IFA$="N"THENGOTO60
  64. 580 :
  65. 590 :
  66. 600 REM -------------------------------
  67. 610 REM    LOESCHEN DES BASICTEILS
  68. 620 REM   START DER TOOL-IRQ ROUTINE
  69. 630 REM -------------------------------
  70. 640 :
  71. 650 :
  72. 660 POKE53280,PEEK(49425):POKE53281,PEEK(49426):POKE646,PEEK(49427)
  73. 670 PRINTCHR$(147);"****************[209]WORKTOOL[209]**************"
  74. 680 PRINT"       -----38634 BYTES FREE----":PRINT
  75. 690 PRINT"*************1984 BY GROTO**************"
  76. 700 GETA$:IFA$=""THEN700
  77. 710 PRINTCHR$(147):FORT=2048TO2060:POKET,0:NEXT:POKE45,3:POKE46,8:SYS49152:END
  78. 720 PS=0:FORAD= 36500 TO 36519 :READDA$
  79. 730 L=ASC(LEFT$(DA$,1))-48:R=ASC(RIGHT$(DA$,1))-48
  80. 740 PO=(L+(L>9)*7)*16+R+(R>9)*7:POKEAD,PO:PS=PS+PO:NEXT
  81. 750 IFPS<> 2456 THENPRINT"[147]PRUEFSUMMENFEHLER IM 1. DATABLOCK.":END
  82. 760 RETURN
  83. 770 DATAA0,00,A2,00,8E,20,D0,E8
  84. 780 DATAF0,03,4C,98,8E,C8,F0,03
  85. 790 DATA4C,96,8E,60
  86. 800 PS=0:FORAD= 49152 TO 49420 :READDA$
  87. 810 L=ASC(LEFT$(DA$,1))-48:R=ASC(RIGHT$(DA$,1))-48
  88. 820 PO=(L+(L>9)*7)*16+R+(R>9)*7:POKEAD,PO:PS=PS+PO:NEXT
  89. 830 IFPS<> 32697 THENPRINT"[147]PRUEFSUMMENFEHLER IM 2. DATABLOCK.":END
  90. 840 RETURN
  91. 850 DATAEA,78,A9,0E,8D,14,03,A9
  92. 860 DATAC0,8D,15,03,58,60,8D,04
  93. 870 DATAD4,EA,A9,04,C5,C5,F0,28
  94. 880 DATAA9,05,C5,C5,F0,39,A9,06
  95. 890 DATAC5,C5,D0,03,8D,10,C1,A9
  96. 900 DATA03,C5,C5,D0,03,8D,10,C1
  97. 910 DATAAD,10,C1,C9,06,F0,5A,4C
  98. 920 DATA31,EA,60,00,EA,EA,EA,EA
  99. 930 DATAAD,11,C1,8D,20,D0,AD,12
  100. 940 DATAC1,8D,21,D0,AD,13,C1,8D
  101. 950 DATA86,02,4C,18,C0,EA,EA,AD
  102. 960 DATA0B,DC,29,7F,A2,10,20,78
  103. 970 DATAC0,AD,0A,DC,A2,13,20,78
  104. 980 DATAC0,AD,09,DC,A2,16,20,78
  105. 990 DATAC0,AD,08,DC,4C,31,EA,00
  106. 1000 DATA48,29,F0,4A,4A,4A,4A,18
  107. 1010 DATA69,B0,9D,00,04,68,29,0F
  108. 1020 DATA18,69,B0,9D,01,04,60,EA
  109. 1030 DATAEA,A5,D3,C9,23,F0,11,A5
  110. 1040 DATAD3,C9,46,F0,2F,A5,D3,C9
  111. 1050 DATA4F,F0,4D,4C,31,EA,60,00
  112. 1060 DATAEA,EA,EA,A9,06,8D,00,D4
  113. 1070 DATAA9,78,8D,01,D4,A9,0A,8D
  114. 1080 DATA18,D4,A9,33,8D,05,D4,A9
  115. 1090 DATA00,8D,06,D4,A9,11,8D,04
  116. 1100 DATAD4,4C,31,EA,EA,EA,EA,A9
  117. 1110 DATA06,8D,00,D4,A9,32,8D,01
  118. 1120 DATAD4,A9,0A,8D,18,D4,A9,63
  119. 1130 DATA8D,05,D4,A9,00,8D,06,D4
  120. 1140 DATAA9,21,8D,04,D4,4C,31,EA
  121. 1150 DATAA9,01,8D,03,D4,A9,0F,8D
  122. 1160 DATA18,D4,A9,FF,8D,06,D4,A9
  123. 1170 DATA00,8D,05,D4,A9,41,8D,04
  124. 1180 DATAD4,4C,31,EA,00
  125.