home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 136 / Tiger_Disk_136_20xx_Tiger-Crew-Disk_de_Side_B.d64 / directory-druck (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  2KB  |  56 lines
  1. 1 poke53280,.:poke53281,.:printchr$(14)chr$(147)
  2. 2 print"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]";
  3. 3 print"[221]                                      [221]";
  4. 4 print"[221]     [196][160][201][160][210][160][197][160][195][160][212][160][207][160][210][160][217] - [196] [210] [213] [195] [203]    [221]";
  5. 5 print"[221][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][221]";
  6. 6 print"[221][129]   in drei [211]palten und [205]icroschrift   [221]";
  7. 7 print"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]";
  8. 8 print"          [196]rucker einschalten!          ";
  9. 9 printtab(40)"[146][151][164][164][164][164][164][164][164][164][164][164][164][154][164][164][164][151][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][154][164][164][164][151][164][164]";
  10. 10 print"[152][146][181] [196]rucken: [154][165][196][167][146][152] [182][182][182][182] [181][181][181][181][181] [194]eenden: [154][165][197][167][146][152] [182]";
  11. 11 print"[151][163][163][163][163][163][163][163][163][163][163][163][154][163][163][163][151][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][154][163][163][163][151][163][163]";
  12. 12 poke198,0:
  13. 13 getc$:ifc$=chr$(68)then16
  14. 14 ifc$=chr$(69)thenprint"[147]":end
  15. 15 goto13
  16. 16 dimf$(152)
  17. 17 dimm$(152)
  18. 18 printchr$(147)chr$(154)chr$(142)
  19. 19 open9,8,0,"$"::get#9,a$,b$::n0=0
  20. 20 get#9,a$,b$:z0=0:x$=""
  21. 21 ifst<>0then 29
  22. 22 get#9,a$,b$
  23. 23 n$=chr$(0)
  24. 24 m$=right$("      "+str$(asc(a$+n$)+asc(b$+n$)*256),6)
  25. 25 get#9,a$:ifa$=chr$(34)thenz0=sgn(z0+1)
  26. 26 ifa$=""thenn0=n0+1:n1=n0-1:gosub30:goto20
  27. 27 ifz0=1thenm$=m$+a$
  28. 28 goto25
  29. 29 close9:goto40
  30. 30 ifn0=1then38
  31. 31 iflen(m$)=6then39
  32. 32 aa$="":fori=8to24:c$=mid$(m$,i,1):ifc$=chr$(34)theni=24:goto34
  33. 33 aa$=aa$+c$
  34. 34 next i:m$(n1)=left$(aa$+"                  ",18)+left$(m$,6)+"  "+id$
  35. 35 h1$=mid$(m$(n1),22,3):h2$=left$(m$(n1),16)
  36. 36 h$=h1$+" "+h2$+" "+mid$(m$,26,3):print"       "h$:a=a+1:f$(a)=h$:printchr$(142)
  37. 37 return
  38. 38 cc$=right$(m$,24):id$=mid$(cc$,20,2):print"       [221]";cc$:return
  39. 39 print:print"    ";m$;" bloecke frei.":cc$=cc$+m$+" bloecke frei.  "+da$:return
  40. 40 open4,4::print#4:cmd4:printchr$(27)chr$(15):printchr$(27)"s"chr$(0);
  41. 41 print#4,chr$(27)"a"chr$(5);">name: ";mid$(cc$,2,16);:
  42. 42 print#4,"     nr. : ";id$;:
  43. 43 print#4,"      "mid$(cc$,28,16)
  44. 44 print#4,"[162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162]";
  45. 45 print#4,"[162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162]"
  46. 46 ifa/3<>int(a/3)anda-3*int(a/3)=2thena=a+3:goto48
  47. 47 ifa/3<>int(a/3)anda-3*int(a/3)=1thena=a+3:goto48
  48. 48 forx=1toint(a/3)
  49. 49 print#4," "f$(x);"   ";
  50. 50 print#4,f$(x+int(a/3));"   ";
  51. 51 print#4,f$(x+2*int(a/3))
  52. 52 next:goto 54
  53. 53 print#4,mid$(cc$,28,16)
  54. 54 close4:s=54272:pokes+24,15:pokes+4,129:pokes+5,9:pokes+6,255:pokes+1,8:pokes+4,128
  55. 55 printchr$(30)chr$(14)chr$(147):ford=1to25:next:pokes+4,0:goto9
  56.