home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh9x / sh96b.d64 / install.killer (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  2KB  |  49 lines
  1. 1 POKE788,52:Z=1:N$="[211]YSTEM-":X=PEEK(186):IFX<8ORX>12THENX=8
  2. 2 GOSUB18:GOSUB20:GOSUB29:GOSUB18:GOSUB31
  3. 3 PRINT"[197]INEN [205]OMENT [199]EDULD BITTE[146]":OPEN15,X,15,"I":OPEN2,X,2,"#":RESTORE
  4. 4 PRINT#15,"U1:";2;0;21;1:PRINT#15,"B-P:";2;10:GET#2,A$:A=ASC(A$+CHR$(0))
  5. 5 IFA<>0THENCLOSE15:CLOSE2:GOSUB18:GOSUB30:GOSUB18:GOTO31
  6. 6 READ N:IFN<0THEN8
  7. 7 PRINT#15,"M-W"CHR$(LB)CHR$(05)CHR$(1)CHR$(N):LB=LB+1:GOTO6
  8. 8 ON ABS(N) GOTO 9,10,12
  9. 9 READ LB:GOTO6
  10. 10 IFSI=1THENPRINT#15,"U2";2;0;T;S:GOSUB16
  11. 11 READT:READS:PRINT#15,"U1"2;0;T;S:GOSUB16:SI=1:GOTO6
  12. 12 PRINT#15,"U2"2;0;T;S:GOSUB16
  13. 13 IFZ=2ANDX<>8THENGOSUB18:N$="[211]YSTEM-":X=8:D=1:GOSUB31
  14. 14 CLOSE1:CLOSE15:IFZ=2ANDX=8THENPRINT"[147]":POKE53280,6:POKE53281,6:LOAD"GEOS",8,1
  15. 15 CLOSE15:CLOSE2:Z=2:N$="[211]ICHERUNGSYSTEM-":GOSUB18:GOSUB31
  16. 16 INPUT#15,EN,EM$,ET,ES:IFEN=0THENRETURN
  17. 17 GOSUB18:PRINT"[196][201][211][203] [197][210][210][207][210]!";EN;EM$;ET;ES:GOSUB28:GOSUB29:GOSUB18:GOTO31
  18. 18 POKE53280,0:POKE53281,0:PRINT"[147]"CHR$(14)TAB(13)"[206]EW [199][197][207][211]-[203]OPIE"TAB(98)"VON"
  19. 19 PRINTTAB(9)"[200]ANS-[202]UERGEN [218]IETHMANN":RETURN
  20. 20 PRINTTAB(80)"[205]IT [200]ILFE DIESES [208]ROGRAMMS KOENNEN [211]IE  DAS [199][197][207][211]-[211]YSTEM,"
  21. 21 PRINT"[145]"TAB(57)"WELCHES [211]IE MIT DEM    [199][197][207][211][203][207][206][214][197][210][212][197][210] [214]1.1 ERSTELLT HABEN,"
  22. 22 PRINT"[196]E-[201]NSTALLIEREN."TAB(80)"[197]IN [207]RIGINAL-[199][197][207][211]-[211]YSTEM KANN MAN  "
  23. 23 PRINT"NICHT MIT DIESEM [208]ROGRAMM"TAB(40)"[196]E-[201]NSTALLIEREN."
  24. 24 PRINT"[196]IESES [208]ROGRAMM DARF NUR AN DAS"
  25. 25 PRINT"[199][197][207][211]-[211]YSTEM [214]2.0 ([195]-64) ANGEWANDT WERDEN"
  26. 26 PRINT"[218]UR [196]E-[201]NSTALLATION BENOETIGT MAN STETS DIE [211]YSTEMDISKETTE UND DIE"
  27. 27 PRINT"[211]ICHERUNGSSYSTEMDISKETTE."
  28. 28 PRINTTAB(87)"[194][201][212][212][197] [197][201][206][197] [212][193][211][212][197] [196][210][213][197][195][203][197][206]":RETURN
  29. 29 CLOSE15:CLOSE2:WAIT203,64,64:RETURN
  30. 30 PRINT"[206]ICHT AUF DIESER [196]ISKETTE ANWENDBAR!":GOSUB28:GOSUB29:RETURN
  31. 31 PRINT"[194]ITTE DIE ";N$;"[196]ISKETTE"
  32. 32 PRINT"IN DAS [204]AUFWERK "X"[146]LEGEN UND EINE [212]ASTE"TAB(40)"DRUECKEN":GOSUB29
  33. 33 IFD=1THEN13
  34. 34 GOTO3
  35. 35 DATA-2,20,5,-1,197,0,0,0,-2,20,12,-1,0,34,14,15,129,167,134,221,168,78,240
  36. 36 DATA154,162,231,39,213,43,194,37,158,200,160,221,67,2,206,42,158,200,48,218
  37. 37 DATA63,162,63,2,0,168,134,125,63,242,141,5,156,174,146,76,128,46,136,102,195
  38. 38 DATA152,226,243,4,137,52,120,32,138,164,27,6,115,240,39,208,239,128,247,0,0
  39. 39 DATA156,37,12,157,129,190,33,15,181,78,45,36,94,153,107,44,218,173,98,137,80
  40. 40 DATA71,209,171,203,129,131,157,186,115,74,7,0,248,8,17,36,255,205,173,136
  41. 41 DATA199,35,196,207,98,185,43,201,221,249,237,141,174,119,173,189,162,3,228
  42. 42 DATA15,172,82,88,206,190,162,99,6,169,197,173,12,6,141,188,135,45,244,34,147
  43. 43 DATA5,0,171,69,202,215,233,162,25,157,238,87,162,28,144,192,87,43,33,41,173
  44. 44 DATA83,193,216,207,128,82,13,132,109,78,219,166,8,87,37,163,9,168,160,171
  45. 45 DATA172,0,105,162,228,187,103,195,142,5,254,160,224,125,127,224,164,146,14
  46. 46 DATA141,82,117,221,64,200,105,121,99,147,112,187,215,194,117,49,141,60,131
  47. 47 DATA154,172,19,132,136,104,5,192,102,173,77,108,78,61,113,0,96,96,193,111
  48. 48 DATA198,108,127,106,-3
  49.