Appears on
Assembled by Tim Ward from many sources. Contains programs 10051 – 10121.
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 11 FOR X=1 TO 8 12 FOR I=1 TO 22 13 PRINT "==TIMEX/SINCLAIR USER""S GROUP==" 14 NEXT I 15 FOR I=1 TO 32 16 RAND USR S(X) 17 NEXT I 18 CLS 19 NEXT X 20 GOTO 11 21 SAVE "1008%2" 22 RUN