home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 89xx / 8901c.d64 / auto-start.bas (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  2KB  |  94 lines
  1. 0 REM  *******************************
  2. 1 REM  **                           **
  3. 2 REM  **    AUTO-START-GENERATOR   **
  4. 3 REM  **                           **
  5. 4 REM  **         WRITTEN BY        **
  6. 5 REM  **       STEFAN KOTTHAUS     **
  7. 6 REM  **          10/1987          **
  8. 7 REM  **                           **
  9. 8 REM  *******************************
  10. 9 :
  11. 10 A1=-1:A2=-1
  12. 20 PRINT CHR$(14)"[147][194]ITTE GEBEN [211]IE";
  13. 30 PRINT " DEN [198]ILENAMEN DES"
  14. 40 PRINT "  [193]UTOSTART-[208]ROGRAMMS EIN ";
  15. 50 INPUT FI$
  16. 60 IF FI$="" THEN PRINT"[198]ILENAME FEHLT !!":END
  17. 70 FI$=LEFT$(FI$,10)+"[160][172]8[172]1[186]"
  18. 80 :
  19. 90 PRINT "UND NUN DEN [198]ILENAMEN DES ERSTEN ZU"
  20. 100 PRINT "  LADENDEN [208]ROGRAMMS ";
  21. 110 INPUT F1$
  22. 120 IF F1$="" THEN PRINT"[198]ILENAME FEHLT !!":END
  23. 130 :
  24. 140 INPUT "[197]INSPRUNGADRESSE ";A1
  25. 150 :
  26. 160 PRINT "JETZT DEN [198]ILENAMEN DES ZWEITEN"
  27. 170 PRINT "  [208]ROGRAMMS ";
  28. 180 INPUT F2$
  29. 190 IF LEN(F2$)=0 AND A1=-1 THEN PRINT"[198]ILENAME FEHLT !!":END
  30. 200 :
  31. 210 IF LEN(F2$)=0 THEN 250
  32. 220 INPUT "[197]INSPRUNGADRESSE ([194][193][211][201][195])   43121[157][157][157][157][157][157][157]";A2
  33. 230 IF LEN(F2$)>0 AND A2=-1 THEN PRINT"[193]DRESSE FEHLT !!":END
  34. 240 :
  35. 250 OPEN 1,8, 2,FI$+",P,W"
  36. 260 OPEN 2,8,15
  37. 270 :
  38. 280 INPUT#2,FE,FE$
  39. 290 IF FE=63 THEN PRINT" [193]UTOSTART-[198]ILE EXISTIERT BEREITS !":GOTO 680
  40. 300 IF FE>0 THEN PRINT FE,FE$:GOTO 680
  41. 310 :
  42. 320 REM *** ALTE FILES VORHANDEN ? ***
  43. 330 PRINT#2,"R:"+F1$+"="+F1$
  44. 340 INPUT#2,FE,FE$
  45. 350 IF FE<>63THEN PRINT FE,FE$:GOTO 680
  46. 360 :
  47. 370 IF F2$="" THEN 430
  48. 380 PRINT#2,"R:"+F2$+"="+F2$
  49. 390 INPUT#2,FE,FE$
  50. 400 IF FE<>63THEN PRINT FE,FE$:GOTO 680
  51. 410 :
  52. 420 REM   *** DATEN EINLESEN ***
  53. 430 PR=0:T=0:RESTORE
  54. 440 READ A:IF A >=0 THEN POKE 828+T,A:T=T+1:PR=PR+A:GOTO 440
  55. 450 IF PR <> 7983 THEN PRINT"FALSCHE [208]RUEFSUMME !!!":GOTO 680
  56. 460 :
  57. 470 IF A1=-1 THEN 510
  58. 480 HI=INT(A1/256):LO=A1-256*HI
  59. 490 POKE 893,LO:POKE 894,HI
  60. 500 :
  61. 510 IF A2=-1 THEN POKE 892,44:A2=A1
  62. 520 :
  63. 530 HI=INT(A2/256):LO=A2-256*HI
  64. 540 POKE 930,LO:POKE 931,HI
  65. 550 :
  66. 560 POKE 901,72+LEN(F1$)
  67. 570 POKE 860,LEN(F1$):POKE 861,LEN(F2$)
  68. 580 :
  69. 590 FOR A=1 TO LEN(F1$)
  70. 600 POKE 931+A,ASC(MID$(F1$,A,1)):NEXT
  71. 610 :
  72. 620 IF LEN(F2$)=0 THEN 650
  73. 630 FOR B=1 TO LEN(F2$)
  74. 640 POKE 930+A+B,ASC(MID$(F2$,B,1)):NEXT
  75. 650 PRINT#1,CHR$(224);CHR$(1);
  76. 660 FOR D=828 TO 931+A+B
  77. 670 PRINT#1,CHR$(PEEK(D));:NEXT
  78. 680 CLOSE1:CLOSE 2:END
  79. 690 :
  80. 700 DATA 2,2,2,2,2,2,2,2
  81. 710 DATA 2,2,2,2,2,2,2,2
  82. 720 DATA 2,2,2,2,2,2,2,2,2,2
  83. 730 DATA 2,2,2,2,174,167,0,0,96
  84. 740 DATA 169,00,32,144,255,169,1
  85. 750 DATA 162,8,160,1,32,186,255
  86. 760 DATA 173,0,2,162,72,160,2,32
  87. 770 DATA 189,255,169,0,32,213,255
  88. 780 DATA 32,2,2,173,1,2,240,12,162
  89. 790 DATA 80,160,2,32,189,255,169,0
  90. 800 DATA 32,213,255,32,51,165,165
  91. 810 DATA 23,134,45,133,46,32,96,166
  92. 820 DATA 162,253,154,169,0,76
  93. 830 DATA 113,168,-1
  94.