home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 132 / Tiger_Disk_132_20xx_Tiger-Crew-Disk_de_Side_B.d64 / farbtest (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  637b  |  16 lines
  1. 1 p1$=""
  2. 2 dimcl(15):dimcl$(15):p$=p1$+"[144]taste .....  taste ....."
  3. 3 ford=0to15:readcl(d):readcl$(d):next
  4. 10 fora=0to15
  5. 20 poke53280,a:poke53281,a
  6. 30 forb=15to0step-1:poke646,b:print"[147]    farben: ";cl$(b);"  auf: "cl$(a)
  7. 40 forc=1to10:print"[166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166]                    ":next
  8. 43 forc=1to10:print"abcdefghijklmnopqrs[146]tuvwxyz123457890.,:@":next
  9. 44 printp1$;"[145]                                       "
  10. 45 printp1$;"[145][195]-64:text :  #";b;"  &   bkgd :  #";a
  11. 50 printp$:poke198,0:wait198,1
  12. 60 nextb,a
  13. 100 data0,schwarz,1,weiss,2,rot,3,cyan,4,purple,5,gruen,6,blau,7,gelb
  14. 110 data8,orange,9,braun,10,hl.rot,11,grau,12,mit.grau,13,hl.gruen,14,hl.blau
  15. 120 data15,hl.grau
  16.