home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 75 / Tiger_Disk_075_20xx_Tiger-Crew-Disk_de_Side_B.d64 / box (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  532b  |  26 lines
  1. 1 if peek(49152)<>96 then load"grafix rtns",8,1
  2. 100 ba=49153:k=48:dr=ba+12
  3. 110 sys ba,9,3,1,7
  4. 120 forx=0to48step8:p=3+(x=48)
  5. 130 sys dr,x,x,x,160-x,p
  6. 140 sys dr,x,x,192-x,x,p
  7. 150 sys dr,x,160-x,192-x,160-x,p
  8. 160 sys dr,192-x,x,192-x,160-x,p
  9. 170 nextx
  10. 180 sys dr,0,159,192,159,3
  11. 190 sys dr,193,0,200,0,0
  12. 200 forx=0to8
  13. 210 k1=k+8*x
  14. 220 sys dr,0,20*x,k,k1,3
  15. 230 sys dr,146,k1,192,20*x,3
  16. 240 sys dr,k,k1,146,k1,2
  17. 250 nextx
  18. 260 forx=1to11
  19. 270 k1=k+8*x
  20. 280 sys dr,x*16,0,48+x*8,48,3
  21. 290 sys dr,k1,k,k1,112,2
  22. 300 sys dr,k1,112,x*16,160,3
  23. 310 nextx
  24. 320 geti$:ifi$=""then320
  25. 330 sys ba+9:print"[147]":list-310
  26.