home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 3 Years / Tiger_Disk_3_Years_19xx_Tiger-Crew-Disk_de_Side_A.d64 / men_slf (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  1KB  |  34 lines

  1. 0 rem i'm too shy to let you look in!      and remember: changing not allowed!!(NULL)
  2. 1 ifpeek(1022)=1then5
  3. 2 sys57812"zs1/slf",peek(1023),1:poke780,.:sys65493
  4. 3 poke56334,peek(56334)and254:poke1,peek(1)and251:sys909
  5. 4 poke1,peek(1)or4:poke56334,peek(56334)or1:poke1022,1:lo$="men/slf":goto19
  6. 5 c1%=1:c2%=15:c3%=12:c4%=11:print"[147][144]";:yt$="taste f>r weiter.":sys965
  7. 6 printspc(14)"spielmen>:":printspc(14)"----------":printspc(12)"1)spiel starten"
  8. 7 printspc(12)"2)installieren":printspc(12)"3)anleitung":printspc(12)"4)dateimanager"
  9. 8 printspc(12)"5)credits"
  10. 9 print"bitte dr>cken sie die gew>nschte taste":poke56295,.
  11. 10 gosub29:gosub32:fora=7to15step2:cs%=a:gosub26:next
  12. 11 geta$:ifa$=""thencs%=24:gosub26:cs%=.:goto11
  13. 12 ifa$<chr$(49)ora$>chr$(53)then11
  14. 13 print"[147][144]";:gosub32
  15. 14 ifa$="1"thenlo$="gam/slf"
  16. 15 ifa$="2"thenlo$="ins/slf"
  17. 16 ifa$="3"thenlo$="anl/slf":goto21
  18. 17 ifa$="4"thenlo$="dat/slf"
  19. 18 ifa$="5"thenlo$="cre/slf":goto21
  20. 19 print"new":print"l[207]"chr$(34)lo$chr$(34)","peek(1023):print"r[213]";:poke631,13:poke632,13
  21. 20 poke633,13:poke198,3:end
  22. 21 open1,peek(1023),2,lo$+",s,r":print"[147]";
  23. 22 get#1,a$:ifa$="[160]"thengosub30:print"[147]";:goto22
  24. 23 ifa$="[175]"thenfori=1to1000:nexti:goto22
  25. 24 ifa$="[177]"thenclose1:gosub30:run
  26. 25 printa$;:goto22
  27. 26 fori=cs%*40tocs%*40+37:poke55295+i,c1%:poke55296+i,c2%:poke55297+i,c3%
  28. 27 poke55298+i,c4%:next:poke55295+i,c1%:poke55296+i,c1%
  29. 28 poke55297+i,c1%:return
  30. 29 cs%=.:gosub26:cs%=1:gosub26:cs%=.:return
  31. 30 fori=1to18:print"";left$(yt$,i);:nexti:poke198,.
  32. 31 geta$:ifa$=""thencs%=24:gosub26:cs%=.:goto31
  33. 32 s=54272:pokes+24,15:pokes+1,110:pokes+6,9:pokes+4,17:pokes+4,16:return
  34.