home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 92xx / 9205.d64 / autostart-maker (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  818b  |  21 lines
  1. 1 PRINT"[147]AUTOSTART-MAKER/(C) 1991 BY PETER GROTH"
  2. 2 FORX=836TO878:READA:POKEX,A:NEXT:INPUT"NAME DES LOADERS";A$
  3. 3 INPUT"NAME DES PROGRAMMS";B$:A=0:B=0:C=819
  4. 4 A=A+1:C=C+1:C$=MID$(B$,A,1):IFC$=""GOTO6
  5. 5 X=ASC(C$):POKEC,X:B=B+1:IFB<16GOTO4
  6. 6 POKE856,B:PRINT"BASIC/MASCHINENSPRACHE (B/M)?"
  7. 7 GETB$:IFB$=""GOTO7
  8. 8 IFB$="B"THENPOKE867,1:POKE869,8:GOTO16
  9. 9 IFB$="M"GOTO11
  10. 10 GOTO7
  11. 11 INPUT"STARTADRESSE";A:GOSUB15:POKE874,AL:POKE875,AH
  12. 12 INPUT"LADEADRESSE";A:GOSUB15:POKE867,AL:POKE869,AH
  13. 13 POKE770,68:POKE771,3:SYS57812A$,8:POKE174,132:POKE175,3:POKE193,2:POKE194,3
  14. 14 SYS62957:POKE770,131:POKE771,164:END
  15. 15 AH=INT(A/256):AL=A-AH*256:RETURN
  16. 16 FORX=873TO899:READA:POKEX,A:NEXT:GOTO13
  17. 17 DATA169,131,141,2,3,169,164,141,3,3
  18. 18 DATA169,1,162,8,160,0,32,186,255,169,1,162,52,160,3,32,189,255,169,0,162,0
  19. 19 DATA160,128,32,213,255,32,0,0,76,131,164,169,82,141,119,2,169,85
  20. 20 DATA141,120,2,169,78,141,121,2,169,13,141,122,2,169,4,133,198,76,131,164
  21.