XX
FILE INFORMATION
FILENAME(S): XX
FILE TYPE(S): PRG
FILE SIZE: 1K
FIRST SEEN: 2025-12-02 23:22:59
APPEARS ON: 1 disk(s)
FILE HASH
f7d2f0ef10b5c14d07bfcc7f1859d558ba7c933bab16503292df7ce463740ef7
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| VIZAWRITE DEUTSC | XX | PRG | swasti, dinkel | 6 | 18 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 00 70 70 72 3A 75 0D 64 3A 73 24 28 32 30 29 0D |.ppr:u.d:s$(20).| 00000010: 64 3A 74 24 28 34 29 0D 64 3A 64 24 28 36 39 29 |d:t$(4).d:d$(69)| 00000020: 0D 64 3A 65 24 28 32 33 29 0D 64 3A 72 24 28 32 |.d:e$(23).d:r$(2| 00000030: 30 29 0D 64 3A 66 24 28 32 30 29 0D 64 3A 77 24 |0).d:f$(20).d:w$| 00000040: 28 32 35 29 0D 64 3A 6D 24 28 36 29 0D 64 3A 6E |(25).d:m$(6).d:n| 00000050: 24 28 36 29 0D 64 3A 6F 24 28 37 29 0D 63 3A 73 |$(6).d:o$(7).c:s| 00000060: 24 3D 22 49 20 20 20 48 65 20 20 53 68 65 20 59 |$="I He She Y| 00000070: 6F 75 20 54 68 65 79 22 0D 63 3A 64 24 3D 22 67 |ou They".c:d$="g| 00000080: 6F 69 6E 67 20 74 6F 20 74 68 65 20 63 69 72 63 |oing to the circ| 00000090: 75 73 2E 20 20 20 22 0D 63 3A 64 24 3D 64 24 21 |us. ".c:d$=d$!| 000000A0: 21 22 63 6F 6D 69 6E 67 20 74 68 72 6F 75 67 68 |!"coming through| 000000B0: 20 74 68 65 20 72 79 65 2E 22 0D 63 3A 64 24 3D | the rye.".c:d$=| 000000C0: 64 24 21 21 22 67 65 74 74 69 6E 67 20 73 61 74 |d$!!"getting sat| 000000D0: 75 72 61 74 65 64 2E 20 20 20 20 20 22 0D 63 3A |urated. ".c:| 000000E0: 72 24 3D 22 41 4D 25 25 49 53 25 25 49 53 25 25 |r$="AM%%IS%%IS%%| 000000F0: 2A 52 45 25 2A 52 45 25 22 0D 63 3A 77 24 3D 22 |*RE%*RE%".c:w$="| 00000100: 2A 52 45 25 25 2A 52 45 25 25 2A 52 45 25 25 41 |*RE%%*RE%%*RE%%A| 00000110: 44 21 49 53 41 4D 21 49 53 22 0D 63 3A 66 24 3D |D!ISAM!IS".c:f$=| 00000120: 22 49 53 25 25 41 4D 25 25 41 4D 25 25 78 78 78 |"IS%%AM%%AM%%xxx| 00000130: 78 78 78 78 78 22 0D 64 3A 6C 24 28 31 35 29 0D |xxxxx".d:l$(15).| 00000140: 63 3A 6C 24 3D 22 31 31 31 31 31 31 31 31 31 31 |c:l$="1111111111| 00000150: 31 31 31 31 31 22 0D 2A 70 69 63 6B 0D 63 3A 61 |11111".*pick.c:a| 00000160: 20 3D 20 72 6E 64 28 35 29 0D 63 3A 62 20 3D 20 | = rnd(5).c:b = | 00000170: 72 6E 64 28 33 29 0D 63 3A 69 20 3D 20 33 2A 61 |rnd(3).c:i = 3*a| 00000180: 20 2B 20 62 20 2B 20 31 0D 6A 28 6C 24 28 69 29 | + b + 1.j(l$(i)| 00000190: 3D 30 29 3A 70 69 63 6B 0D 63 3A 6C 24 28 69 29 |=0):pick.c:l$(i)| 000001A0: 3D 30 0D 63 3A 78 20 3D 20 34 2A 61 20 2B 20 31 |=0.c:x = 4*a + 1| 000001B0: 0D 63 3A 79 20 3D 20 35 2A 61 20 2B 20 31 0D 63 |.c:y = 5*a + 1.c| 000001C0: 3A 7A 20 3D 20 32 33 2A 62 20 2B 20 31 0D 63 3A |:z = 23*b + 1.c:| 000001D0: 74 24 20 3D 20 73 24 28 78 2C 34 29 0D 63 3A 65 |t$ = s$(x,4).c:e| 000001E0: 24 20 3D 20 64 24 28 7A 2C 32 33 29 0D 63 3A 6D |$ = d$(z,23).c:m| 000001F0: 24 20 3D 20 22 4D 3A 22 21 21 72 24 28 78 2C 34 |$ = "M:"!!r$(x,4| 00000200: 29 0D 63 3A 6E 24 20 3D 20 22 4D 3A 22 21 21 66 |).c:n$ = "M:"!!f| 00000210: 24 28 78 2C 34 29 0D 63 3A 6F 24 20 3D 20 22 4D |$(x,4).c:o$ = "M| 00000220: 3A 22 21 21 77 24 28 79 2C 35 29 0D 74 73 3A 47 |:"!!w$(y,5).ts:G| 00000230: 69 76 65 20 74 68 65 20 6D 69 73 73 69 6E 67 20 |ive the missing | 00000240: 76 65 72 62 2E 0D 3A 0D 3A 24 74 24 20 20 20 20 |verb..:.:$t$ | 00000250: 20 20 20 24 65 24 0D 3A 0D 61 3A 0D 6D 3A 41 49 | $e$.:.a:.m:AI| 00000260: 4E 54 21 41 49 4E 2A 54 0D 74 79 3A 56 65 72 79 |NT!AIN*T.ty:Very| 00000270: 20 66 75 6E 6E 79 2C 20 62 75 74 20 6E 6F 74 20 | funny, but not | 00000280: 63 6F 72 72 65 63 74 2E 0D 3A 4E 6F 77 20 62 65 |correct..:Now be| 00000290: 20 73 65 72 69 6F 75 73 2E 0D 3A 0D 6A 79 3A 40 | serious..:.jy:@| 000002A0: 61 0D 72 3A 43 68 65 63 6B 20 66 6F 72 20 63 6F |a.r:Check for co| 000002B0: 72 72 65 63 74 20 61 6E 73 77 65 72 0D 78 3A 6D |rrect answer.x:m| 000002C0: 24 0D 74 79 3A 52 69 67 68 74 21 0D 63 79 3A 70 |$.ty:Right!.cy:p| 000002D0: 3D 70 2B 31 0D 6A 79 28 70 3C 31 30 29 3A 70 69 |=p+1.jy(p<10):pi| 000002E0: 63 6B 0D 65 79 3A 0D 72 3A 43 68 65 63 6B 20 66 |ck.ey:.r:Check f| 000002F0: 6F 72 20 70 65 72 73 6F 6E 20 65 72 72 6F 72 0D |or person error.| 00000300: 78 3A 6E 24 0D 74 79 3A 54 68 65 20 73 75 62 6A |x:n$.ty:The subj| 00000310: 65 63 74 20 69 73 20 73 69 6E 67 75 6C 61 72 2C |ect is singular,| 00000320: 20 62 75 74 20 79 6F 75 20 6E 65 65 64 0D 3A 74 | but you need.:t| 00000330: 68 65 20 6F 74 68 65 72 20 73 69 6E 67 75 6C 61 |he other singula| 00000340: 72 20 66 6F 72 6D 20 6F 66 20 74 68 65 20 76 65 |r form of the ve| 00000350: 72 62 2E 0D 3A 54 72 79 20 61 67 61 69 6E 2E 0D |rb..:Try again..| 00000360: 6A 79 3A 40 61 0D 72 3A 43 68 65 63 6B 20 73 69 |jy:@a.r:Check si| 00000370: 6E 67 75 6C 61 72 20 2D 20 70 6C 75 72 61 6C 20 |ngular - plural | 00000380: 65 72 72 6F 72 0D 78 3A 6F 24 0D 74 79 3A 54 68 |error.x:o$.ty:Th| 00000390: 69 6E 6B 20 61 62 6F 75 74 20 74 68 65 20 6E 75 |ink about the nu| 000003A0: 6D 62 65 72 20 6F 66 20 70 65 6F 70 6C 65 20 74 |mber of people t| 000003B0: 68 61 74 0D 3A 61 72 65 20 24 65 24 20 20 20 54 |hat.:are $e$ T| 000003C0: 72 79 20 61 67 61 69 6E 2E 0D 6A 79 3A 40 61 0D |ry again..jy:@a.| 000003D0: 74 3A 54 68 65 20 76 65 72 62 20 6D 75 73 74 20 |t:The verb must | 000003E0: 62 65 20 6F 6E 65 20 6F 66 20 74 68 65 72 65 3A |be one of there:| 000003F0: 0D 3A 0D 3A 20 20 20 20 20 20 61 72 65 20 20 20 |.:.: are | 00000400: 20 20 61 6D 20 20 20 20 20 69 73 0D 3A 0D 3A 54 | am is.:.:T| 00000410: 72 79 20 61 67 61 69 6E 2E 0D 6A 3A 40 61 0D 20 |ry again..j:@a. | 00000420: 20 20 00 | . |
.PPR:U.D:S$(20).D:T$(4).D:D$(69).D:E$(23 ).D:R$(20).D:F$(20).D:W$(25).D:M$(6).D:N $(6).D:O$(7).C:S$="I HE SHE YOU THEY" .C:D$="GOING TO THE CIRCUS. ".C:D$=D$! !"COMING THROUGH THE RYE.".C:D$=D$!!"GET TING SATURATED. ".C:R$="AM%%IS%%IS%% *RE%*RE%".C:W$="*RE%%*RE%%*RE%%AD!ISAM!I S".C:F$="IS%%AM%%AM%%XXXXXXXX".D:L$(15). C:L$="111111111111111".*PICK.C:A = RND(5 ).C:B = RND(3).C:I = 3*A + B + 1.J(L$(I) =0):PICK.C:L$(I)=0.C:X = 4*A + 1.C:Y = 5 *A + 1.C:Z = 23*B + 1.C:T$ = S$(X,4).C:E $ = D$(Z,23).C:M$ = "M:"!!R$(X,4).C:N$ = "M:"!!F$(X,4).C:O$ = "M:"!!W$(Y,5).TS:G IVE THE MISSING VERB..:.:$T$ $E$.: .A:.M:AINT!AIN*T.TY:VERY FUNNY, BUT NOT CORRECT..:NOW BE SERIOUS..:.JY:@A.R:CHEC K FOR CORRECT ANSWER.X:M$.TY:RIGHT!.CY:P =P+1.JY(P<10):PICK.EY:.R:CHECK FOR PERSO N ERROR.X:N$.TY:THE SUBJECT IS SINGULAR, BUT YOU NEED.:THE OTHER SINGULAR FORM O F THE VERB..:TRY AGAIN..JY:@A.R:CHECK SI NGULAR - PLURAL ERROR.X:O$.TY:THINK ABOU T THE NUMBER OF PEOPLE THAT.:ARE $E$ T RY AGAIN..JY:@A.T:THE VERB MUST BE ONE O F THERE:.:.: ARE AM IS.:.:T RY AGAIN..J:@A. .
> CLICK IMAGE PREVIEW FOR FULL MODAL