home *** CD-ROM | disk | FTP | other *** search
/ C64'er / C64'er.iso / 87xx / 8703a.d64 / inst-packer (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  3KB  |  69 lines
  1. 10 DIMTYP$(5):DIMDU$(5)
  2. 20 TYP$(1)="NORMAL"
  3. 30 TYP$(2)="CENTRONIC":DU$(2)="CEN"
  4. 40 TYP$(3)="MPS801":DU$(3)="UMLAUT1"
  5. 50 TYP$(4)="MPS802":DU$(4)="UMLAUT2"
  6. 60 TYP$(5)="INDIVIDUELL":DU$(5)="INDI"
  7. 70 GOSUB80:GOTO110
  8. 80 PRINT"[147][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]";
  9. 90 PRINT"[221][146]     +  [205][160][193][160][211][160][212][160][197][160][210][160]-[160][212][160][197][160][216][160][212]   +     [152][221]";
  10. 100 PRINT"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189][146]":RETURN
  11. 110 PRINT"     [196][160][210][160][213][160][195][160][203][160][197][160][210][160][193][160][213][160][211][160][215][160][193][160][200][160][204]        [146]"
  12. 120 PRINT"1) [206][207][210][205][193][204] [201][197][195]-[194]US + [210][211]232  ([193][211][195][201][201])"
  13. 130 PRINT"2) [195][197][206][212][210][207][206][201][195]  ([193][211][195][201][201])          "
  14. 140 PRINT"3) [205][208][211]801 + [214][195]1525  ([195][194][205])          "
  15. 150 PRINT"4) [205][208][211]802 + [214][195]1526  ([195][194][205])  "
  16. 160 PRINT"5) [201][206][196][201][214][201][196][213][197][204][204]"
  17. 170 PRINT"[215]AEHLEN [211]IE ? ";
  18. 180 POKE198,0:WAIT198,1:GETX$
  19. 190 IFASC(X$)<49ORASC(X$)>53THEN180
  20. 200 TYP=VAL(X$)
  21. 202 GOSUB80:PRINT"[211]OLL DIE [194]ILDSCHIRM-[198]ARBE IM 80 [218]-[205]ODUS GEAENDERT WERDEN <J/N>"
  22. 203 WAIT198,1:GETFB$
  23. 204 IFFB$<>"J"THEN500
  24. 205 PRINT" [198]ARBWAHL! ":INPUT" [200]INTERGRUNDFARBE :";HF
  25. 206 INPUT" VORDERGRUNDFARBE :";VF
  26. 500 GOSUB80:PRINT"[196]ER [194]ASIC-[211]TART WIRD GENERIERT"
  27. 520 PRINT"DIE [208]ROGRAMMTEILE WERDEN NACHGELADEN!"
  28. 540 GOSUB1000:Z=2053
  29. 560 A=231:B=8:N$="T1":L=17+2279:GOSUB900:T3=C
  30. 580 N$="T3":L=997+C:GOSUB900
  31. 582 IFFB$="J"THENPOKET3+822,16*VF+HF
  32. 600 N$="T5":L=510+C:GOSUB900
  33. 620 N$="T4":L=2783+C:GOSUB900
  34. 640 N$="ZEICHENSATZ":L=4096+C:GOSUB900
  35. 660 N$="T2":L=7396+C:GOSUB900
  36. 680 N$=TYP$(TYP):L=768+C:GOSUB900
  37. 700 N$="FORMULAR*":L=249+C:GOSUB900
  38. 720 IFTYP=1THENFORI=2214TO2234:POKEI,234:NEXT:GOTO780
  39. 740 N$=DU$(TYP):L=C:GOSUB900:POKEZ+4,A:POKEZ+9,B:ZE=C-L+39424
  40. 760 ZE%=ZE/256:POKEZ+13,ZE%:POKEZ+11,ZE-(ZE%*256)
  41. 780 GOSUB80:PRINT"P[207]44,8:P[207]45,P[197](174):P[207]46,P[197](175)"
  42. 800 PRINT"[196]AS [208]ROGRAMM '"TYP$(TYP)"' KANN JETZT"
  43. 820 PRINT"WIE EIN [194]ASIC-[208]ROGRAMM BEHANDELT WERDEN"
  44. 840 PRINT"[193]UF [196]ISK ODER [203]ASSETTE ABSPEICHERN,"
  45. 860 PRINT"ODER MIT '[210][213][206]' STARTEN!"
  46. 880 POKE631,19:POKE632,17:POKE633,17:POKE634,17:POKE635,17:POKE636,13:POKE198,6
  47. 890 END
  48. 900 Z=Z+18:POKEZ,A:POKEZ+2,B
  49. 910 PRINT"  "N$" NACH "B*256+A
  50. 920 SYS57812N$,8,0:POKE780,0:POKE781,A:POKE782,B:SYS65493
  51. 930 OPEN1,8,15:INPUT#1,E,F$,G,H:CLOSE1
  52. 940 IFE=62THENPRINT""F$CHR$(13)"[146][196]ISK MIT "N$" EINLEGEN <TASTE>"
  53. 950 IFE=62THENPOKE198,0:WAIT198,1:GOTO910
  54. 960 IFE>2THENPRINTE;F$;G;H:END
  55. 965 A=PEEK(174):B=PEEK(175):C=B*256+A
  56. 970 D%=L/256:POKEZ+9,D%:POKEZ+4,L-(D%*256):RETURN
  57. 1000 FORX=2049TO2278:READI:POKEX,I:NEXT:RETURN
  58. 1010 DATA11,8,194,7,158,50,48,54,49,0,0,0,120,169,11,141,32,208,141,17,208,169
  59. 1020 DATA0,160,0,162,0,32,214,8,169,0,160,77,162,3,32,221,8,169,0,160,0,162
  60. 1030 DATA0,32,214,8,169,0,160,229,162,195,32,221,8,169,0,160,0,162,0,32,214
  61. 1040 DATA8,169,0,160,254,162,203,32,221,8,169,0,160,0,162,0,32,214,8,169,0,160
  62. 1050 DATA223,162,153,32,221,8,169,0,160,0,162,0,32,214,8,169,0,160,0,162,128
  63. 1060 DATA32,221,8,169,0,160,0,162,0,32,214,8,169,0,160,228,162,188,32,221,8
  64. 1070 DATA169,0,160,0,162,0,32,214,8,169,0,160,0,162,192,32,221,8,169,0,160,0
  65. 1080 DATA162,0,32,214,8,169,0,160,249,162,4,32,221,8,169,0,160,0,162,0,32,214
  66. 1090 DATA8,169,0,160,0,162,0,32,221,8,32,0,154,169,55,133,1,169,0,170,157,0
  67. 1100 DATA200,232,224,41,208,248,141,33,208,169,12,141,134,2,88,76,0,192,133
  68. 1110 DATA95,132,96,134,90,96,133,91,132,88,134,89,32,191,163,96
  69.