home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 45 / Tiger_Disk_045_1997-12_Tiger-Crew-Disk_de_Side_B.d64 / parameter (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  684b  |  25 lines
  1. 10 ifl=0thenl=1:load"trailer",8,1
  2. 20 ifl=1thenl=2:input"name vom koala-bild ";n$:n$=n$+"*"
  3. 30 ifl=2thenl=3:load"?pic "+n$,8,1
  4. 100 input "[147]randfarbe  0[157][157][157]";r
  5. 110 input "startadresse lader  828[157][157][157][157][157]";sl
  6. 120 input "name des haupt-prg  cic-soft[157][157][157][157][157][157][157][157][157][157]";n$
  7. 130 l=len(n$):ifl>16thenprint"[145][145][145]":goto120
  8. 140 input "adresse der sicherung  2050[157][157][157][157][157][157]";as
  9. 150 input "wert der sicherung  8[157][157][157]";ws
  10. 160 input "name des loader  cic loader[157][157][157][157][157][157][157][157][157][157][157][157]";l$
  11. 170 ll=len(l$):ifll>16then160
  12. 180 poke 49193,ll
  13. 190 fori=1toll:poke49220+i,asc(mid$(l$,i,1)):next
  14. 200 poke2130,r
  15. 210 poke2228,l
  16. 220 poke2242,ws
  17. 230 fori=1tol
  18. 240 poke2267+i,asc(mid$(n$,i,1))
  19. 250 nexti
  20. 260 sh=int(sl/256):sl=sl-sh*256
  21. 270 poke2210,sl:poke2211,sh:poke2218,sl:poke2219,sh
  22. 280 ah=int(as/256):al=as-ah*256
  23. 290 poke2244,al:poke2245,ah
  24. 300 sys49152
  25.