Code: Select all
CLS
RANDOMIZE TIMER
issuer1 = 4
issuer2 = INT(RND * 9 + 1) * 2
i2$ = STR$(issuer2)
is2$ = LEFT$(i2$,1) + LEFT$(i2$,2)
issuer3 = INT(RND * 9 + 1) * 2
i3$ = STR$(issuer3)
is3$ = LEFT$(i3$,1) + LEFT$(i3$,2)
issuer4 = INT(RND * 9 + 1) * 2
i4$ = STR$(issuer4)
is4$ = LEFT$(i4$,1) + LEFT$(i4$,2)
issuer5 = INT(RND * 9 + 1) * 2
i5$ = STR$(issuer5)
is5$ = LEFT$(i5$,1) + LEFT$(i5$,2)
issuer6 = INT(RND * 9 + 1) * 2
i6$ = STR$(issuer6)
is6$ = LEFT$(i6$,1) + LEFT$(i6$,2)
accountnum1 = INT(RND * 9 + 1) * 2
acntnm1$ = STR$(accountnum1)
at1$ = LEFT$(acntnm1$,1) + LEFT$(acntnm1$,2)
accountnum2 = INT(RND * 9 + 1) * 2
acntnm2$ = STR$(accountnum2)
at2$ = LEFT$(acntnm2$,1) + LEFT$(acntnm2$,2)
accountnum3 = INT(RND * 9 + 1) * 2
acntnm3$ = STR$(accountnum3)
at3$ = LEFT$(acntnm3$,1) + LEFT$(acntnm3$,2)
accountnum4 = INT(RND * 9 + 1) * 2
acntnm4$ = STR$(accountnum4)
at4$ = LEFT$(acntnm4$,1) + LEFT$(acntnm4$,2)
accountnum5 = INT(RND * 9 + 1) * 2
acntnm5$ = STR$(accountnum5)
at5$ = LEFT$(acntnm5$,1) + LEFT$(acntnm5$,2)
accountnum6 = INT(RND * 9 + 1) * 2
acntnm6$ = STR$(accountnum6)
at6$ = LEFT$(acntnm6$,1) + LEFT$(acntnm6$,2)
accountnum7 = INT(RND * 9 + 1) * 2
acntnm7$ = STR$(accountnum7)
at7$ = LEFT$(acntnm7$,1) + LEFT$(acntnm7$,2)
accountnum8 = INT(RND * 9 + 1) * 2
acntnm8$ = STR$(accountnum8)
at8$ = LEFT$(acntnm8$,1) + LEFT$(acntnm8$,2)
accountnum9 = INT(RND * 9 + 1) * 2
acntnm9$ = STR$(accountnum9)
at9$ = LEFT$(acntnm9$,1) + LEFT$(acntnm9$,2)
verifacationnum$ = is2$ + is3$ + is4$ + is5$ + is6$ + at1$ + at2$ + at3$ + at4$ + at5$ + at6% + at7$ + at8$ + at9$
OPEN "results.txt" FOR APPEND AS #1
PRINT #1,is1$; is2$; is3$; is4$; is5$; is6$; at1$;at2$;at3$;at4$;at5$;at6$;at7$;at8$;at9$;verifacationnum$
CLOSE #1
SHELL "cmd /c start notepad results.txt"
END