home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1990 / 10 / tricks / mcgademo.bas < prev    next >
BASIC Source File  |  1990-08-08  |  1KB  |  30 lines
  1.  10 '* ---------------------------------------------------- *
  2.  20 '*                  MCGADEMO.BAS                        *
  3.  30 '*             MCGA-Demo für GW-Basic                   *
  4.  40 '*          (c) 1990 H.Philipps & TOOLBOX               *
  5.  50 '* ---------------------------------------------------- *
  6.  60 DEFINT A-Z : F=0 : KEY OFF
  7.  70 FOR ADR! = 65000! TO 65011!:
  8.  80   READ CODE%: POKE ADR!, CODE%
  9.  90 NEXT
  10. 100 DATA &hb8, &h13, &h00, &hcd, &h10, &hcb
  11. 110 DATA &hb8, &h03, &h00, &hcd, &h10, &hcb
  12. 120 INIT! = 65000! : EXIT! = 65006! : CALL INIT!
  13. 130 LOCATE 1,4 : PRINT "Demonstration des VGA-Modus 13hex"
  14. 140 LOCATE 3,11: PRINT "(MCGA) in GW-Basic"
  15. 150 DEF SEG = &HA000
  16. 160 FOR Y = 36 TO 176 STEP 10
  17. 170   FOR X = 20 TO 276 STEP 16
  18. 180     FOR Q = Y TO Y + 5
  19. 190       FOR P = X TO X + 8 : POKE P + Q * 320, F : NEXT
  20. 200     NEXT
  21. 210     IF INKEY$ <> "" THEN 270
  22. 220     F = F + 1:
  23. 230 NEXT : NEXT
  24. 240 BEEP
  25. 250 LOCATE 23,26: PRINT "schwarz";
  26. 260 IF INKEY$ = "" THEN 260
  27. 270 DEF SEG : CALL EXIT! : KEY ON : PRINT : END
  28. 280 '* --------------------------------------------------- *
  29. 290 '*              Ende von MCGADEMO.BAS                  *
  30.