Code Gallery: Gemischtes
Sie sind hier: Code Gallery » GemischtesDie auf dieser Seite vorhandenen BASIC-Programme (bzw. Snipplets) habe ich nach dem Transfer auf den PC nicht mehr getestet. Sie sollten aber problemlos funktionieren.
Bildschirminhalt zwischenspeichern und wieder zurückschreiben
1350 rem -- screeninhalt retten
1351 :
1352 num=55545:o=1
1353 forc=1to13
1354 forh=numto(num+21)
1355 wc(o)=peek(h)
1356 o=o+1
1357 nexth
1358 num=num+40
1359 nextc
1360 return
1369 :
1370 rem -- screeninhalt auslesen
1371 :
1372 num=55545:o=1
1373 forc=1to13
1374 forh=numto(num+21)
1375 pokeh,wc(o)
1376 o=o+1
1377 nexth
1378 num=num+40
1379 nextc
1380 :