home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 87xx / 8703a.d64 / install.h (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  4KB  |  89 lines
  1. 0 IFA=0THENA=1:LOAD"DATA",8,1
  2. 1 POKE56,25:POKE55,0:CLR:POKE53281,14:DIMN$(9),A(9),I(1):OPEN15,8,15
  3. 2 C=7162:D=12522:U=48:PRINT"[147]    *** [200][197][213][210][197][203][193]-[211]PRINT [201]NSTALLATION [212]OOL ***";
  4. 3 PRINT"[205]ARTIN [208]FOST  (C) 1986 [200]EUREKA [212]EACHWARE[198]ERTIGINSTALLATIONEN"
  5. 4 PRINT"====================":PRINT"1- EIN [198]ILE INSTALLIEREN":POKE53280,14
  6. 5 PRINT"2- MEHRERE [198]ILES INSTALLIEREN":PRINT"[197]INZELOPERATIONEN"
  7. 6 PRINT"==================":PRINT"3- [196]ISKETTE INITIALISIEREN"
  8. 7 PRINT"4- [198]ILE SCHREIBEN":PRINT"5- [198]ILE LOESCHEN"
  9. 8 PRINT"6- [198]ILE WIEDERHERSTELLEN":PRINT"7- [196]IRECTORY":PRINT"8- [197]NDE"
  10. 9 INPUT"[201]HRE [215]AHL : ";O:IFO<1ORO>8THEN2
  11. 10 ONOGOSUB11,12,21,34,68,68,87,67:PRINT"<[212]ASTE>":GOSUB80:GOTO2
  12. 11 GOSUB58:GOSUB25:A=0:GOTO35
  13. 12 INPUT"[147][218]AHL DER [198]ILES ";N:IFN<2ORN>9THENRETURN
  14. 13 GOSUB59:A(0)=1618:O(0)=1:I=0:GOSUB25:U=50:FORI=1TON+1
  15. 14 IFI>NTHENN$=CHR$(13)+CHR$(13)+"[201]HRE [215]AHL : "+CHR$(0):GOTO18
  16. 15 A=1:GOSUB35:A=D+8*I:POKEA,PEEK(250):POKEA+1,PEEK(251):POKEA+2,I(0)
  17. 16 POKEA+3,I(1):A=A+4:W=A(I):GOSUB84:POKEA+2,64*O(I)
  18. 17 N$=LEFT$(RIGHT$(STR$(I),1)+""+N$(I)+"",20)
  19. 18 FORJ=1TOLEN(N$):POKED-13+8*N+20*I+J,ASC(MID$(N$,J,1)):NEXT:NEXT
  20. 19 PRINT"[196]AS [205]ENUEFILE WIRD GENERIERT.":POKED+7,N:U=48:FORI=0TO240
  21. 20 POKE12288+I,PEEK(8576+I):NEXT:A=174:W=D+23+28*N:GOSUB84:A=0:GOTO39
  22. 21 PRINT"[147][211]TARTADRESSE DER [204]ADEROUTINE ?":PRINT"[206]UR [200]IGH-[194]YTE ANGEBEN!"
  23. 22 INPUT"[193]DRESSE ";H:IFH<6ORH>206OR(H>154ANDH<192)THEN21
  24. 23 I=0:GOSUB43:PRINT"[147][200]IGH-[194]YTE DER [204]ADEROUTINEADRESSE:";H:GOSUB52
  25. 24 INPUT"[193]LLES [207]K (J/N)";A$:IFA$<>"J"THENRETURN
  26. 25 PRINT"[147][204]EGEN [211]IE JETZT EINE FORMATIERTE LEERE"
  27. 26 PRINT"[196]ISKETTE (DIE [218]IELDISKETTE) EIN!":GOSUB80:PRINT"[197]INEN [205]OMENT";
  28. 27 PRINT#15,"I":PRINT#15,"M-R"+CHR$(0)+"";:FORJ=0TO1:GET#15,A$
  29. 28 I(J)=ASC(A$+CHR$(0)):POKEC+J,I(J):NEXT:POKE6514,H:POKE6528,H:A=C+2:W=A(I)
  30. 29 GOSUB84:POKEC+4,64*O(I):SYS8835:OPEN2,8,2,"#"
  31. 30 RESTORE:FORJ=1TO10:READW,L,T,S:W=6400+W:IFT=18THENPRINT#15,"U1 2 0 18 1"
  32. 31 GOSUB81:PRINT".";:IFT<>18THENPRINT#15,"B-A:0";T;S:GOSUB81
  33. 32 PRINT#15,"B-P 2 0":A=174:GOSUB84:POKE172,L:SYS8838:PRINT#15,"U2 2 0";T;S
  34. 33 GOSUB81:NEXT:CLOSE 2:PRINT:PRINT"[196]IE [196]ISKETTE IST INITIALISIERT.":RETURN
  35. 34 N=1:X=1:GOSUB60:INPUT"[193]UTOBOOT-[198]ILE (J/N) ";A$:A=1+(A$="J")
  36. 35 PRINT"[196]ISK MIT '";N$(I);"' EINLEGEN!":GOSUB80:OPEN1,8,0,N$(I):GOSUB81
  37. 36 PRINT"[196]AS [198]ILE WIRD GELESEN.":POKE174,0:POKE175,U:SYS8841:CLOSE1:GOSUB81
  38. 37 IFPEEK(175)=0THENPRINT"[198]ILE ZU LANG!":GOTO83
  39. 38 PRINT"[218]IELDISKETTE EINLEGEN!":GOSUB80
  40. 39 OPEN2,8,2,"#":GOSUB81:PRINT#15,"U1 2 0 18 0":PRINT#15,"B-P 2 69":GET#2,A$
  41. 40 IFA=0AND(ASC(A$+CHR$(0))AND64)=0THENPRINT"[193]UTOBOOTFILE EXISTIERT!":GOTO83
  42. 41 POKE172,0:POKE173,U:POKE252,A:SYS8844:CLOSE2:IFPEEK(253)THEN83
  43. 42 PRINT:PRINT"[198]ILE GESCHRIEBEN.":RETURN
  44. 43 PRINT"[147][211]TARTBEFEHL (R- [210]UN,S- [211]YS)":INPUT"[194]EFEHL (R/S) ";A$
  45. 44 IFA$="R"THENA(I)=256*H+82:GOTO47
  46. 45 IFA$<>"S"THEN43
  47. 46 INPUT"[211]TARTADRESSE DES [208]ROGRAMMS ";A(I)
  48. 47 PRINT"[147][207]PERATION NACH [204]ADEN DES [194]OOTFILES"
  49. 48 PRINT" 1- SOFORT [194]OOTFILE STARTEN":PRINT" 2- [204]ADESYSTEM DISAKTIVIEREN"
  50. 49 PRINT" 3- WIE 2, ZUSAETZLICH AUF [198]LOPPY WARTEN";
  51. 50 INPUT"[207]PERATION (1,2,3) ";O(I):IFO(I)<1ORO(I)>3THEN47
  52. 51 RETURN
  53. 52 PRINT"[211]TARTBEFEHL ";:IFA(I)=256*H+82THENPRINT"[210][213][206]":GOTO54
  54. 53 PRINT "[211][217][211]";A(I)
  55. 54 PRINT"[206]ACH [204]ADEN DES [194]OOTFILES:":IFO(I)=1THENPRINT"[194]OOTFILE SOFORT STARTEN"
  56. 55 IFO(I)>1THENPRINT"[204]ADESYSTEM DISAKTIVIEREN";:IFO(I)=2THENPRINT
  57. 56 IFO(I)=3THENPRINT" UND AUF [198]LOPPY":PRINT"WARTEN"
  58. 57 RETURN
  59. 58 N=1
  60. 59 X=0:H=6
  61. 60 FORI=1TON
  62. 61 PRINT"[147][198]ILENAME ($- [196]IRECTORY) ?":PRINT"[198]ILE";I;:INPUTN$
  63. 62 IFN$="$"THENGOSUB87:GOSUB80:GOTO 61
  64. 63 N$(I)=LEFT$(N$,16):IFXTHEN66
  65. 64 GOSUB43:PRINT"[147][198]ILE";I;": ";N$(I):GOSUB52:INPUT"[193]LLES [207]K (J/N)";A$
  66. 65 IFA$<>"J"THEN61
  67. 66 NEXT:I=N:RETURN
  68. 67 CLOSE15:END
  69. 68 N$="LOESCHEN":IFO=6THENN$="WIEDERHERSTELLEN"
  70. 69 PRINT"[147]*** [198]ILE ";N$;"":N=0:INPUT"[211]TARTTRACK  =";T:INPUT"[211]TARTSEKTOR =";S
  71. 70 INPUT"[193]LLES [207]K (J/N) ";A$:IFA$<>"J"THENRETURN
  72. 71 PRINT"[204]EGEN [211]IE DIE [196]ISKETTE MIT DEM ZU":PRINTN$;"DEN [198]ILE EIN!":GOSUB80
  73. 72 OPEN2,8,2,"#"
  74. 73 PRINT "[145]                   ":N=N+1:PRINT"[145][194]LOCK";N;"  ";T;S
  75. 74 PRINT#15,"U1 2 0";T;S:GOSUB81:PRINT#15,"B-"+CHR$(70+(O>5)*5)+":0 ";T;S
  76. 75 GOSUB81:GET#2,A$,N$:PRINT#15,"B-P 2 255":GET#2,E$:A=INT(ASC(A$+CHR$(0))/16)
  77. 76 X=ASC(A$+CHR$(0))AND15:J=ASC(E$+CHR$(0))AND15:I=INT(ASC(N$+CHR$(0))/16)
  78. 77 IFI>7THEN83
  79. 78 I=16*(IAND2)+4*(IAND4):T=I+A:S=16*(JAND1)+X:IF(JAND8)=0THEN73
  80. 79 CLOSE2:PRINT"[198]ERTIG.":RETURN
  81. 80 POKE198,0:WAIT198,1:POKE198,0:RETURN
  82. 81 INPUT#15,E,E$,F,G:IFE=0THENRETURN
  83. 82 PRINT"[196]ISK-[198]EHLER !":PRINTE;E$;F;G
  84. 83 GOSUB80:GOTO1
  85. 84 F=INT(W/256):G=W-256*F:POKEA,G:POKEA+1,F:RETURN
  86. 85 DATA0,224,17,12,256,0,17,18,512,0,17,7,768,128,17,11,896,0,17,17
  87. 86 DATA1152,0,17,2,1408,0,17,8,1664,0,17,14,1920,0,17,20,224,32,18,1
  88. 87 OPEN1,8,0,"$":GOSUB81:SYS8832:CLOSE1:RETURN
  89.