UDG Demo

Source Code

    1 REM !VAL \\FREE !CODE \\ RETURN ( RETURN ( THEN ▚ THEN AND *U\\>"PEEK #( IF RESTORE !LEN \\N!@ RESTORE !VAL \\FREE  NEW o>& THEN % THEN gSTR$ RESTORE !VAL \\FREE  LLIST RETURN 8 RETURN "TAB \\ LLIST RESTORE FREE = OR RETURN \a8p\aSTR$ X COPY OR  \ao> THEN % THEN gSTR$ RESTORE !ATTR \\FREE  LLIST RETURN (r CAT >2AT \\ RESTORE FREE W!ATTR \\FREE  RETURN z(ON ERR*TAB \\ OR STR$ r#s+:AT \\ RETURN (% RETURN  x RETURN  RESTORE !CODE \\ THEN F LLIST OR  LPRINT PI GO SUB BSTR$ LPRINT PI GO SUB BSTR$ "TAB \\ LLIST #:AT \\=2AT \\ POINT !CODE \\ THEN F*TAB \\(PI GO SUB BA▄PI GO SUB B\\ RETURN  #"TAB \\ LLIST #>"PEEK >= DATA ▐! THEN ? THEN THEN - THEN ? THEN THEN ,T]!ATTR \\FREE  RETURN ( FLASH OR RESTORE FREE  VERIFY *TAB \\r#s+"TAB \\ LLIST #STR$ *TAB \\ RETURN PI GO SUB B"TAB \\ LLIST #>"PEEK >=\bxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
    2 DEF FN a()=PEEK 23635+256*PEEK 23636+5
   10 POKE 23728,4: POKE 23729,2
   20 POKE 23723,3
   30 RANDOMIZE USR FN A()
   40 REM "\l"
   50 POKE 23728,5: POKE 23729,4
   54 POKE 23723,1
   60 RANDOMIZE USR FN a()
   62 REM "ONG"
   70 POKE 23728,6: POKE 23729,3
   72 POKE 23723,3
   80 RANDOMIZE USR FN a()
   90 REM "\i"
   92 POKE 23728,7: POKE 23729,5
  100 POKE 23723,1
  110 RANDOMIZE USR FN a()
  120 REM "SLAND"
  130 POKE 23728,8: POKE 23729,4
  140 POKE 23723,3
  150 RANDOMIZE USR FN a()
  160 REM "\s"
  170 POKE 23728,9: POKE 23729,6
  180 POKE 23723,1
  185 RANDOMIZE USR FN a()
  190 REM "inclair"
  192 POKE 23728,10: POKE 23729,5
  194 POKE 23723,3
  195 RANDOMIZE USR FN a()
  196 REM " SPECTRUM "
  197 POKE 23728,11: POKE 23729,7
  198 POKE 23723,1
  199 RANDOMIZE USR FN a()
  200 REM "IMEX"
  201 GO TO 500
  202 PLOT 0,152: DRAW 255,0
  203 PLOT 0,153: DRAW 255,0
  204 PLOT 0,66: DRAW 255,0
  206 PLOT 0,65: DRAW 255,0
  210 PLOT 0,66: DRAW 0,86
  212 PLOT 1,66: DRAW 0,86
  214 PLOT 255,66: DRAW 0,86
  216 PLOT 254,66: DRAW 0,86
  220 PRINT AT 21,0;"    Hit any Key to Proceed": PAUSE 4e4: CLS : GO TO 600
  500 POKE 23728,6: POKE 23729,20
  510 POKE 23723,3
  520 RANDOMIZE USR FN a()
  530 REM "GROUP"
  540 GO TO 202
  600 DATA 0,13,20
  610 FOR m=1 TO 3
  620 READ s
  630 FOR n=0 TO 18 STEP 2
  635 LET nx=n: IF m=1 THEN LET nx=n+1
  640 POKE 23728,nx: POKE 23729,s: POKE 23723,m
  650 RANDOMIZE USR FN a()
  660 REM "TS2068"
  670 NEXT n
  680 NEXT m
  690 PRINT AT 21,0;"    Hit any Key to Proceed": PAUSE 4e4: CLS 
  700 PRINT AT 4,0;"Regular Characters"
  710 POKE 23728,6: POKE 23729,0: POKE 23723,2
  720 RANDOMIZE USR FN a()
  730 REM "Mode 2  Character"
  740 POKE 23728,9: POKE 23723,1
  750 RANDOMIZE USR FN a()
  760 REM "Mode 1 Char$"
  770 POKE 23728,11: POKE 23723,3
  780 RANDOMIZE USR FN a()
  790 REM "Mode 3 Char$"
  799 STOP 
  810 LOAD "udg"CODE 
  814 CLS 
  820 GO TO 2
 9998 SAVE "udg-demo" LINE 810: SAVE "udg"CODE 65368,168