home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 86xx / 8601.d64 / ieee-generator (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  4KB  |  94 lines

  1. 10 POKE45,0:POKE46,113:CLR
  2. 20 PRINT"[147]IEEE-ROM GENERATOR
  3. 30 [153]"C1986 BY MIKE LAMM
  4. 40 PRINT"BITTE WARTEN......
  5. 50 [153]
  6. 60 F$[178]"1541.IEEE-DOS
  7. 70 OPEN15,8,15,"I"
  8. 80 INPUT#15,DS,DS$,T,S,M:IFDSTHENPRINT"DISK-ERROR:"DS;DS$,T,S:GOTO320
  9. 90 C=5*4096
  10. 100 FORI=14*4096TO16*4096-1STEP128
  11. 110 PRINT#15,"M-R"CHR$(I-INT(I/256)*256);CHR$(INT(I/256));CHR$(128)
  12. 120 FORJ=0TO127:GET#15,A$:POKEC,ASC(A$+CHR$(0)):C=C+1:NEXTJ
  13. 130 PRINT"*";
  14. 140 NEXTI:PRINT:PRINT
  15. 150 READA:READB
  16. 160 FORI=ATOA+B-1:READD:POKEI,D:NEXTI
  17. 170 POKE28678,44:POKE28704,142:POKE28705,64:POKE28706,3:SYS7*4096
  18. 180 IFPEEK(832)<>224THENPRINT"?UEBERTRAGUNGSFEHLER":GOTO320
  19. 190 PRINT"OVERLAY GESTARTET"
  20. 200 RESTORE
  21. 210 FORL=1TO10
  22. 220 READA:READB
  23. 230 FORI=ATOA+B-1:READD:POKEI,D:NEXTI,L
  24. 240 POKE23746,8:POKE25253,5:POKE25257,2:POKE25261,20
  25. 250 SYS7*4096
  26. 260 PRINT:INPUT"ABSPEICHERN";A$
  27. 270 IFA$<>"J"THEN320
  28. 280 POKE193,0:POKE194,80:POKE174,0:POKE175,112
  29. 290 L=LEN(F$):FORI=1TOL:POKEI+831,ASC(MID$(F$,I,1)):NEXT
  30. 300 POKE183,L:POKE187,64:POKE188,3
  31. 310 SYS 62954
  32. 320 CLOSE1:CLOSE15:END
  33. 330 REM PRUEFSUMMEN-ROUTINE
  34. 340 DATA 28672,36
  35. 350 DATA162,112,134,35,169,31,141,230,110,169,0,133,34,168,162,32,24,198,35
  36. 360 DATA113,34,200,208,251,202,208,246,105,0,170,73,255,141,230,110,96
  37. 370 REM $E5B7
  38. 380 DATA 21943,4
  39. 390 DATA201,69,67,45
  40. 400 REM $E5C4
  41. 410 DATA 21956,3
  42. 420 DATA50,48,51
  43. 430 REM $E780
  44. 440 DATA 22400,28
  45. 450 DATA96,142,1,24,142,3,24,169,206,141,0,24,169,49,141,2,24,169,104,141,0
  46. 460 DATA28,169,111,141,2,28,96
  47. 470 REM $E860
  48. 480 DATA 22624,526
  49. 490 DATA162,69,154,169,76,13,0,24,41,237,141,0,24,169,0,141,3,24,169,23,141
  50. 500 DATA2,24,169,255,141,1,24,173,0,24,41,251,9,3,141,0,24,44,0,24,80,4,48
  51. 510 DATA249,16,125,169,253,45,0,24,141,0,24,41,8,133,248,173,1,24,73,255,133
  52. 520 DATA150,169,4,13,0,24,141,0,24,160,0,165,150,41,96,201,64,240,41,201,32
  53. 530 DATA240,6,201,96,240,47,208,70,165,150,197,119,240,11,201,63,208,2,132
  54. 540 DATA121,132,123,76,4,233,133,121,132,122,169,32,133,131,133,132,133,123
  55. 550 DATA208,39,132,122,165,150,197,120,208,229,133,122,132,121,240,232,165
  56. 560 DATA123,240,21,165,150,133,132,72,41,15,133,131,104,41,240,201,224,208
  57. 570 DATA5,88,32,192,218,120,44,0,24,80,251,76,124,232,165,121,240,14,169,252
  58. 580 DATA45,0,24,141,0,24,32,50,233,76,231,235,169,250,45,0,24,9,4,141,0,24
  59. 590 DATA165,122,240,3,32,220,233,76,231,235,120,169,2,13,0,24,141,0,24,44,0
  60. 600 DATA24,48,42,112,249,32,7,209,176,5,181,242,106,176,83,165,132,41,240,201
  61. 610 DATA240,240,75,165,131,201,1,240,19,44,0,24,48,11,80,249,169,251,45,0,24
  62. 620 DATA141,0,24,96,76,91,232,120,169,253,45,0,24,141,0,24,169,4,13,0,24,141
  63. 630 DATA0,24,44,0,24,48,231,80,249,173,0,24,41,251,141,0,24,169,2,13,0,24,141
  64. 640 DATA0,24,44,0,24,48,208,80,249,76,109,233,169,253,45,0,24,141,0,24,41,8
  65. 650 DATA133,248,173,1,24,73,255,133,133,120,169,4,13,0,24,141,0,24,44,0,24
  66. 660 DATA48,170,80,249,169,251,45,0,24,141,0,24,88,32,183,207,76,50,233,169
  67. 670 DATA72,13,0,24,141,0,24,76,231,235,120,32,235,208,176,6,166,130,181,242
  68. 680 DATA48,1,96,169,89,141,2,24,169,255,141,3,24,173,0,24,9,16,141,0,24,169
  69. 690 DATA2,44,0,24,48,73,240,249,189,62,2,73,255,141,1,24,181,242,9,183,45,0
  70. 700 DATA24,141,0,24,173,0,24,48,48,41,6,201,6,240,176,41,2,208,241,88,32,170
  71. 710 DATA211,120,169,4,44,0,24,48,26,240,249,169,255,141,1,24,169,72,13,0,24
  72. 720 DATA141,0,24,169,4,44,0,24,48,4,208,249,240,151,76,91,232,173,0,24,9,64
  73. 730 DATA141,0,24,96,169,2,13,0,24,41,254,141,0,24,96,170,170,170,170,170,170
  74. 740 DATA170,170,170,170,170,170
  75. 750 REM $EAA4
  76. 760 DATA 23204,3
  77. 770 DATA32,129,231
  78. 780 REM $EB3D
  79. 790 DATA 23357,14
  80. 800 DATA9,16,141,0,24,32,16,255,234,234,234,234,234,234
  81. 810 REM $EBDA
  82. 820 DATA 23514,22
  83. 830 DATA234,234,234,234,234,234,234,234,234,234,32,128,231,88,234,234,234,234
  84. 840 DATA234,234,234,234
  85. 850 REM $F384
  86. 860 DATA 25476,8
  87. 870 DATA3,133,74,165,34,32,72,255
  88. 880 REM $FF10
  89. 890 DATA 28432,72
  90. 900 DATA173,12,24,9,12,41,253,141,12,24,173,2,24,41,254,141,2,24,173,0,24,41
  91. 910 DATA3,9,72,133,120,73,96,133,119,173,12,24,9,2,141,12,24,173,0,24,41,238
  92. 920 DATA141,0,24,173,2,24,9,1,141,2,24,96,208,2,169,44,41,126,73,254,10,5,74
  93. 930 DATA233,4,133,74,96
  94.