home *** CD-ROM | disk | FTP | other *** search
/ Magic Disk 64 / Magic_Disk_64_90-02_1990_-_de_Side_B.d64 / smalldemo (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  1KB  |  33 lines
  1. 100 bcol11,12:mwini:modini
  2. 101 a$="gaga":flasha$
  3. 102 wina0,2,2,4,4,1,0
  4. 103 winb1,4,4,4,4,1,0
  5. 104 winc2,10,10,4,4,1,0,"test "
  6. 105 wina3,16,16,4,4,1,0,"test "
  7. 106 winb4,13,3,4,4,1
  8. 107 winc5,22,4,4,4,1
  9. 108 wina6,32,10,4,4,1,"test "
  10. 109 winb7,14,14,4,4,2,"test "
  11. 110 forx=1to4:wclose:nextx
  12. 111 flash"[144]bates jr. waz hear"
  13. 112 print:type30"in 1987 and 1988"
  14. 113 type60"typing is fun"
  15. 114 scop:dir:sccl
  16. 115 scr:print"[147]":poke53265,11:wina2,7,7,26,11,1,0,"[155]this is just a test. on the"
  17. 116 rem+" second screen that is available... if you press space you will get"
  18. 117 rem+" into the pad[155]-mode. press shift/clrhome and write what you want to."
  19. 118 rem+" hit the 'arrow left '-key to exit...."
  20. 119 poke53265,27:rwait:pad
  21. 120 scr:rwait:print"[147]":wina3,10,6,20,13,7,0,"please enter anything you want to_"
  22. 121 dinput18,7,na$,10,11
  23. 122 type40"this is what you entered: ":print:printna$
  24. 123 wina3,10,6,20,13,7,0,"this is a decision_ "
  25. 124 print"";:dec:print:flash"[144]you decided ";:ifyesthen:type100"yes"
  26. 125 if no then:type200"no"
  27. 126 wclose:wclose
  28. 127 moddir1,0,7
  29. 128 modulemo$:if ok thengosub30000
  30. 129 print"[147]":sec:wina0,7,11,26,1,1,0:type30"another module ?  ":dec
  31. 130 if ye then127
  32. 131 if no then:reset:end
  33.