home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 80 / Tiger_Disk_080_20xx_Tiger-Crew-Disk_de_Side_C.d64 / maskengenerator (.txt) < prev   
Commodore BASIC  |  2023-02-26  |  2KB  |  67 lines
  1. 5 poke650,128:poke2,0:poke828,5:poke788,52:printchr$(147)
  2. 6 fa$="[144][159][156][158][129][149][150][151][152][153][154][155]"
  3. 7 poke53281,.:poke53280,.
  4. 8 print"  farbe aendern:           f1"
  5. 9 print"  loeschen          mit space"
  6. 10 print"  basic-zeilen generieren: f8"
  7. 13 print"          bitte etwas warten!"
  8. 14 fori=0to999:poke20000+i,32:poke30000+i,5:next
  9. 15 print"[147]start mit  f1":fort=1to100:next
  10. 16 a=1-a:ifathen print"";:goto15
  11. 17 geta$:ifa$="[133]"then19
  12. 18 print"[146]":goto15
  13. 19 goto36
  14. 20 poke788,49:y=-1
  15. 21 a$="":y=y+1:print"[147][146]pass #"y:ify>24thenclr:goto72
  16. 22 forx=0to39:c=peek(20000+y*40+x)
  17. 23 f=peek(30000+y*40+x)
  18. 24 iff<>peek(828)andc<>32thena$=a$+mid$(fa$,f+1,1):poke828,f
  19. 25 ifc<128andpeek(2)=1thenpoke2,0:a$=a$+"[146]":goto27
  20. 26 ifc>127thenc=c-128:ifpeek(2)=0thenpoke2,1:a$=a$+""
  21. 27 ifc<32thenc=c+64:goto30
  22. 28 ifc>63andc<96thenc=c+32:goto30
  23. 29 ifc>97andc<128thenc=c+64
  24. 30 a$=a$+chr$(c):next
  25. 31 sa=100
  26. 32 print""sa"?"chr$(34)a$chr$(34)";"
  27. 33 print"31 sa="sa+1:print"y="y":fa$="chr$(34)fa$chr$(34)":goto21"
  28. 34 poke631,13:poke632,13:poke633,13
  29. 35 poke198,3:print"":end
  30. 36 b1=1024:b2=20000:f1=55296:f2=30000
  31. 37 print"[147]":x=0:y=0:f=5
  32. 38 ko=40*y+x
  33. 39 p1=peek(b1+ko):p2=peek(f2+ko)
  34. 40 pokeb1+ko,160:pokeb2+ko,160:pokef1+ko,f:pokef2+ko,f
  35. 41 geta$:ifa$=""then41
  36. 42 ifa$=""thenrv=1:goto41
  37. 43 ifa$="[146]"thenrv=0:goto41
  38. 44 ifa$=""thengosub70:gosub60:goto38
  39. 45 ifa$="[157]"thengosub70:gosub62:goto38
  40. 46 ifa$="[145]"thengosub70:gosub64:goto38
  41. 47 ifa$=""thengosub70:gosub66:goto38
  42. 48 ifa$="[133]"thengosub70:gosub68:goto38
  43. 49 ifa$="[140]"thengosub70:goto20
  44. 50 co=asc(a$)
  45. 51 ifco>127andco<161then41
  46. 52 ifco>63andco<96thenco=co-64
  47. 53 ifco>31andco<64thengoto58
  48. 54 ifco>95andco<128thenco=co-32
  49. 55 ifco>159andco<192thenco=co-64
  50. 56 ifco>191andco<255thenco=co-128
  51. 57 ifco=255thenco=94
  52. 58 ifrv=1thenco=co+128
  53. 59 pokeb1+ko,co:pokeb2+ko,co:gosub60:goto38
  54. 60 x=x+1:ifx>39thenx=0:y=y+1:ify>24theny=24
  55. 61 return
  56. 62 x=x-1:ifx<0thenx=39:y=y-1:ify<0theny=0
  57. 63 return
  58. 64 y=y-1:ify<0theny=0
  59. 65 return
  60. 66 y=y+1:ify>24theny=24
  61. 67 return
  62. 68 f=f+1:iff>15thenf=0
  63. 69 return
  64. 70 pokeb1+40*y+x,p1:pokeb2+40*y+x,p1
  65. 71 pokef1+40*y+x,p2:pokef2+40*y+x,p2:return
  66. 72 print"[147]"a:print"a="a+1":goto72":poke631,13:poke632,13:poke198,2:print"":end
  67.