TSUG Demo

Date: 198x
Type: Program
Platform(s): TS 1000

Appears on

Assembled by Tim Ward from many sources. Contains programs 10051 – 10121.

Gallery

TSUG Demo

Source Code

   0 REM \2A\0C\40\E5\11\21\00\19\D1\01\D6\02\ED\B0\C9\2A\10\40\11\43\00\ED\52\E5\11\21\00\ED\52\D1\01\B5\02\ED\B8\2A\0C\40\06\20\23\36\00\10\FB\C9\2A\0C\40\11\D6\02\19\06\16\2B\4E\36\00\2B\7E\FE\76\28\02\18\03\10\F2\C9\71\4F\18\F1\2A\0C\40\06\16\23\4E\36\00\23\7E\FE\76\28\02\18\03\10\F2\C9\71\4F\18\F1\CD\CC\40\CD\91\40\C9\CD\B0\40\CD\91\40\C9\CD\B0\40\CD\82\40\C9\CD\CC\40\CD\82\40\C9
   1 DIM S(8)
   2 LET S(1)=16626
   3 LET S(2)=16514
   4 LET S(3)=16633
   5 LET S(4)=16560
   6 LET S(5)=16588
   7 LET S(6)=16619
   8 LET S(7)=16529
   9 LET S(8)=16612
  10 FOR X=1 TO 8
  11 FOR I=1 TO 22
  12 PRINT "==TIMEX/SINCLAIR USER""S GROUP=="
  13 NEXT I
  14 FOR I=1 TO 32
  15 RAND USR S(X)
  16 NEXT I
  17 CLS 
  18 NEXT X
  19 GOTO 10
  20 SAVE "1007%4"
  21 RUN 

People

No people associated with this content.

Scroll to Top