home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 89xx / 8902c.d64 / gen (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  2KB  |  61 lines
  1. 10 IFLO=0THENLO=1:LOAD"BASROU1.OBJ",8,1
  2. 20 IFLO=1THENLO=2:LOAD"E1.8.OBJ",8,1
  3. 30 :
  4. 40 REM *******************************
  5. 50 REM *                             *
  6. 60 REM *   INTERNAL ROM GENERATOR    *
  7. 70 REM *                             *
  8. 80 REM *       BY  JUERGEN BOHL      *
  9. 90 REM *       AND BERNHARD KROENUNG *
  10. 100 REM *                             *
  11. 110 REM *******************************
  12. 120 :
  13. 130 POKE53280,0:POKE53281,0:PRINT"[155]";CHR$(14);CHR$(8)
  14. 140 F=65280:L=33280
  15. 150 PRINT"[147][198]REI [194]YTES :";RIGHT$("       "+STR$(F-L),6);TAB(18);
  16. 160 PRINT" [221] [208]ROGRAMMANZAHL:";AN
  17. 170 PRINT"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]";
  18. 180 IFAN=0THEN270
  19. 190 IFAN=15THEN240
  20. 200 PRINT"WEITERE PROGRAMME EINLADEN <J/N>"
  21. 210 POKE198,0:WAIT198,1:GETA$
  22. 220 IFA$="J"THENPRINT"[145]                                        ":GOTO270
  23. 230 IFA$<>"N"THEN210
  24. 240 INPUT"NAME DES FILES";NA$:POKE32808,AN
  25. 250 SYS828,NA$
  26. 260 END
  27. 270 INPUT"[208]ROGRAMMNAME";P$
  28. 280 IFLEN(P$)>16THEN150
  29. 290 PRINT"        <<< [196]ISKETTE EINLEGEN >>>"
  30. 300 POKE198,0:WAIT198,1:POKE198,0
  31. 310 PRINT"[145]                                        [145][145][145]"
  32. 320 SYS915,P$,L
  33. 330 IFPEEK(2)=0THEN360
  34. 340 PRINT"[154][211]ORRY, [208]ROGRAMM ZU LANG !!![155]":POKE198,0:WAIT198,1:POKE198,0
  35. 350 GOTO150
  36. 360 L1=PEEK(253)+PEEK(254)*256+1
  37. 370 OPEN1,8,15:INPUT#1,A,B$,C,D:CLOSE1
  38. 380 PRINT"[154]";A;B$;C;D;"[155]";
  39. 390 IFA<>0THENPOKE198,0:WAIT198,1:POKE198,0:GOTO150
  40. 400 INPUT"ZIELADRESSE";Z$
  41. 410 IFLEN(Z$)>5THEN400
  42. 420 Z=VAL(Z$):IFLEFT$(Z$,1)="$"THENGOSUB560:Z=A1
  43. 430 POKE33218+AN*2,Z-INT(Z/256)*256:POKE33219+AN*2,Z/256
  44. 440 POKE33248+AN*2,L1-L+Z+1-INT((L1-L+Z+1)/256)*256
  45. 450 POKE33249+AN*2,(L1-L+Z)/256
  46. 460 POKE33173+AN*2,L-INT(L/256)*256:POKE33174+AN*2,L/256
  47. 470 POKE33203+AN,(L1-L)/256+(Z/256)+4
  48. 480 INPUT"STARTADRESSE";A$
  49. 490 SM=0:IFA$="RUN"THENSM=255
  50. 500 IFLEN(A$)>5THENPRINT"[145][145][145][145]":GOTO480
  51. 510 J=VAL(A$):IFLEFT$(A$,1)="$"THENGOSUB560:J=A1
  52. 520 POKE33128+AN,SM
  53. 530 IFSM=0THENPOKE33143+AN*2,J-INT(J/256)*256:POKE33144+AN*2,J/256
  54. 540 L=L1:AN=AN+1
  55. 550 GOTO150
  56. 560 A1=0:FORI=3TO0STEP-1
  57. 570 A=VAL(MID$(Z$,5-I,1))
  58. 580 IFASC(MID$(Z$,5-I,1))>64THENA=ASC(MID$(Z$,5-I,1))-55
  59. 590 A1=A1+A*16^I
  60. 600 NEXT:RETURN
  61.