home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1995 June / 64er_Magazin_95-06_1995_Markt__Technik_de_Side_A.d64 / 3d-menue-demo (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  503b  |  20 lines
  1. 10 rem*********************
  2. 20 rem*   3d-menue-demo   *
  3. 30 rem*                   *
  4. 40 rem* volker schoenfuss *
  5. 50 rem* ot kirchmoeser    *
  6. 60 rem* drosselweg 6b     *
  7. 70 rem* 14774 brandenburg *
  8. 80 rem*********************
  9. 100 a$="                   ":b=18
  10. 110 poke53280,6:poke53281,6:print"[147]":goto170
  11. 120 print"[155]"chr$(b)a$a$:print"[144] "chr$(b)a$a$:return
  12. 130 print:print:print:return
  13. 140 print"[155]":printchr$(b)a$
  14. 150 fori=1to6:printchr$(b)a$"[144] [155]":nexti
  15. 160 print"[144] "chr$(b)a$:return
  16. 170 gosub120:gosub140:gosub140:print:gosub120:print"":gosub130
  17. 180 print:forn=1to6:printtab(2)"unterprogramm"n:print
  18. 190 ifn=3thengosub130
  19. 200 nextn:poke198,0:wait198,1:end
  20.