QRCODE.BAS

10 GCURSOR (90,7)
20 GPRINT "FC0474747404FC00"
30 GCURSOR (98,7)
40 GPRINT "9E90F65AC690F65A"
50 GCURSOR (116,7)
60 GPRINT "C690F65AC600FC04"
70 GCURSOR (124,7)
80 GPRINT "74747404FC000000"
90 GCURSOR (90,15)
100 GPRINT "F69A845EDA2E542E"
110 GCURSOR (98,15)
120 GPRINT "A6B080521EB48652"
130 GCURSOR (116,15)
140 GPRINT "1EB486521E86241E"
150 GCURSOR (124,15)
160 GPRINT "5A3E542274000000"
170 GCURSOR (90,23)
180 GPRINT "56D4141474145620"
190 GCURSOR (98,23)
200 GPRINT "0A70D4521EB48652"
210 GCURSOR (116,23)
220 GPRINT "1EB486561E903410"
230 GCURSOR (124,23)
240 GPRINT "5E185C0854000000"
250 GCURSOR (90,31)
260 GPRINT "F010D0D0D010F000"
270 GCURSOR (98,31)
280 GPRINT "7000E05010B08050"
290 GCURSOR (116,31)
300 GPRINT "10B0803090C0D000"
310 GCURSOR (124,31)
320 GPRINT "2050904050000000"

330*WAIT: A$=INKEY$
340 IF A$="" THEN "WAIT"